Merhaba Sn. Üstadlar,
Aşağıdaki kodu çalıştırdığım zaman "End If without block If" hatası alıyorum. Bu konuda çok acemi olduğumdan ve nette araştırdığım örnekleri anlamakta zorluk çektiğimden sizlere sormak istedim. Yapmak istediğim şey: iki kolondaki hücreleri sırası ile karşılaştırıp, sonuç olumlu olduğu zaman başka bir hücreye yazdırmak.
Yardımınız için şimdiden teşekkür ederim.
Sub Listele()
Dim i As Integer
Dim k As Integer
k = 189
For i = 2 To 158
If [i,"E"] = [i,"F"] Then [k,"K"] = [i,"E"]
k = k + 1
End If
Next i
End Sub
Aşağıdaki kodu çalıştırdığım zaman "End If without block If" hatası alıyorum. Bu konuda çok acemi olduğumdan ve nette araştırdığım örnekleri anlamakta zorluk çektiğimden sizlere sormak istedim. Yapmak istediğim şey: iki kolondaki hücreleri sırası ile karşılaştırıp, sonuç olumlu olduğu zaman başka bir hücreye yazdırmak.
Yardımınız için şimdiden teşekkür ederim.
Sub Listele()
Dim i As Integer
Dim k As Integer
k = 189
For i = 2 To 158
If [i,"E"] = [i,"F"] Then [k,"K"] = [i,"E"]
k = k + 1
End If
Next i
End Sub