I am trying to write a macro to compare two columns and if value are equal then it should copy value of another cell into a new cell. I wrote below macro :
Sub Value()
Dim g1 As Range
Set g1 = Worksheets("Sheet1").Range("L2:L11860")
Dim g2 As Range
Set g2 = Worksheets("Sheet1").Range("W2:W12000")
Dim g3 As Range
Set g3 = Worksheets("Sheet1").Range("A2:A12000")
Dim g4 As Range
Set g4 = Worksheets("Sheet1").Range("X2:X12000")
If g1.Value = g2.Value Then
g3.Value = g4.Value
End If
End Sub
It is giving me Run Time error 13 for the below line of code
If g1.Value = g2.Value Then
Please help in solving this .
