Boş satırları renklendirme

[emrejanti]

benim yapmak istediğim şeyi kısaca anlatayım
excelde 10 SATIR İLE 1000 Cİ SATIRLAR ARASINDA A,B,C KOLANLARINDAN BİRİ BİLE BOŞ OLURSA İÇİNDE BİR DEĞER OLMAZSA SATIRI TAMAMEN BİR RENGE BOYAMASI .BEN MAKRO İLE SADECE 10CU SATIRDAKİ KONTROLÜ YAPTIRDIM ANCAK DÖNGÜYÜ YAZARAK 1000 Cİ SATIRA KADAR BAKTIRAMADIM.yardımcı olursanız çok memnun olurum.

yazdıgım uygulamada şu şekilde
Sub Macro1()
'
' Macro1 Macro
'
'



If Range("b10") = "" Or Range("c10") = "" Or Range("d10") = "" Then

Rows("10:10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0

End With


End If

End Sub

 

[Ömer]

Merhaba,

Sub BoşBulRenklendir()
Dim i As Long
Range("A10:C1000").Interior.ColorIndex = xlNone
For i = 10 To 1000
    If WorksheetFunction.CountBlank(Range("A" & i & " :C" & i)) > 0 Then
        Range("A" & i & " :C" & i).Interior.ColorIndex = 6
    End If
Next i
End Sub

Bu şekilde deneyiniz..

Not: Soru başlıklarınızı sorunun içeriğini ifade edecek şekilde belirlemenizi rica ederim.

.

 

[emrejanti]

Teşekkür ederim

öncelikle çok teşekkür ederim yardımın için .bu arada başlık konusunda yapmış oldugum yanlış içinde kusuruma bakmayın lütfen bundan sonra daha çok dikkat ederim.tekrar teşekkür ederim. çok faydalı oldu.