Makro içinde yazı rengini kırmızı yapmak

[yasinercan]

Merhaba,

Hocalarımın yardımıyla bir makro yazıyorum bir yerde takıldım.
Aşağıdaki "YOK" kelimesini kırmızı yapmak istiyorum nasıl yapabilirim. Makrodan bir kesittir..

Saygılarımla Teşekkürler

For kod = 2 To sonm
If WorksheetFunction.CountIf(s1.Range("B2:B" & sonü), s2.Cells(kod, "A")) = 0 Then
yen = s3.Cells(Rows.Count, "B").End(3).Row + 1
s3.Cells(yen, "C") = s2.Cells(kod, "A")
s3.Cells(yen, "I") = s2.Cells(kod, "C")
s3.Cells(yen, "A") = s2.Cells(kod, "B")
s3.Cells(yen, "E") = "YOK"
s3.Cells(yen, "F") = "YOK"
s3.Cells(yen, "G") = "YOK"
s3.Cells(yen, "H") = "YOK"
s3.Cells(yen, "D") = "YOK"

GoTo 10
End If

 

[Emir Hüseyin Çoban]

. . .

Yok yazılan hücrelerin rengini mi kırmızı yapmak istiyorsunuz.

. . .

 

[yasinercan]

evet efendim

 

[Emir Hüseyin Çoban]

. . .

Makrolar ile de yapılabilir ancak sayfaya koşullu biçimlendirme tanımlayarak yaparsak daha dinamik bir çalışma olacaktır.

. . .

 

[yasinercan]

Merhaba,

Yani şunu nasıl yapabilirim A sutunundan O sutununa verilerim var aralarda YOK yazıyor bazı satırlarda Eğer A;O arasında YOK yazarsa o hücreyi kırmızı nasıl yapabilirim

Teşekkürler

 

[Emir Hüseyin Çoban]

. . .

A:O aralığındaki hücreleri seçin
Giriş sekmesi > Koşullu biçimlendirme > Hücre kurallarını vurgula > eşittir...
Açılan penreceye Yok yazın ve biçimden özel biçimlendirme yapın.

. . .

 

[yasinercan]

Yaptım efendim çok teşekkürler Nasl olduğu merak edenler için ekte paylaştım teşekkürler