Birden çok değeri "sıralı" aramak

[tugay_1213]

Birden çok değeri "sıralı" aramak - Acil Yardım

Arkadaşlar, aşağıda örneklendirdiğim şekilde bir tabloda; yan yana gelen iki ya da daha fazla '1' rakamını bulmak istiyorum. Yine aynı şekilde alt alta gelen iki '0' rakamını bulmak istiyorum. Nasıl yapabilirim? Sayfa bu şekilde uzayıp gidiyor.

 

[leumruk]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub Kontrol()
Cells.Interior.ColorIndex = xlNone
For x = 1 To [a65536].End(3).Row
For y = 1 To [IV1].End(1).Column
If Cells(x, y) = 1 And Cells(x, y) = Cells(x, y + 1) Then
Cells(x, y).Interior.ColorIndex = 6
Cells(x, y + 1).Interior.ColorIndex = 6
End If
If Cells(x, y) <> "" And Cells(x + 1, y) <> "" And Cells(x, y) = 0 And Cells(x, y) = Cells(x + 1, y) Then
Cells(x, y).Interior.ColorIndex = 3
Cells(x + 1, y).Interior.ColorIndex = 3
End If
Next
Next
End Sub