döngü ile satır boyama

[Kemal Demir]

Selam arkadaslar

Aşagıdaki kodda sadece ilgili hücrenin boyaması soz konusu

Sub ara_boya()
For d = 2 To 5000

If Range("b" & d).Value = "YAPILDI" Then
Range("b" & d).Interior.ColorIndex = 37
End If
If Range("b" & d).Value = "YAPILMADI" Then
Range("b" & d).Interior.ColorIndex = 6
End If
Next

End Sub

Ama ben bunu ilgili ifadenın tum satırını boyamak istiyorum

nasıl yapabilirim.
Birde dongu suan 5000 hucreye bakıyor burada data 100 ise kalan boş değerlerin renginin boyamasının yapılmaması için ne yapabilirim..

Saygılar.

 

[excelvba]

Aşağıdaki şekilde deneyin.

[vb:1:166fe1ba57]Sub ara_boya()
For d = 2 To [b65536].end(xlup).row

If Range("b" & d).Value = "YAPILDI" Then
Rows(d).Interior.ColorIndex = 37
End If
If Range("b" & d).Value = "YAPILMADI" Then
Rows(d).Interior.ColorIndex = 6
End If
Next

End Sub

[/vb:1:166fe1ba57]

 

[Kemal Demir]

teşekkur ederim