Soru Koşullu Biçimlendirme ve Yazı Tipi Değiştirme

[Textiler]

Merhabalar,

Koşullu biçimlendirme içerisinde yazı tipi değiştirme seçeneği deaktif görünüyor. Nasıl aktif hale getiririm ?

Yapmak istediğim şey hücre içindeki değere göre; örneğin "A" değeri yazıyorsa yazı tipi Calibri ve "B" değeri yazıyorsa yazı tipi Tahoma olsun istiyorum.

 

[alicimri]

Ofis 2007 ve 2013 ile denedim onlarda da yazı tipi pasif görünüyor

 

[AdemCan]

Merhaba, makro ile yapılması gerekiyor.

 

[Textiler]

Merhabalar Tekrar,

Geri bildirimleriniz için teşekkür ediyorum. Bu durumda örneğin; A1:E10 aralığındaki her bir hücre için ayrı ayrı olmak üzere A ve B koşuluna göre yazı tipini değiştirebileceğim makro örneği paylaşabilecek var mıdır acaba?

 

[alicimri]

Deneyin

Sub Makro4()
    Application.ReplaceFormat.Font.Name = "Calibri"
    Range("A1:E10").Replace What:="B", Replacement:="B", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
            Application.ReplaceFormat.Font.Name = "Tahoma "
       Range("A1:E10").Replace What:="A", Replacement:="A", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
End Sub

 

[AdemCan]

Merhaba alternatif olarak ilgili sayfanın kod bölümüne ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:E10")) Is Nothing Then Exit Sub
    With Target
        If .Value = "A" Then
            .Font.Name = "Calibri"
        ElseIf .Value = "B" Then
            .Font.Name = "Tahoma"
        End If
    End With
End Sub

 

[Textiler]

Merhaba alternatif olarak ilgili sayfanın kod bölümüne ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:E10")) Is Nothing Then Exit Sub
    With Target
        If .Value = "A" Then
            .Font.Name = "Calibri"
        ElseIf .Value = "B" Then
            .Font.Name = "Tahoma"
        End If
    End With
End Sub

Destekleriniz için öncelikle çok teşekkür ederim. Kod sorunsuz çalışıyor ancak bir ufak sorum daha olacak. Kod Sayfa1 içinde çalışıyor ancak Sayfa2' de yapmış olduğum değişiklik sonucu formül ("=Sayfa2!C3") ile Sayfa1' deki A1 hücresini "A" değerine çevirdiğinde kod çalışmıyor. Nedeni ne olabilir?