AD KÜÇÜK SOYAD BÜYÜK OLSUN

[sedat2161]

İYİ GÜNLER EKTEKİ EXCEL DOSYASINDA ÖRNEK OLARAK YAZDIĞIM ŞAHISLARIN ADLARI KÜÇÜK SOADLARI BÜYÜL OLMASINI İSTİYORUM YARDIMCI OLURSANIZ SEVİNİRİM.

 

[papatya35]

Sub BuyukHarf()
For Each c In Selection.Cells
c.Value=Ucase$(c.Value)
Next c
End Sub
Sub KucukHarf()
For Each c In Selection.Cells
c.Value=Lcase$(c.Value)
Next c
End Sub

yada büyük harf küçük harf formüllerini kullanabilirsiniz

 

[sedat2161]

kusura bakmayın fazla bigim yok dosya üzerind eyapıp ekleseniz çok memnun olurum.

 

[papatya35]

=PROPER(LEFT(A4;FIND("*";SUBSTITUTE(A4;" ";"*";LEN(A4)-LEN(SUBSTITUTE(A4;" ";""))))-1))&" "&UPPER(RIGHT(A4;LEN(A4)-FIND("*";SUBSTITUTE(A4;" ";"*";LEN(A4)-LEN(SUBSTITUTE(A4;" ";""))))))
bunu dener misiniz
isim soyisim a4 de bu formül

 

[vurkan]

Arkadaşlar Merhaba Word programındaki Büyük Küçük Harf Değiştir Özelliği Korhan Ayhan Üstad tarafından Excel eklentisi olarak hazırlanmış. Ben yıllardır sağ klik yaparak menünün en altına gelen bu özelliği Allah razı olsun diye dua ederek kullanıyorum. Eklenti olduğu için bütün excel dosyalarımda aktif oluyor. Eklenti dosyasının linkini paylaşıyorum. İnşallah sizlerin de işinize yarar.

http://s7.dosya.tc/server8/a5j8wd/Buyuk_Kucuk_Harf_Degistir.xls.html

 

[sedat2161]

Hocam Kurum bilgisayarı olduğundan linki açmıyor buradan dosyayaı paylaşırsanız memnun olurum

 

[assenucler]

Sayın vurkan,

Size; emek ve paylaşım için de sayın Korhan Ayhan'a teşekkürler.
Sağ olun, var olun.

 

[vurkan]

Ben altın üye değilim. Olan bir arkadaş indirip paylaşabilir.
Sayın assenucler bilgi paylaştıkça değerli ve güzeldir. Sayın Ayhan gibi hiçbir karşılık beklemeden insanlara hizmet eden bir çok değerli şahsiyetler var bu forumda. Allah hepsinden razı olsun. Sizler de sağolun.

 

[ataköylü-59]

=PROPER(LEFT(A4;FIND("*";SUBSTITUTE(A4;" ";"*";LEN(A4)-LEN(SUBSTITUTE(A4;" ";""))))-1))&" "&UPPER(RIGHT(A4;LEN(A4)-FIND("*";SUBSTITUTE(A4;" ";"*";LEN(A4)-LEN(SUBSTITUTE(A4;" ";""))))))
bunu dener misiniz
isim soyisim a4 de bu formül

Sayın Korhan bey üstadın yazdığı, papatya35 in yüklemiş olduğu kodun Türkçesi, merak edenlere
=YAZIM.DÜZENİ(SOLDAN(A4;BUL("*";YERİNEKOY(A4;" ";"*";UZUNLUK(A4)-UZUNLUK(YERİNEKOY(A4;" ";""))))-1))&" "&BÜYÜKHARF(SAĞDAN(A4;UZUNLUK(A4)-BUL("*";YERİNEKOY(A4;" ";"*";UZUNLUK(A4)-UZUNLUK(YERİNEKOY(A4;" ";""))))))

 

[sedat2161]

A1 hücresindeki ad soyad içiin bu formülü nasıl kullanacağım

 

[ataköylü-59]

[U]sedat2161[/U] Merhaba
Formüllerdeki 4 rakamlarını 1 yapıp deneyin

 

[sedat2161]

oldu ilginiz için tüm arkadaşlara teşekkür ederim. saygılar

 

[papatya35]

Arkadaşlar Merhaba Word programındaki Büyük Küçük Harf Değiştir Özelliği Korhan Ayhan Üstad tarafından Excel eklentisi olarak hazırlanmış. Ben yıllardır sağ klik yaparak menünün en altına gelen bu özelliği Allah razı olsun diye dua ederek kullanıyorum. Eklenti olduğu için bütün excel dosyalarımda aktif oluyor. Eklenti dosyasının linkini paylaşıyorum. İnşallah sizlerin de işinize yarar.

http://s7.dosya.tc/server8/a5j8wd/Buyuk_Kucuk_Harf_Degistir.xls.html

evet çok kullanışlıymış bunu da kaydettim : )

 

[Necdet]

Merhaba,

Bir zamanlar yazdığım kodları ekleyim, Seçili hücrelerdeki Adları YAZIM.DÜZENİ'ne, Soyadları BÜYÜK HARF, KOYU ve RENKLİ yapar.
Eğer Koyu ve Renkli yazdırmak istemezseniz koddaki

Hcr.Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.Bold = True
Hcr.Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.ColorIndex = 1

satırları kullanayabilirsiniz.

Önce hücreleri seçip sonra kodları çalıştırmalısınız.

Sub AdKüçükSoyadBüyükKoyu()

    On Error GoTo Son
    
    Dim Ad      As String, _
        Soyad   As String, _
        Dizi()  As String, _
        i       As Integer, _
        Hcr     As Range
    
    For Each Hcr In Selection
    
        Dizi = Split(Hcr.Value, " ")
        Ad = ""
        Soyad = ""
        For i = 0 To UBound(Dizi) - 1
            Ad = Trim(Ad & " " & Dizi(i))
        Next i
        
        Ad = Application.WorksheetFunction.Proper(Ad)
        Soyad = Trim(Dizi(UBound(Dizi)))
        Soyad = Evaluate("=UPPER(""" & Soyad & """)")
        
        Hcr = Ad & " " & Soyad
        
        Hcr.Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.Bold = True
        Hcr.Characters(Len(Ad) + 1, Len(Soyad) + 1).Font.ColorIndex = 1
        
    Next Hcr
    
Son:

End Sub

 

[Haluk]

Forumdan bir link:

https://www.excel.web.tr/threads/hucrelerde-buyuk-kucuk-harf-uygulamalari.7611/

.