Satırda, sıralı en az 3 sayının renklenmesi

[1Al2Ver]

Merhaba ve iyi sabahlar,

F2:K500 aralığındaki tabloda, satırdaki 6 sayıdan, birbirini takip eden en az 3 sayıdan itibaren hücrelerin renklenmesini arzulamaktayım,

Örneğin ;

1 - 2 - 3 - 6 - 9 - 11 'de 1 - 2 - 3

9 - 11- 12 - 13 -14 -33 'de 11 - 12 -13 -14

7 - 8 - 9 - 10 -11 - 22 'de 7 - 8 - 9 - 10 - 11

1 - 2 - 3 - 4 - 5 - 6 'da ise hepsi renklenmeli,

Teşekkür ederim.

 

[halit3]

bunu denermisiniz.

Sub bul()
Cells.Interior.ColorIndex = xlNone
For i = 2 To 500
deg1 = 0
deg2 = 0
deg3 = 0
For j = 6 To 11
deg1 = Cells(i, j).Value
deg2 = Cells(i, j + 1).Value
deg3 = Cells(i, j + 2).Value
If deg1 + 1 = deg2 Then
If deg2 + 1 = deg3 Then
Cells(i, j).Interior.ColorIndex = 8
Cells(i, j + 1).Interior.ColorIndex = 8
Cells(i, j + 2).Interior.ColorIndex = 8
End If
End If
Next
Next
MsgBox "işlem tamam"
End Sub

 

[1Al2Ver]

Sayın halit3, merhaba,

Kod sorunsuz çalışıyor, çok çok teşekkür ederim, sağolun.

Saygılarımla.

 

[halit3]

Sayın halit3, merhaba,

Kod sorunsuz çalışıyor, çok çok teşekkür ederim, sağolun.

Saygılarımla.

iyi çalışmalar