Sadece İlk Harfleri Büyük Olsun

[yesilaski]

İyi Akşamlar,

Örneğin; A1 hücresine yazdığım "excel iyi ki varsın" yazısı formül kullanmadan "Excel İyi Ki Varsın" olsun yapabilir miyiz? Formül kullanamıyorum çünkü bu elle doldurulan bir form. Hücre Biçimlendirmede ki özel formatlar gibi birşey mümkün mü?

 

[monelogg]

Merhaba.

Aklıma iki yol geldi, bunları yazayım.

1. YOL:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'A sütununda bir değişiklik meydana geldiğinde
'metinsel ifadelerin ilk harfleri büyük harfe
'döndürüyor.
    
    If Target.Value = "" Then Exit Sub
    If Target.Column = 1 Then
        Target.Value = Application.WorksheetFunction.Proper(Target.Value)
    End If
End Sub

2. YOL:
Eğer koşullu biçimlendirme için formül kullanabiliyorsanız
Koşullu Biçimlendirme >>> Yeni Kural >>> Biçimlendirecek hücreleri belirlemek için formül kullan seçeneklerini takip edin.
Karşınıza çıkan kutucuğa (ben A1 hücresine göre yazıyorum) aşağıdaki formülü yazın.

=YAZIM.DÜZENİ(A1)

A sütunundaki diğer hücreler de metin yazdığınızda ilk harfi büyük harf olacaktır.

Umarım faydalı olur.

 

[steppe]

Değişik bir örnek:

Sub ilk_harfleri_buyuk()
Dim i As Long, x As Long, y As Long
For i = 1 To [A65536].End(3).Row
Cells(i, "A").Value = Application.Proper(LCase(Replace(Replace(Cells(i, "A").Value, "I", "ı"), "İ", "i")))
Next i
For x = 1 To [B65536].End(3).Row
Cells(x, "B").Value = Application.Proper(LCase(Replace(Replace(Cells(x, "B").Value, "I", "ı"), "İ", "i")))
Next x
For y = 1 To [C65536].End(3).Row
Cells(y, "C").Value = Application.Proper(LCase(Replace(Replace(Cells(y, "C").Value, "I", "ı"), "İ", "i")))
Next y
End Sub

A,B,C sütunlarında herhangi bir hücreye yazdığınız metinlerl bu makroyu çalıştırınca ilk kelimelerin ilk harflerini büyük harfe çevirir.

 

[yesilaski]

Merhaba.

Aklıma iki yol geldi, bunları yazayım.

1. YOL:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'A sütununda bir değişiklik meydana geldiğinde
'metinsel ifadelerin ilk harfleri büyük harfe
'döndürüyor.
    
    If Target.Value = "" Then Exit Sub
    If Target.Column = 1 Then
        Target.Value = Application.WorksheetFunction.Proper(Target.Value)
    End If
End Sub

2. YOL:
Eğer koşullu biçimlendirme için formül kullanabiliyorsanız
Koşullu Biçimlendirme >>> Yeni Kural >>> Biçimlendirecek hücreleri belirlemek için formül kullan seçeneklerini takip edin.
Karşınıza çıkan kutucuğa (ben A1 hücresine göre yazıyorum) aşağıdaki formülü yazın.

=YAZIM.DÜZENİ(A1)

A sütunundaki diğer hücreler de metin yazdığınızda ilk harfi büyük harf olacaktır.

Umarım faydalı olur.

Merhaba,




Koşullu biçimlendirme olursa süper olur çok işime yarar. Denedim ama değişen herhangi birşey olmadı.

 

[Erdem Akdemir]

Merhaba.

Aklıma iki yol geldi, bunları yazayım.

1. YOL:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'A sütununda bir değişiklik meydana geldiğinde
'metinsel ifadelerin ilk harfleri büyük harfe
'döndürüyor.
    
    If Target.Value = "" Then Exit Sub
    If Target.Column = 1 Then
        Target.Value = Application.WorksheetFunction.Proper(Target.Value)
    End If
End Sub

2. YOL:
Eğer koşullu biçimlendirme için formül kullanabiliyorsanız
Koşullu Biçimlendirme >>> Yeni Kural >>> Biçimlendirecek hücreleri belirlemek için formül kullan seçeneklerini takip edin.
Karşınıza çıkan kutucuğa (ben A1 hücresine göre yazıyorum) aşağıdaki formülü yazın.

=YAZIM.DÜZENİ(A1)

A sütunundaki diğer hücreler de metin yazdığınızda ilk harfi büyük harf olacaktır.

Umarım faydalı olur.

Sayın monelogg 2. yol'u nasıl yaptınız. Bende bir değişiklik olmadı.

 

[monelogg]

Merhabalar, siz yazınca farkına vardım yanlışlık yapmışım kusuruma bakmayın. :kafa:
Kurcalarken kodları silmeyi unuttuğumdan sonuç verdi diye düşündüm. Aslında düşündüğüm şey hatalıymış. Belki "İsteğe Uyarlanmış" seçeneği işimi görür diye düşündüm fakat o da araştırdığım kadarıyla mümkün değilmiş.

Bununla birlikte 2013 için
Veri >>> Hızlı Doldurma
Data >>> Flash Fill

seçeneği bu tarz büyük küçük harf işleri için de kullanılabiliyormuş.
Belki faydalı olabilir:
https://www.facebook.com/excelturkce/posts/505184022890982
http://www.wikihow.com/Change-from-Lowercase-to-Uppercase-in-Excel

 

[ilmtrz]

Teşekkürler.