Sayfa1 de B : BA sütunları arasındaki "si" ifadelerini kırmızı yazdırmak istiyorum.

[kelkitli]

Sayfa1 de B : BA sütunları arasındaki "si" ifadelerini kırmızı yazdırmak istiyorum.

Değerli Dostlar Selamlar,
Sayfa1 de A :BA sütunları aralığını en son dolu satıra kadar "si" ifadesini (kelime içindekiler hariç) kırmızı yazı ile yazdırmak istiyorum. Yardım ederseniz memnun olurum.

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub kirmizi_Yazdir()
Dim hucre As Range, sonsat As Long
sonsat = Cells(65536, "A").End(xlUp).Row
For Each hucre In Range("A1:BA" & sonsat)
    If hucre.Value = "si" Then
        hucre.Font.ColorIndex = 3
    End If
Next
msgbox "İşlem Tamam"
End Sub

 

[kelkitli]

Sayın Orion2 Teşekkürlerimi iletirim.