• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre içine yazılanları baş harflerinin büyük yazılması

Katılım
29 Ağustos 2009
Mesajlar
398
Excel Vers. ve Dili
2007 Türkçe
Selamlar, hücre içine yazılan her kelimenin baş harflerini büyük yazacak bir kod var mı acaba ?
Bu konuda yardımcı olabilirseniz sevinirim.

Teşekkür ederim.
 
Teşekkür ederim apostraf bir bilgi daha edindim sayenizde.
Fakat benim istediğim tam olarak böyle değil, kelimeyi ya da cümleyi yazdığım hücre içinde bunu yapmak istiyorum.
 
Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayı denermisiniz.

Kod:
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A5:A20")) Is Nothing Then Exit Sub
    Target = WorksheetFunction.Proper(Target)
End Sub
 
Korhan bey teşekkür ederim.
Saece belirlediğim hücreler için bunu yapabilir miyim ?
Mesela; A5 ile A20 hücreleri arasında bu işlemi uygulamak istesem nasıl bir kod gerekir ?

Teşekkür ederim.
 
Selamlar,

Üstteki mesajıma gerekli eklemeyi yaptım. İncelermisiniz.
 
Çok teşekkürler Korhan bey.
Kodların başına on error resume next de ekledim, biraz yavaşlama oldu, notmal midir sizce ?
 
Selamlar,

Neden "On Error Resume Next" komutunu eklediniz?
 
Çünkü; hücre içindeki yazıyı sildiğimde hata verdi. On Error Resume Next in hataları es geçtiğini biliyorum, o yüzden yazdım, yanlış mı oldu acaba ?
 
Selamlar,

Aşağıdaki şekilde deneyiniz. Daha hızlı çalışır.

Kod:
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("A5:A20")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target = WorksheetFunction.Proper(Target)
Son: Application.EnableEvents = True
End Sub
 
Evet dediğiniz gibi hem daha hızlı çalışıyor, bekleme yapmıyor, hem de hata ortadan kalktı.
Rica etsem, yazdığınız kodların ne anlama geldiğini yazabilirsiniz.

Çok teşekkür ederim Korhan bey.
 
Selamlar,

Önerdiğim koddaki tek ince nokta Application.EnableEvents = False komutudur. Bu komutta uygulamadaki tüm olayları pasif eder. Bu şekilde sizin kod içinde verdiğiniz komuttan başka işlem yapılmaz. Buda kodun daha hızlı çalışmasına olanak verir. True komutu ile de tekrar aktif hale getiriyoruz.
 
Anladım Korhan bey.
Tekrar teşekkür ederim.
İyi geceler.
 
Geri
Üst