Adı küçük soyadı büyük harfle yazdırmak

mor45 · 19 Kasım 2007

Bir sütünda Ad ve sayadlar büyük harflerle yazılmış vaziyette var (İHSAN ADALAR) olarak 1000 yakın kişi Bu sütündaki kişilyeren isimlerini küçük harfle soyadlarınıda büyük harafle yazmasını istiyorum (İhsan ADALAR) gibi.
Lütfen Yardım.

hamitcan · 19 Kasım 2007

Aşağıdaki linki inceleyin.
http://www.excel.web.tr/showthread.php?t=17261&highlight=soyad

Necdet · 19 Kasım 2007

Merhaba,

Sütun üzerinde doğrudan yapmak istiyorsanız ekteki dosyayı inceleyiniz. A sütunu için geçerlidir.

Kod:

Sub soyad_ayir()
For i = 1 To Cells(65536, 1).End(xlUp).Row
    Ad = ""
    Soyad = ""
    a = Split(Cells(i, "A"), " ")
    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 & """)")
    Cells(i, "A") = Ad & " " & Soyad
Next i
End Sub

hsayar · 19 Kasım 2007

Hocam a1:a100 aralığındaki aşağıdaki verileri
hüseyin SayAr
Necdet Yesertener
Ahmet GüllÜOğlu
Mustafa Kemal Atatürk

vs şeklinde giden hatalıda yazılmış olan isimleri

yine a1:a100 aralığına
Hüseyin SAYAR
Necdet YESERTENER
Ahmet GÜLLÜOĞLU
Mustafa Kemal ATATÜRK
şeklinde yazacak makro nedir?

Sayın LeventM in özel mneü uygulamasında olduğu gibi yani seçili alanda işlemi yapacak

Kod:

Sub BHARF()
Dim x As Range
On Error Resume Next
If Selection.Count > 100 Then
MsgBox "Fazla Alan Se&#231;tiniz.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Exit Sub
End If
For Each x In Selection
x.Value = UCase(Replace(Replace((x.Value), "&#305;", "I"), "i", "&#304;"))
Next
End Sub

Saygılarımla

baydeniro · 19 Kasım 2007

Sayın Necdet Yesertener, paylaşım için teşekkürler. Elleriniz dert görmesin.

hsayar · 19 Kasım 2007

Kod:

Sub AdNormSoyadBuyuk()
Dim x As Range
On Error Resume Next
    
    If Selection.Count > 100 Then
        MsgBox "Fazla Alan Se&#231;tiniz.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
        Exit Sub
    End If
    
    For Each x In Selection
        Ad = ""
        Soyad = ""
        a = Split(x.Value, " ")
        
        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 & """)")
        x.Value = Ad & " " & Soyad
    Next
End Sub

şeklinde ben yaptım çalışıyor şimdilik hata almadım

limanC34 · 19 Kasım 2007

Sayın YEŞERTENER
İnanınki gönderdiğiniz minicik bir dosyayla özellikle biz sağlık sektöründeki memurların başının belası olan bir sorunu kökten çözdünüz.Neydi o canım öyle CAPS LOCK bas büyük bir daha bas küçük.ALLAH razı olsun.
Saygılarımla.

Necdet · 19 Kasım 2007

Sayın limanC34,

www.excel.web.tr sağolsun, bende buradan öğreniyorum bu kodları

mor45 · 20 Kasım 2007

Necdet_Yesertener' Alıntı:
Merhaba,

Sütun üzerinde doğrudan yapmak istiyorsanız ekteki dosyayı inceleyiniz. A sütunu için geçerlidir.

Kod:

