Yazıdaki 1 Harfin Biçimini Düzenlemek

[baydeniro]

Merhaba arkadaşlar. Bir hücredeki yazının sadece 1 harfinin biçimini makro ile düzenlemek mümkün mü ? Ekli dosyada bulunan B1:B60 aralığındaki hücrelerdeki büyük A harfinin biçimini düzenlemek. Örnek dosya ekte.

Kırmızı, Bold, Eğik, Yazı Tipi Chiller, boyut 24 gibi.

 

[Necdet]

Merhaba,

Font özelliklerini N1 hücresinde belirledikten sonra aşağıdaki kodları çalıştırıp deneyiniz.

Sub FontAyarla()
 
    Dim i   As Long, _
        j   As Integer
        
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "B").End(3).Row
        If Not Cells(i, "B") = "" Then
            For j = 1 To Len(Cells(i, "B"))
                If Mid(Cells(i, "B"), j, 1) = "A" Then
                    With Range("B" & i)
                        .Characters(j, 1).Font.Bold = Range("N1").Font.Bold
                        .Characters(j, 1).Font.Italic = Range("N1").Font.Italic
                        .Characters(j, 1).Font.Size = Range("N1").Font.Size
                        .Characters(j, 1).Font.Name = Range("N1").Font.Name
                    End With
                End If
            Next j
            
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[baydeniro]

Allah sizden razı olsun sayın Necdet Yeşertener, çok çok teşekkür ederim. Sağlıcakla kalın.

 

[Necdet]

Allah sizden razı olsun sayın Necdet Yeşertener, çok çok teşekkür ederim. Sağlıcakla kalın.

Rica ederim, güle güle kullanınız.