Sadece isimleri küçük harfe çevirmek

[Mdemir63]

Arkadaşlar merhabalar,

Ekteki örnek dosyada açıkladığım gibi sadece isimleri küçük harf yapmak istiyorum. Nasıl yapabilirim.

Saygılar

 

[metinozlu]

1. aşama isim ve soyadları ayrı hücrelere al.
2.aşama yazım.düzeni formülü ile Adların ilk harfi büyük olmak üzere küçük harfe çevirebilirsin
3.aşama sonra birleştir formülü ile isim ve soy isimi birleştir.

 

[veyselemre]

Sub Duzenle()
    For x = 2 To [a65536].End(3).Row
        Cells(x, 2) = cevir(Cells(x, 1))
    Next x
End Sub

Function cevir(giris As String)
    veri = Split(giris)
    For x = 0 To UBound(veri) - 1
        veri(x) = WorksheetFunction.Proper(veri(x))
    Next x
    veri(UBound(veri)) = UCase(veri(UBound(veri)))
    cevir = Join(veri)
End Function

 

[Orion1]

Merhaba.
Ekli dosyadaki gibi bir şey hazırladım.Ama bilmem işinizi görürümü?
C sütununa listeler.

Sub kücük_harf()
Dim i As Long, k As Integer, j As Integer
Range("C2:C65536").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value <> "" Then
        For k = 1 To Len(Cells(i, "A").Value)
            If Mid(Cells(i, "A").Value, k, 1) = " " Then Exit For
            harf = Mid(Cells(i, "A").Value, k, 1)
            If k = 1 Then
                metin = metin & WorksheetFunction.Proper(harf)
            Else
            metin = metin & LCase(Replace(Replace(harf, "İ", "i"), "I", "ı"))
            End If
        Next
        For j = k To Len(Cells(i, "A").Value)
            metin = metin & Mid(Cells(i, "A"), j, 1)
        Next
    End If
    Cells(i, "C").Value = metin
    harf = "": metin = ""
Next
MsgBox "İŞLEM TAMAMLANDI..!!"
End Sub

 

[Mdemir63]

Merhaba.
Ekli dosyadaki gibi bir şey hazırladım.Ama bilmem işinizi görürümü?
C sütununa listeler.

Sub kücük_harf()
Dim i As Long, k As Integer, j As Integer
Range("C2:C65536").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value <> "" Then
        For k = 1 To Len(Cells(i, "A").Value)
            If Mid(Cells(i, "A").Value, k, 1) = " " Then Exit For
            harf = Mid(Cells(i, "A").Value, k, 1)
            metin = metin & LCase(Replace(Replace(harf, "İ", "i"), "I", "ı"))
        Next
        For j = k To Len(Cells(i, "A").Value)
            metin = metin & Mid(Cells(i, "A"), j, 1)
        Next
    End If
    Cells(i, "C").Value = metin
    harf = "": metin = ""
Next
MsgBox "İŞLEM TAMAMLANDI..!!"
End Sub

Hocam merhaba,

Benim istediğim gibi olmuş ama isimlerin sadece baş harfini büyük yaptıramazmıyız

Saygılar

 

[Mahmut Bayram]

Sub Duzenle()
    For x = 2 To [a65536].End(3).Row
        Cells(x, 2) = cevir(Cells(x, 1))
    Next x
End Sub

Function cevir(giris As String)
    veri = Split(giris)
    For x = 0 To UBound(veri) - 1
        veri(x) = WorksheetFunction.Proper(veri(x))
    Next x
    veri(UBound(veri)) = UCase(veri(UBound(veri)))
    cevir = Join(veri)
End Function

Bunu denediniz mi?

 

[Orion1]

Düzenlemeyi yaptım.
Önceki mesajımdan indirebilirsiniz.

 

[Mdemir63]

Bunu denediniz mi?

Hocam merhaba,

Bu kodları modül içine kopyaladım bir düğmeye atadım çalıştırdım ama bir sonuç alamadım

Saygılar

 

[Mahmut Bayram]

Nasıl alamadınız ben bizzat denedim.
Ve arşive attım bu kodları.

 

[Mdemir63]

Sezar hocam

Ben sadece İsmin baş harfini büyük yaptırabilirmiyiz demiştim soyisim aynen kalsın istiyordum. Acaba benim bu dediğim şekilde olabilir mi?

Saygılar

 

[Mahmut Bayram]

Tekrar deneyin mutlaka olacaktır. Bende çalışıyor.
Şimdi tekrar denedim.

 

[Mdemir63]

Nasıl alamadınız ben bizzat denedim.
Ve arşive attım bu kodları.

Hocam merhaba,

Vallahi izah ettiğim gibi denedim olmadı mutlaka bir yerde yanlış yapıyorumdur. Size zahmet benim dosyam üzerinde deneyebilirmisiniz?

Saygılar

 

[Orion1]

Merhaba.
Dosyayı güncelledim.Deneyebilirsiniz.
Ayrıca Sayın veyselemre hocamın kodlarıda çalışıyor.
B sütununda listeleme yapıyor.

 

[Mahmut Bayram]

Ufak bir yanlış anlama olmuş biz b sütununu yapıyor diyorduk
siz A yı istemişsiniz.

Sub Duzenle()
    For x = 2 To [a65536].End(3).Row
        Cells(x, 1) = cevir(Cells(x, 1))
    Next x
End Sub

Function cevir(giris As String)
    veri = Split(giris)
    For x = 0 To UBound(veri) - 1
        veri(x) = WorksheetFunction.Proper(veri(x))
    Next x
    veri(UBound(veri)) = UCase(veri(UBound(veri)))
    cevir = Join(veri)
End Function

 

[Mdemir63]

Tüm emeği geçenlere çok teşekkür ederim. Ellerinize sağlık

Saygılarımı sunarım

 

[Mahmut Bayram]

Teşekkürü üstad veyselemre ve Orion a edin ben aracıyım

 

[Mdemir63]

Teşekkürü üstad veyselemre ve Orion a edin ben aracıyım

Hocam mesajımda tüm emeği geçenlere teşekkür ettim. Ama yinede SN: VEYSEL ve SN. SEZAR (ORİON2) hocalarıma da bir kez daha teşekkürler

Saygılar sunarım