Worksheet_Change(ByVal Target As Range) throws error

acat · Aug 15th 2019

trying to have cell value change based on another cell value change

code below throws this error

[ATTACH=JSON]{"data-align":"none","data-size":"large","data-attachmentid":1221701}[/ATTACH]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intersection As Range
Set intersection = Intersect(Target, Worksheets("Sheet1").Range("G1"))
If Not intersection Is Nothing Then
If Worksheets("Sheet1").Range("G1").Value = Worksheets("Sheet20").Range("K2").Value Then
Worksheets("Sheet1").Range("F2").Value = Worksheets("Sheet20").Range("I2").Value
End If
End If
End Sub

**AlanSidman** · Aug 15th 2019

Give this a try:

Code

acat · Aug 15th 2019

on line

Code

[ATTACH=JSON]{"data-align":"none","data-size":"large","data-attachmentid":1221707}[/ATTACH]

**Kenneth Hobson** · Aug 16th 2019

Code

Display More

Share