Sub soyad_ayir() For i = 1 To Cells(65536, 1).End(xlUp).Row Ad = "" Soyad = "" a = Split(Cells(i, "A"), " ") 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 & """)") Cells(i, "A") = Ad & " " & Soyad Next i End Sub

Bu yapılanlar için teşekkür ediyorum
işimi gördü.
Ben size şunu sormak istiyorum hazırlanan makroyu exelde bir hüçrede çalışması için onu oraya nasıl monta ediyorsunuz bana açıklarmısınız. Sizin dosyanızda (adını yazım düzeni,Soyadını Büyük yap) denen yeri nasıl yaptınız .
Açıklarsanız sevinirim.

Necdet · 20 Kasım 2007

Merhaba,

Elimden geldiğince açıklamaya çalışayım. Yanlışım varsa arkadaşlar düzeltir.

Kod:

Sub soyad_ayir()
For i = 1 To [A65536].End(3).Row
    Ad = ""
    Soyad = ""
    a = Split(Cells(i, "A"), " ")   [COLOR=seagreen]'-- H&#252;cre de&#287;erini bo&#351;luklara g&#246;re dizine &#231;&#305;kart&#305;yor[/COLOR]
    For j = 0 To UBound(a) - 1      [COLOR=seagreen]' dizi eleman&#305;ndan 1 eksi&#287;i Ad olaca&#287;&#305; varsay&#305;ma g&#246;re d&#246;ng&#252;ye sokularak Ad belirleniyor[/COLOR]
        Ad = Trim(Ad & " " & a(j))  [COLOR=seagreen]'Dizinin Son eleman&#305; hari&#231; di&#287;erleri birle&#351;tiriliyor (ki bu Ad oluyor)[/COLOR]
    Next j
 
    Soyad = Trim(a(UBound(a)))      [COLOR=seagreen]'Dizinin Son eleman&#305;n&#305; verir (ki bu da Soyadd&#305;r)[/COLOR]
    Ad = Evaluate("=PROPER(""" & Ad & """)")        [COLOR=seagreen]'Ad&#305;na yaz&#305;m.d&#252;zeni (Proper) uygulan&#305;yor[/COLOR]
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")   [COLOR=seagreen]'Soyad&#305;na B&#220;Y&#220;KHARF (Upper) uygulan&#305;yor[/COLOR]
    Cells(i, "A") = Ad & " " & Soyad                [COLOR=seagreen]'Ayn&#305; h&#252;crede ad ve soyad birle&#351;tiriliyor[/COLOR]
Next i
End Sub

mor45 · 20 Kasım 2007

Excel sayfasında bir hücreye koymuş olduğun (derleme kutusunu ) olan yeri nasıl yapıştırdın bunu anlatmanızı istemiştim yada ben anlatamadım.

Necdet · 20 Kasım 2007

Merhaba,

Excel dersanesinde 3. sayfada makro ile dersler vardır incelemenizi öneririm.

http://www.excel.web.tr/showthread.php?t=3815

hsayar · 20 Kasım 2007

Necdet_Yesertener' Alıntı:

Merhaba,

Elimden geldiğince açıklamaya çalışayım. Yanlışım varsa arkadaşlar düzeltir.

Kod:

Sub soyad_ayir()
For i = 1 To [A65536].End(3).Row
    Ad = ""
    Soyad = ""
    a = Split(Cells(i, "A"), " ")   [COLOR=seagreen]'-- Hücre değerini boşluklara göre dizine çıkartıyor[/COLOR]
    For j = 0 To UBound(a) - 1      [COLOR=seagreen]' dizi elemanından 1 eksiği Ad olacağı varsayıma göre döngüye sokularak Ad belirleniyor[/COLOR]
        Ad = Trim(Ad & " " & a(j))  [COLOR=seagreen]'Dizinin Son elemanı hariç diğerleri birleştiriliyor (ki bu Ad oluyor)[/COLOR]
    Next j
 
    Soyad = Trim(a(UBound(a)))      [COLOR=seagreen]'Dizinin Son elemanını verir (ki bu da Soyaddır)[/COLOR]
    Ad = Evaluate("=PROPER(""" & Ad & """)")        [COLOR=seagreen]'Adına yazım.düzeni (Proper) uygulanıyor[/COLOR]
    Soyad = Evaluate("=UPPER(""" & Soyad & """)")   [COLOR=seagreen]'Soyadına BÜYÜKHARF (Upper) uygulanıyor[/COLOR]
    Cells(i, "A") = Ad & " " & Soyad                [COLOR=seagreen]'Aynı hücrede ad ve soyad birleştiriliyor[/COLOR]
Next i
End Sub

hocam açıklamalarınız için teşekkür ederimbana hücredeki kelime sayısını söyleyen kod lazım konu ile alakalı ama ben çözemedim yardımcı olabilirmisiniz?

Necdet · 20 Kasım 2007

Merhaba,

Kod:

Sub soyad_ayir()
a = Split([A1], " ")
MsgBox UBound(a)
End Sub

kodda A1 hücresindeki ad ve soyadın kaç sözükten oluştuğunu söyler.

Necdet Yeşertener = 1
Mustfa Kemal Atatürk = 2 değerini verir

(Dizinin 0 dan başladığını düşünmek gerek)

mor45 · 20 Kasım 2007

Sayın Neclet Yesertener ve hsayar
Bu yazdınız kodu exele dosya olarak atarmısınız .
Ben bir acemi olarak öğrenmek istiyorum. Şimdden teşekkürler.

Ali · 20 Kasım 2007

Buda formüllü çözüm olsun.

=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;" ";""))))))

mor45 · 21 Kasım 2007

Değerli kardeşim Ali
eline sağlık güzel olmuş ve formul işliyor.
Allah razı olsun çok işime yarayacak.

tahsinanarat · 21 Kasım 2007

yazdığınız anda dönüştürülmesini istiyorsanız;

Private Sub Worksheet_Change(ByVal Target As Range)
Set IntersectRng = Application.Intersect(Target, Range("A:Z"))
If Not IntersectRng Is Nothing Then
Target = WorksheetFunction.Proper(Trim(Target))
z = StrReverse(Target)
x = InStr(1, z, " ")
If x > 0 Then
y = Mid(z, 1, InStr(1, z, " "))
For i = 1 To Len

c = c & WorksheetFunction.Proper(Mid(y, i, 1))
Next
Target = Mid(Target, 1, Len(Target) - x) & StrReverse(c)
End If
End
End If
Set IntersectRng = Nothing
End Sub

hsayar · 22 Kasım 2007

Derlenmiş hali
http://www.excel.web.tr/showthread.php?t=40538

vitaminb1 · 9 Şubat 2008

Private Sub Worksheet_Change(ByVal Target As Range)
Set IntersectRng = Application.Intersect(Target, Range("A:Z"))
If Not IntersectRng Is Nothing Then
Target = WorksheetFunction.Proper(Trim(Target))
z = StrReverse(Target)
x = InStr(1, z, " ")
If x > 0 Then
y = Mid(z, 1, InStr(1, z, " "))
For i = 1 To Len

c = c & WorksheetFunction.Proper(Mid(y, i, 1))
Next
Target = Mid(Target, 1, Len(Target) - x) & StrReverse(c)
End If
End
End If
Set IntersectRng = Nothing
End Sub
yazdığımız anda dönüşüyor tam istediğim gibi fakat belgenin tamamına uygulaymakta. ben bu kodun yalnız 1 hücrede geçerli olmasını istiyorum örnek H12 hücresinde

Adı küçük soyadı büyük harfle yazdırmak

mor45

hamitcan

Uzman

Necdet

Moderatör

hsayar

baydeniro

hsayar

limanC34

Necdet

Moderatör

mor45

Necdet

Moderatör

mor45

Necdet

Moderatör

hsayar

Necdet

Moderatör

mor45

Ali

Özel Üye

mor45

tahsinanarat

hsayar

vitaminb1