For + If döngüsü

Katılım
4 Mart 2013
Mesajlar
20
Excel Vers. ve Dili
MS Excel 2007
MS Excel Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Aşağıdaki kodu kullanın.
Bir satırın yeri yanlış yerde olduğundan kaynaklanıyor.

Kod:
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
 
Katılım
4 Mart 2013
Mesajlar
20
Excel Vers. ve Dili
MS Excel 2007
MS Excel Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Aşağıdaki kodu deneyin.

Kod:
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
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Rica ederim.
İyi çalışmalar.
 
Üst