ilk harfleri büyük yapmak

[seriken]

excel de yazı yazarken ilk harfleri otomatik olarak büyük harfe nasıl dönüştürebilirim. diğer forumlara da baktım ama açıklayıcı bir şey bulamadım. yardımcı olursanız sevinirim

 

[ismailavci]

Aşağıdaki linkte birden fazla konu başlığında büyük-küçük harf değişikliğini bulabilirsin.

http://www.excel.web.tr/search.php?searchid=911808

 

[sütçü]

=YAZIM.DÜZENİ fonksiyonunu kullanın.

 

[seriken]

Bu kadar hızlı cevap alacağımı düşünmemiştim teşekkürler. gönderdiğiniz linkten formül çubuğuna "BÜYÜKHARF(hücre)" yazmam gerektiği yazılmış. yazıyorum ama yapamıyorum. nerede yanlış yapıyorum acaba yardım eder misiniz?

 

[ozgretmen]

=YAZIM.DÜZENİ fonksiyonunu kullanın.

A1 hücresinde diyelimki ozgretmen yazıyor olsun. B1 hücresine =YAZIM.DÜZENİ(A1) yazar iseniz Ozgretmen oluşacaktır.

 

[seriken]

örnek için teşekkürler. sizin verdiğiniz örnekten hareketle B1 hücresine =YAZIM.DÜZENİ(A1) yazdım ve A1 hücresine bütün harflerini küçük yazdığım kelime B1 hücresinde ilk harfi büyük olarak yazıldı. Peki sonra ne yapmam gerekiyor? 1000 den fazla veri girmem gerekiyor. Aynı işlemi tekrarlamadan nasıl yapabilirim?

 

[mami68]

Bunu denermisiniz.

 

[mami68]

Sayfa koduna yapıştırın.

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

 

[ozgretmen]

Alternatif olsun Sayfanın Kod Bölümüne ekleyiniz)

Private Sub Worksheet_Change(ByVal Target As Range)
i = ActiveCell.Row - 1
j = ActiveCell.Column
Cells(i, j).Value = WorksheetFunction.Proper(Cells(i, j).Value)
End Sub

 

[seriken]

galiba yaptım. öncelikle b1 hücresine =YAZIM.DÜZENİ(A1) yazdım ve enter dedim. sonra b1 hücresini mouse la aşağı çekerek a1,a2,a3,... hücreleri için formulü oluşturdum. örnek bir kaç veriyi a1 e girip b2 de ilk harfleri büyük verileri oluşturdum. b2 deki verileri kopyalayıp başka bir sütuna kopyaladım. a ve b sütununu silerek yerine tekrar sütun ekledim. diğer bir sütuna kopyaladığım verilerimi yeni oluşturduğum sütuna özel yapıştır komutundan "değerler" seçili olarak yapıştırdım. çok teşekkürler yardımlarınız için...

 

[seriken]

Sayfa koduna yapıştırın.

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

sayfa kodu hakkında hiç bir şey bilmiyorum. ama öğrenmek isterim verdiğiniz kodları nasıl girebilirim?

 

[ozgretmen]

Sayın Korhan Ayhan Bey'in hazırlamış olduğu çalışma linki aşağıda.İnceler iseniz çok işinize yarayacaktır.İyi çalışmalar...
http://www.excel.web.tr/f60/sayfaya-ait-kodlar-ve-uygulama-yontemleri-resimli-anlat-t57064.html

 

[seriken]

kodlar sayesinde işim çok kolaylaştı. hepinize çok teşekkür ederim. iyi ki varsınız...

 

[mami68]

Cevap veremedim Bilgisayardan uzaklaştım iyiki başarmısınız,iyi çalışamalar.

Her sütunda geçerlidir vermiş olduğum kodları.

 

[ferhat0606]

teş..............

 

[seanun]

ilk harf büyütme

yazım.düzeni komutu ile yapınca haliyle sadece ilk harfler büyük diğerleri küçük oluyor.. benim yapmak istediğim aşağıdaki gibidir. yardımcı olabilicek arkadaşlar varsa şimdiden teşşekür ederim

yazım.düzeni komutu sonucu : : Egr Akışı Yüksek Anormal
benim istediğim düzen : : EGR Akışı Yüksek Anormal

yani yazdığım kısaltmaların da harflerini küçültüyor.. bunun bir ayarı varmı yoksa fazla şeymi bekliyoruz excelden

 

[Levent Menteşoğlu]

Kısaltmaların ilk kelime olduğunu varsayarak metnin A1 hücresinde olduğunu kabul edersek aşağıdaki gibi bir formül istediğiniz işlemi yapacaktır.

=BÜYÜKHARF(SOLDAN(A1;MBUL(" ";A1)))&" "&SAĞDAN(A1;UZUNLUK(A1)-MBUL(" ";A1))

 

[abdib]

Sayfa koduna yapıştırın.

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

çok aramıştım bulamamıştım. excel 2003 te bunu yaptım oldu BÜYÜKTE yazsam küçükte yazsam kARışıKta olsa herzaman sözcüklerin baş harflerini büyük sonrakileri küçük yapıyor.
Teşekkürler mami68

 

[Sedatkocabaslar]

Teşekkür

Çok teşekkür ederim, paylaşımınız için..

 

[gamehunter]

Başlık biraz eski ama aşağıdaki kod işime yaradı. Kelimelerin sadece baş harfini büyük yapmaya çalışıyordum ararken bu kodu buldum.

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

Fakat birden fazla hücreyi seçip içerisini silmek için DELETE tuşuna bastığımda

Run-time error 13
Type mismatch

diye uyarı penceresi açılıyor. sebebi nedir?