خرید بک لینک

Vote count: 0

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 .

asked 2 mins ago

برچسب: نویسنده: استخدام کار تاريخ: جمعه 14 خرداد 1395 ساعت: 4:32

صفحه بندی