Check if this works:
Worksheets("New").Range("V2").Formula = "=IF(U2=U1,"""",A2)"
Worksheets("New").Range(...).Formula = "=LEFT(A2,8)&""-""&U2"
This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
Hi, I wrote the following to auto fill cell in spreadsheet. But I stucked on this formula =IF(U2=U1,"",A2) and =LEFT(A2,8)&"-"&U2 in the following script.
Please advice.
Private Sub CommandButton1_Click()
Dim lr As Long
lr = Worksheets("New").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("New").Range("T2").Formula = "=LEFT(B2,2)" (work)
Worksheets("New").Range("T2").AutoFill Destination:=Worksheets("New").Range("T2:T" & lr)
Worksheets("New").Range("U2").Formula = "=(T2&0&0)" (work)
Worksheets("New").Range("U2").AutoFill Destination:=Worksheets("New").Range("U2:U" & lr)
Worksheets("New").Range("V2").Formula = "=IF(U2=U1,"",A2)" (not work)
Worksheets("New").Range("V2").AutoFill Destination:=Worksheets("New").Range("V2:V" & lr)
Worksheets("New").Range("V2").Formula = "=LEFT(A2,8)&"-"&U2" (not work)
Worksheets("New").Range("V2").AutoFill Destination:=Worksheets("New").Range("V2:V" & lr)
End Sub
Check if this works:
Worksheets("New").Range("V2").Formula = "=IF(U2=U1,"""",A2)"
Worksheets("New").Range(...).Formula = "=LEFT(A2,8)&""-""&U2"