Yalnız Mesajı Göster
Eski 06-03-2018, 12:17  
dalgalikur
Destek Ekibi
 
dalgalikur kullanıcısının avatarı
 
Giriş: 04/06/2006
Mesaj: 1,246
Excel Vers. ve Dili:
2007-2013
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Sira As Long
    Dim Obek As Long
    If Intersect(Target, Range("P:P")) Is Nothing Then Exit Sub
    On Error Resume Next
    Sira = WorksheetFunction.Find("!", Target.Text)
    Obek = Len(Target.Text) - Sira + 1
    Target.Characters(Start:=Sira, Length:=Obek).Font.Color = -16776961
End Sub
dalgalikur Çevrimdışı   Alıntı Yaparak Cevapla