İki Sütunu karşılaştırma

[istavrit]

Ýki Sütunu karşılaştırma

merhabalar,

ben iki sütunu karşılaştırmak istiyorum aynı değerler varsa üçüncü sütuna yazdıracağım bunun için
Sub main()

Dim i As Integer

For i = 1 To 161

If Cells(i, 1).Value = Cells(i, 2).Value Then
Cells(i, 3).Value = Cells(i, 2).Value

Next i


End Sub

kodunu çalıştırdığımda "next without for" hatası veriyor

problem nedir acaba? veya başka bir yolu var mı? yardımcı olursanız sevinirim. Teşekkürler

 

[isakarakus]

end if ifadesi yok
veya şöyle yazın

If Cells(i, 1).Value = Cells(i, 2).Value Then Cells(i, 3).Value = Cells(i, 2).Value

 

[istavrit]

Teşekkürler,