VBA拖动公式直到最后一行

Question

Please when i run this code it works liek charm

Sub drag()
'
' drag Macro
'

'
Dim lastRow As Long, i As Long
Dim ws As Worksheet

    Set ws = Sheets("WIP")

    lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
    Sheets("WIP").Select
    Range("N2:N" & lastRow).Formula = "=G3&"",""&L3"

End Sub

The problem is that when i want to replace the formula by this one :

=IF(RIGHT(F2;1)="k";"kit";IF(H2="LIM-mètre linéaire";"tissu";"composant"))

i can't run the code please any help :)

Answer 1

FIRST try changing your semicolons to commas, then if that doesnt work

try

=IF(RIGHT(F2;1)="""k""","""kit""",IF(H2="""LIM-mètre linéaire""","""tissu""","""composant"""))