Sütunu tarayıp veri bulma

[feragante]

Butona tıkladığımda A sütununu 50. satıra kadar tarayıp hücrenin içinde "1" değerini bulursa bir sonraki satırın metin rengini siyah yapan makro kodu lazım. Örneğin A20 ve A32 hücrelerinde "1" yazılı, A21 ve A33 ün metin rengi siyah olacak. Teşekkürler

 

[Trilenium]

For i = 1 To 50

If Range("A" & i).Value = 1 Then

Range("a" & i + 1).Font.ColorIndex = 1

End If

Next i

 

[feragante]

Çok teşekkür ederim iyi çalışmalar