Değerleri tespit etmek

[1903emre34@gmail.com]

Merhaba,

Hesap kodunun karşısında kelimeler yoksa (DOĞRU, vs) ise o hesap kodunun karşısında kelimeler yoksa sarıya boyanması için nasıl kod oluşturabiliriz

 

[EmrExcel16]

Deneyiniz.

Sub boya()
Dim i
For i = 6 To Cells(Rows.Count, 2).End(3).Row
    If Cells(i, 2) <> "" Then
        If Cells(i, 5) = "" Or Cells(i, 7) = "" Then
            Range(Cells(i, 2), Cells(i, 7)).Interior.Color = 65535
        Else
            Range(Cells(i, 2), Cells(i, 7)).Interior.Color = xlNone
        End If
    End If
Next
End Sub