Def yazısı olan satırı bulup boyaması

[TheDarkness]

Merhabalar

Ekteki örnekte verdiğim gibi def ve konf satırları mevcuttur. Baya ugrastım ama yapamadım if then ile. Satırı okudugunda def yazısına rastlarsa bu satırı beyaza eğer konf yazısını o satırdakı herhangi bir hücrede bulursa mavi renge boyamasını istiyorum.

Bu arada yazmayı unuttum o yuzden tekrar düzenliyorum. Satırdaki herhangi bir hücrede oldugu için satır sonuna kadar alabiliriz.

Konu hakkında yardımlarınızı rica eder şimdiden teşekkür ederim.

Saygılarımla

 

[Orion1]

Dosyanız ektedir..

Sub renk_59()
Dim sat As Long, i As Long, renk
sat = Cells(Rows.Count, "H").End(xlUp).Row
For i = 2 To sat
    If Cells(i, "H").Value = "def" Then
        renk = 0
        ElseIf Cells(i, "H").Value = "konf" Then
        renk = 5
    End If
    Range("A" & i & ":H" & i).Interior.ColorIndex = renk
Next i
MsgBox "Renklenme yapıldı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[TheDarkness]

Emeğinize sağlık teşekkür ederim.