[ÇÖZÜLDÜ] Kelimelerin İlk Harflerinin Büyük Yapılması (makro ile)

[baydeniro]

Merhaba arkadaşlar. Belirli alandaki metinlere Yazım Düzeni formülünü makro ile uygulamak mümkün mü ? A1:A20 aralığındaki metinlerin nasıl yazılmış olursa olsun kelimelerin ilk harflerinin büyük harf ile yapılması makro ile mümkün mü ?

 

[ersoyalan]

Merhaba,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target = StrConv(Target, vbProperCase)
End Sub


denermisiniz.

E.ALAN

 

[uzmanamele]

merhaba

aşağıdaki kod işnizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
Target = Application.WorksheetFunction.Proper(Target)
End Sub

not:
sorularınıza tatminedici cevap aldığınızı düşünüyorsanız;
konu araçları / bu soruyu [ÇÖZÜLDÜ] olarak işaretle'yiniz

 

[baydeniro]

Sayın ersoyalan ve sayın uzmanmele yardımlarınız için çok teşekkür ederim. Sağolun varolun. Bir de Sub () makrosuna bağlı bir çözüm var mı ?

 

[uzmanamele]

merhaba

aşağıdaki kodlar işinizi görür mü?

Sub yazım_düzeni()
son = Range("a65536").End(xlUp).Row
For i = 1 To son
Range("a" & i) = Application.WorksheetFunction.Proper(Range("a" & i))
Next
End Sub

not:
sorularınıza tatminedici cevap aldığınızı düşünüyorsanız;
konu araçları / bu soruyu [ÇÖZÜLDÜ] olarak işaretle'yiniz

 

[baydeniro]

Sayın uzmanemele harikasınız. Çok çok teşekkür ederim. Sizlerin hakkını nasıl ödeyeceğiz. Sağlıcakla kalın.

 

[adamar]

aşağıdaki kodlar işinizi görür mü?

Sub yazım_düzeni()
son = Range("a65536").End(xlUp).Row
For i = 1 To son
Range("a" & i) = Application.WorksheetFunction.Proper(Range("a" & i))
Next
End Sub

not:
sorularınıza tatminedici cevap aldığınızı düşünüyorsanız;
konu araçları / bu soruyu [ÇÖZÜLDÜ] olarak işaretle'yiniz

YUKARDAKİ makro yu
tüm sayfa için veya seçili " Örnek: B "
aralığına uygulamak için nasıl bir yol izlemeliyim.

YARDIMCI OLABİLİRMİSNİZ.