makro ile sadece bir harfin fontunu değiştirme

[imyourfate]

Değerli hocalarım hepinizi saygıyla selamlıyorum

sorunum bir belge içerisindeki yada daha net olsun A3:U39 arasındaki tüm ''Ç'' harflerinin ARİAL BLACK fontuna bir makro yardımıyla çevirilmesi

Allah'a emanet olunuz

Saygılarımla

 

[Necdet]

Değerli hocalarım hepinizi saygıyla selamlıyorum

sorunum bir belge içerisindeki yada daha net olsun A3:U39 arasındaki tüm ''Ç'' harflerinin ARİAL BLACK fontuna bir makro yardımıyla çevirilmesi

Allah'a emanet olunuz

Saygılarımla

Merhaba,

İşin içine goca rabbımı karıştırmaktansa örnek bir dosya eklesenizde sorunu çözecek arkadaşlarımıza kolaylık olsa diyorum hani

 

[imyourfate]

Sn Yeşertener,

Rabbı bir yere karıştırdığım yok minnetimizi belirtme tarzı diyelim
neyse dosya ekte mevcuttur yardımlarınız için şimdiden teşekkür ederim

 

[Necdet]

Sn Yeşertener,

Rabbı bir yere karıştırdığım yok minnetimizi belirtme tarzı diyelim
neyse dosya ekte mevcuttur yardımlarınız için şimdiden teşekkür ederim

Bizde takıldık canım hemen kızmayın

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub FonkBuyut()
 
    Dim Hucre   As Range
    Dim i       As Integer
    
    For Each Hucre In Range("A3:U39")
        For i = 1 To Len(Hucre)
            If Mid(Hucre, i, 1) = "ç" Or Mid(Hucre, i, 1) = "Ç" Then
            
                With Hucre.Characters(Start:=i, Length:=1).Font
                    .Name = "Arial Black"
                    .FontStyle = "Normal"
                    .Size = 16
                End With
            End If
        Next i
    Next Hucre
    
End Sub

 

[imyourfate]

yok be hocam kızmadım

10 numara çalışma olmuş Saygılarımı sunuyorum

Allah Razı Olsun

 

[Necdet]

yok be hocam kızmadım

10 numara çalışma olmuş Saygılarımı sunuyorum

Allah Razı Olsun

Güle güle kullanınız, yine goca rabbımı karıştırıdnız