Hücredeki ilk harfin Büyük olması

[mrs303]

Forumda çok aradım ama bulamadım, elimde uzun bir yazı var ve excel de hücre içindeki ilk harfler hep küçük yazılmış. Otomatik olarak bunların ilk harflerini nasıl büyük yapabiliriz. Makro veya formül varmı ?

 

[alpi]

=yazim.dÜzenİ(a1)

 

[Kemal Demir]

=proper(a1)

Kaç Kelimeden Oluşursa oluşsun Kelime Başlangıclarını buyuk yapar.

kod ile

Düzenlenecek olan verilerinizi A kolonu varsayılarak aşagıdaki kod düzenlenmiştir.

Sub ilkharfbuyuk()
For x = 2 To [a65536].End(3).Row
Cells(x, 1).Value = WorksheetFunction.Proper(Cells(x,1))
Next
End Sub

 

[Kemal Demir]

İyi akşamlar,

Aslına bakarsanız mrs303 in sorusunun geri donusu olmadıgı ıcın sorunun cevabı yeterli oldugu kanısındayım.

Aslında Sn.alpi'nin de cevaplamasının üstüne cevaplamam gerekirdi diye dusundum. Ama forumumuzun temel mantıgında YARDIMLAŞ oldugunu dusunerek aşagıdaki bir başka cevabı paylaşmak istedim.

Umarım cozumu kodla ulaşmak isteyenler için alternatif bir kod olur dusuncesındeyım.Kod biraz uzun ama ne yapalım.(Daha Kısa kodlar yazarım ileride inşallah.)

Sub ilkharfibuyukyap()

'[b] İlgili düzeltmenin A kolonu olarak baz alınmıstır.[/b]
For x = 2 To [a65536].End(3).Row
deger = Right(Cells(x, 1).Value, Len(Cells(x, 1).Value) - 1)
ilkharf = UCase(Left(Cells(x, 1).Value, 1))
Cells(x, 1).Value = ilkharf & deger
Next
End Sub

İyi akşalamLar.

 

[mrs303]

Teşekkürler

Hepside güzel cevaplar yardımlarınız için çok çok teşekkür ederim.

 

[AS3434]

İyi akşamlar,
Aslında Sn.alpi'nin de cevaplamasının üstüne cevaplamam gerekirdi diye dusundum. Ama forumumuzun temel mantıgında YARDIMLAŞ oldugunu dusunerek aşagıdaki bir başka cevabı paylaşmak istedim.
.

Soruya cevap verilmiş ama, bu konuyla ilgili Sn. Haluk'un güzel bir çalışması var.
http://excel.web.tr/showthread.php?t=7611&highlight=casechange

 

[mrs303]

Makroyu Ekteki dosyaya ekleyebilirmisiniz?

Arkadaşlar makroları bir türlü ekteki dosyaya ekleyemedim, yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler.

 

[Kemal Demir]

Ek'teki Dosyayı inceleyiniz.