ad soyad büyük küçük sorusu

[mehteroglu1]

Herkese saygılarımla benim sorunum mesela bir hücreye isim soy isim yazıyorum Mehmet Teyfik MEHTEROĞLU
burada yazdığım isimin adının ilk harfleri büyük ve soyadının hepsi büyük olmasını istiyorum bu konuda yardımcı olursanız sevinirim saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. Sadece A sütununda çalışacaktır. Başka çözümlerde geliştirilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Target.TextToColumns Destination:=Target.Offset(0, 30), DataType:=xlFixedWidth
deg1 = Evaluate("=PROPER(" & """" & Target.Offset(0, 30) & """" & ")")
deg2 = Evaluate("=PROPER(" & """" & Target.Offset(0, 31) & """" & ")")
deg3 = Evaluate("=UPPER(" & """" & Target.Offset(0, 32) & """" & ")")
If deg3 = "" Then deg2 = Evaluate("=UPPER(" & """" & Target.Offset(0, 31) & """" & ")")
Target = deg1 & " " & deg2 & " " & deg3
Range(Target.Offset(0, 30), Target.Offset(0, 32)).ClearContents
Application.EnableEvents = True
End Sub

 

[Ali]

Fonksiyonlu örnek


=YAZIM.DÜZENİ(SOLDAN(A1;BUL("/";YERİNEKOY(A1;" ";"/";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))-1))&" "&BÜYÜKHARF(SAĞDAN(A1;UZUNLUK(A1)-BUL("*";YERİNEKOY(A1;" ";"*";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))))

 

[mehteroglu1]

teşekkürler

hocam çok teşekkür ederim ama bu kod 1 defa çalıştı benim istediğim herzaman çalışır vaziyette olacak yani isim yazılınca çalışacak otomatik olarak tabi bu herzaman aynı isim olmayacak öğrenci ismini kullanıyoruz selamlar

 

[Levent Menteşoğlu]

sadece bir kez çalışıyordan kastınızı anlayamadım.? A sütununa her veri girdiğinizde çalışacaktır. Diğer sütunlarda çalışmaz. Birde kodda bir hata vardı onuda düzelterek yeniledim. Tekrar deneyin.

 

[mehteroglu1]

ellerine sağlık

sadece bir kez çalışıyordan kastınızı anlayamadım.? A sütununa her veri girdiğinizde çalışacaktır. Diğer sütunlarda çalışmaz. Birde kodda bir hata vardı onuda düzelterek yeniledim. Tekrar deneyin.

ellerine sağlık hocam harika olmuş bu benim işimi gördü

 

[mehteroglu1]

teşekkürler

sayın hocam sayfada çalışmasını görünce inan bir daha teşekkür etmek içimden geldi inanınki harika bir olay çoooook teşekkür ederim saygılarımla

 

[Ali]

Hayırlı olsun.

 

[mehteroglu1]

hocam bir sorun çıktı

sayfayı kilitlediğimde bu fonksiyon çalışmıyor. Ne gibi bir işlem yapmam lazım

 

[idare]

bende h9 hücresine sürekli aynı hücrede değiştirdiğim ad soyad yazıyorum. ben ad yazınca başharf dışında küçük soyad yazınca büyük olmasını istiyorum. bu förmül yanı hücrede yapınca geçereli değil herhalde.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız. Sadece H9 hücresinde çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H9]) Is Nothing Then Exit Sub
    Ad = ""
    Soyad = ""
    a = Split(Target, " ")
    For j = 0 To UBound(a) - 1
        Ad = Trim(Ad & " " & a(j))
    Next j
    
    Soyad = Trim(a(UBound(a)))
    Ad = Evaluate("=PROPER(""" & Ad & """)")
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")
    Target = Ad & " " & Soyad
End Sub