iki hücrede otomotik yazım düzeni uygulama

[Yesilyurtlu]

Değerli üstadlarım;

A8:J8 birleştirilmiş hücresine girilen verilerin otomotik büyük harfe,
A9:J9 birleştirilmiş hücresine girilen verilerin de otomotik ilk harfleri büyük olacak şekilde olması için nasıl bir makro uygulayabilirim?

 

[leumruk]

Merhaba,
Aşağıdaki kodu deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Not Intersect(Target, Range("a8")) Is Nothing Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
Target = Evaluate("=upper(""" & Target & """)")
ElseIf Not Intersect(Target, Range("a9")) Is Nothing Then
If Target = "" Then Exit Sub
Target = Evaluate("=proper(""" & Target & """)")
End If
son:
Application.EnableEvents = True
End Sub

 

[Yesilyurtlu]

üstad
a8 sıkıntısız olarak işlem yapıyor.
Yalnız a9 ise " il milli eğitim" Yazdığım zaman "İl milli eğitim" olarak sadece ilk kelimenin ilk harfını büyük yapıyor. diğerlerinde işlem yapmıyor

 

[leumruk]

Kodu güncelledim. Yeniden deneyebilirsiniz.

 

[Yesilyurtlu]

üstad eline sağlık teşekkür ederim.
İşlem tamam.

Üstad VALİLİĞİ yazdığım zaman neden A8 de VALILIĞI olarak alıyor üstad.Sadece merak ettim

 

[leumruk]

Kod güncellendi. Yeniden deneyin.

 

[Yesilyurtlu]

üstad mükemmel olmuş

Allah ne muradın varsa versin.
Teşekkür Ederim

 

[leumruk]

üstad mükemmel olmuş

Allah ne muradın varsa versin.
Teşekkür Ederim

Rica ederim. İyi çalışmalar.