Ismin baş harfi büyük soy isim tamamen büyük

[turgayzeynep]

Hocam kolay gelsin
Ana Veri de B3 ve B29 sütunlarda isim ve soyisim yazılı
Makro ile Turgay CANDAN şeklinde yazmasını istiyorum

 

[Korhan Ayhan]

Merhaba,

Rica etsem linki inceleyip profilinizdeki bilgiyi güncellermisiniz.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[turgayzeynep]

Window 10 kullanıyorum

 

[Korhan Ayhan]

Paylaştığım linki incelediniz mi?

 

[turgayzeynep]

Paylaştığım linki incelediniz mi?

O linkte sadece başharfler büyük boşluktan sonra büyük yapmıyon

 

[alicimri]

Tek soy isim kullanılıyorsa kod aşağıda

Sub makro()
For i = 3 To 29
bol = Split(Cells(i, 2), " ")
say = UBound(bol)
For x = 0 To say
If x <> say Then
isim = isim & UCase(Mid(bol(x), 1, 1)) & Mid(bol(x), 1) & " "
Else
isim = isim & UCase(bol(x))
End If
Next
Cells(i, 2).Value = isim
isim = ""
Next
End Sub

 

[Mdemir63]

Sayın : @turgayzeynep Korhan Hocam sizin Excel versiyonunuzu düzeltmeniz için paylaşmış.

Ad Soyad için;
Siz aşağıdaki dosyayı inceleyiniz

 

[hakki83]

Tek soy isim kullanılıyorsa kod aşağıda

Sub makro()
For i = 3 To 29
bol = Split(Cells(i, 2), " ")
say = UBound(bol)
For x = 0 To say
If x <> say Then
isim = isim & UCase(Mid(bol(x), 1, 1)) & Mid(bol(x), 1) & " "
Else
isim = isim & UCase(bol(x))
End If
Next
Cells(i, 2).Value = isim
isim = ""
Next
End Sub

Alicimri hocamız merhaba

Kodlarda adın başharflerini büyük yapıp ekliyor.

Yani ali cimri

Aali CIMRI haline getiriyor.

Bir de bu kodların genelinde Türkçe karakter sorunu oluyor maalesef.

küçük ı harfi, küçük i harfi sorunu oluyor.

 

[alicimri]

Sayın @Hakkı83 haklısınız, kopyala yapıştır yaparken düzeltmeyi unutmuşum.

isim = isim & UCase(Mid(bol(x), 1, 1)) & Mid(bol(x), 1) & " "

satırını aşağıdaki kod ile değiştirin.

isim = isim & UCase(Mid(bol(x), 1, 1)) & Mid(bol(x), 2) & " "

küçük i sorununu çözemedim, araştırıyorum

 

[ÖmerFaruk]

küçük i sorunu için
Replace komutu kullanın derim. i=İ, ö:Ö gibi

 

[alicimri]

i sorunu da düzelmiş kod aşağıda

Sub makro()
For i = 3 To 29
bol = Split(Cells(i, 2), " ")
say = UBound(bol)
For x = 0 To say
If x <> say Then
isim = isim & UCase(Replace(Replace(Mid(bol(x), 1, 1), "i", "İ"), "ı", "I")) & Mid(bol(x), 2) & " "
Else
isim = isim & UCase(Replace(Replace(bol(x), "i", "İ"), "ı", "I"))
End If
Next
Cells(i, 2).Value = isim
isim = ""
Next
End Sub

 

[Korhan Ayhan]

@turgayzeynep,

Siz olayı yanlış anlamışsınız. Farkındaysanız profilinizde sadece "Excel versiyonu ve dili Türkçe" ifadesi yazıyor. Bu bilgi size verilecek cevaplar için çok yeterli değil.

Paylaştığım link bu yöndeydi.

Tekrar paylaşıyorum. Sanıyorum artık gerekli güncellemeyi yaparsınız.

Bilgi - Profillerde yazan "Ofis Sürümü ve Dili" bilgisi hakkında

Merhaba Değerli Forum Üyeleri, Belki dikkatinizi çekmiştir. Son zamanlarda birçok üyemize açtıkları başlıklarda cevap vermeden önce "Kullandığınız ofis sürümü ve dili nedir?" şeklinde mesaj yazıyorum. Bu alanın kullanım amacı sizlere verilecek cevaplar için önem arz etmektedir. Bu sebeple bu...

www.excel.web.tr

 

[hakki83]

i sorunu da düzelmiş kod aşağıda

Sub makro()
For i = 3 To 29
bol = Split(Cells(i, 2), " ")
say = UBound(bol)
For x = 0 To say
If x <> say Then
isim = isim & UCase(Replace(Mid(bol(x), 1, 1), "i", "İ")) & Mid(bol(x), 2) & " "
Else
isim = isim & UCase(Replace(bol(x), "i", "İ"))
End If
Next
Cells(i, 2).Value = isim
isim = ""
Next
End Sub

Hocam emeğinize sağlık.

ı harfini nasıl düzeltebiliriz? Mesela ışık yılmaz yazınca hiç büyütmüyor.

 

[alicimri]

#11 deki kodları düzelttim, deneyin