Bir sütun sonrayı nasıl kontrol eder

[sefer seferoğlu]

Bir sütun sonrayı Makro nasıl kontrol eder

Arkadaşlar alttaki kodla üçüncü ve sütunla beşinci sütunu 32 satır boyunca karşılaştırıyor .Sorunsa bu işlemi 6,7,8,9,gibi diğer sütunlarda tekrar etmeye kalkınca üçüncü bir if ifadesi koyduğumda hata alıyorum.Aşagıda açıklama yazdığım satırdaki işlemi nasıl yapabilirim.
Sub KONTROL()

Dim p As Integer
p = 0
For i = 6 To 32
If Cells(i, 3).Value = "x" Then

If Cells(i, 5).Value = "x" Then ' Buradaki 5 yerine L gibi bir değişken koymak i değişkeni her 32 ulaştığında bir sayı artmasını sağlamam gerekiyor.
p = p + 1

Cells(41, 5).Value = p
End If
End If
Next i
End Sub

Yardımlarınız için teşekkürler.

 

[sefer seferoğlu]

Şöyle bir döngü denedim olmadı.
Çalışan bir çözümü olan varsa çok memnun olurum.

Sub KONTROL()

Dim p As Integer
Dim L As Integer
p = 0
For i = 6 To 32
For L = 5 To 31
If Cells(i, 3).Value = "x" Then

If Cells(i, L).Value = "x" Then
p = p + 1

Cells(41, L).Value = p
End If
End If
Next L
Next i
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu tür sorularınızda örnek bir dosya üzerinde nasıl bir kontrol yapmak istediğinizi açık bir şekilde belirtirseniz daha çabuk cevap alabilirsiniz.

 

[sefer seferoğlu]

Tafsiye Üzerine

Tafsiyeniz üzerine bir örnek dosyayı ekliyorum,Teşekkürler.