Çözüldü Kodu Büyük Harfe Çevirme

[ozuberk]

Merhaba arkadaşlar “Range("B1") = ActiveSheet.Name” ile sayfa isimlerini yazdırıyorum. Sayfa isminin büyük yazılması için nasıl bir değişiklik yapmam gerekiyor.

 

[Muzaffer Ali]

Merhaba.

Range("B1") = UCase(ActiveSheet.Name)

 

[ozuberk]

Üstat çok teşekkür ederim.

 

[Necdet]

Merhaba,
Sayfa isimlerinde Türkçe karakter yoksa Muzaffer beyin verdiği kodlar çalışır.
Varsa :

Range("B1") = UCase(Replace(Replace(ActiveSheet.Name, "i", "İ"), "ı", "I"))

kodu kullanınız.

 

[ozuberk]

Bilgilendirme için teşekkür ederim.