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

Katılım
31 Ağustos 2007
Mesajlar
15
Excel Vers. ve Dili
2010
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
 

Ekli dosyalar

Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ektedir..:cool:
Kod:
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
 

Ekli dosyalar

Katılım
31 Ağustos 2007
Mesajlar
15
Excel Vers. ve Dili
2010
Emeğinize sağlık teşekkür ederim.
 
Üst