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

[Civan Jack]

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.

 

[apostraf]

=yazım.düzeni(a2)

 

[Civan Jack]

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.

 

[Korhan Ayhan]

Selamlar,

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

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

 

[Civan Jack]

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.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajıma gerekli eklemeyi yaptım. İncelermisiniz.

 

[Civan Jack]

Çok teşekkürler Korhan bey.
Kodların başına on error resume next de ekledim, biraz yavaşlama oldu, notmal midir sizce ?

 

[Korhan Ayhan]

Selamlar,

Neden "On Error Resume Next" komutunu eklediniz?

 

[Civan Jack]

Çü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 ?

 

[Korhan Ayhan]

Selamlar,

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

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

 

[Civan Jack]

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.

 

[Korhan Ayhan]

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.

 

[Civan Jack]

Anladım Korhan bey.
Tekrar teşekkür ederim.
İyi geceler.