Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
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.