yazıyı renkli yapma...

[karakayalı]

formda bulduğum bu kotlar hücreyi renklendiriyor...ben ise yazının rengini değiştirmek istiyorum...yardımlarınız içi tşkler...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
Satır = "E" & Target.Row & ":a" & Target.Row
Select Case Target
Case "BEKLEMEDE": Range(Satır).Interior.ColorIndex = 3


End Select
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz
Case "BEKLEMEDE": Range(Satır).Font.ColorIndex = 3

 

[ersoyalan]

Alternatif bir çözüm,

E.ALAN

 

[karakayalı]

SYN N.Ziya Hiçdurmaz, O ZAMAN SADECE bulunau hücredeki yazının fontu değşiyor...ben istiyorumki a,b.c, d ve e sutunlarında bulunan yazılarında koşula göre değişmesins istiyorum...

 

[N.Ziya Hiçdurmaz]

Sayın karakayalı yapmak istediğiniz uygulamayı küçük bir örnek dosya ekleyerek destekleyiniz.

 

[karakayalı]

SYN N.Ziya Hiçdurmaz, dosya göndermede sorun var...yukarıda vermiş olduğum kod ta hücrenin içi renkleniyor..ben ise hücrenin içinin değil yazı renginin değiymesini istiyorum...tabi burada e sutununa "beklemede" yazdığımda bu koşula bağlı olarak o satırın f sutununa kadar yazı renginin aynı oülmsanı istiyoru...kısacası yukarıdaki kod ta zemin rengi değişiyor...zemin aynı kalsın sadece yazı rengi değişsin..kolay gelsin..