VBA Run-Time Error '1004' while using .formula

Asked Jul 19 '21 at 02:13

Active Jul 19 '21 at 02:13

Viewed 17 times

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Target.Worksheet.Range("B2:B1000")) Is Nothing Then
Range(Target.Offset(0, 3).Address).Formula = "=If(" & Target.Offset(0,   1).Address & ">0,VLOOKUP(" & Target.Address & ",Sheet2!$B$1:$M$263,7,0),"")"

End If End Sub

asked Jul 19 '21 at 02:13

Quinn Nelson

`",Sheet2!$B$1:$M$263,7,0),"""")"`. – BigBen Jul 19 '21 at 02:20
Thank you so much, i'm a novice and had been stuck on that for a while, that is huge – Quinn Nelson Jul 19 '21 at 02:31
Note that you can just use `Target.Offset(0, 3).Formula = ...`. `Target` is a `Range`. – BigBen Jul 19 '21 at 02:39
Also `Target.Worksheet` can be replaced with `Me`. – BigBen Jul 19 '21 at 02:40

VBA Run-Time Error '1004' while using .formula

0 Answers0