For + If döngüsü

[kucukon]

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

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu kullanın.
Bir satırın yeri yanlış yerde olduğundan kaynaklanıyor.

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

 

[kucukon]

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

Object Required hatası verdi. End If ' i kaldırınca hatasız olarak çalışmaya başladı.

Kafam karıştı açıkçası =(

 

[Muzaffer Ali]

Aşağıdaki kodu deneyin.

Sub Listele()
    Dim i As Integer
    Dim k As Integer
    k = 189
    For i = 2 To 158
        If Range("E" & i) = Range("F" & i) Then
            Range("K" & k) = Range("E" & i)
            k = k + 1
        End If
    Next i
End Sub

 

[kucukon]

Günaydın,
Teşekkür ederim @dalgalikur.
Sorunsuz çalışıyor, eline & emeğine sağlık.

 

[Muzaffer Ali]

Rica ederim.
İyi çalışmalar.