Yalnız Mesajı Göster
Eski 06-03-2018, 11:27  
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 161
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

Alıntı:
dalgalikur tarafından gönderildi Mesajı Görüntüle
Sayfanın kod editörüne aşağıdaki kodu kopyalayın.

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
    Sira = WorksheetFunction.Find("!", Target.Text)
    Obek = Len(Target.Text) - Sira + 1
    Target.Characters(Start:=Sira, Length:=Obek).Font.Color = -16776961
End Sub
Tesekkur ederim. Kod tum sayfa için calisiyor. Sadece p sutunu icin nasil bi yol izlemeliyiz?
leonadies Çevrimdışı   Alıntı Yaparak Cevapla