[vb:1:72994c44a5]Sub boya()
For x = 2 To 15
For k = 1 To 11 If Cells(x, k).Value = "" Then
Cells(x, k).Interior.ColorIndex = xlNone
Else
Cells(x, k).Interior.ColorIndex = 6 End If
Next
Next
End Sub[/vb:1:72994c44a5]
Ben Yalnız Yukarıda Boş olan değerler varsa Boyama yapmamasını sağladım.
Şayet Herhangibir Şart Yok ise;altı Çizili Satırları çıkarman gerekmektedir.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.