• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

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
 
kusura bakmayın fazla bigim yok dosya üzerind eyapıp ekleseniz çok memnun olurum.
 
=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
 
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
 
Hocam Kurum bilgisayarı olduğundan linki açmıyor buradan dosyayaı paylaşırsanız memnun olurum
 
Sayın vurkan,

Size; emek ve paylaşım için de sayın Korhan Ayhan'a teşekkürler.
Sağ olun, var olun.
 
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.
 
papatya35' Alıntı:
=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
Genişletmek için tıkla ...
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;" ";""))))))
 
Son düzenleme:
vurkan' Alıntı:
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
Genişletmek için tıkla ...
evet çok kullanışlıymış bunu da kaydettim : )
 
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.

Kod: 
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
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst