• DİKKAT

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

Adı,soyadını diğer hücreye Adı Soyadı ayrı ayrı yazılması

I

istanbulcahan

Katılım
11 Ocak 2008
Mesajlar
1,395
Excel Vers. ve Dili
Office 365 (Türkçe)
Adı,soyadını diğer hücreye Adı Soyadı ayrı ayrı yazılması örnek dsya ektedir.
 

Ekli dosyalar

Linki inceledim. Üstadım. Çok güzel çaışma olmuş, eline emeğine sağlık.
 
Necdet Yeşertener' Alıntı:
Merhaba,


Ad Soyad Ayırma Örnekleri (Fonksiyon ve VBA) inceleyiniz.
Genişletmek için tıkla ...

Daha önce bu çalışmanızdan faydalanmıştım. Teşekkürler.
a) Mehmet Öztaş olunca ad ve soyad ayır makrosunu çalıştırınca sonuç ad bölümüne : Mehmet soyad bölümüne: Öztaş yazmaktadır.
b)MehmetÖztaş olunca ad ve soyad ayır makrosunu çalıştırınca sonuç soyad bölümüne: MehmetÖztaş yazmaktadır.

Bu durumda a şıkkında sıkıntı yok. Sıkıntı b şıkkında aşıkkındaki gibi ad ve soyadların ayrı ayrı yazması nasıl mümkün olabilecek.
 

Ekli dosyalar

Son düzenleme:
Necdet Yeşertener' Alıntı:
Merhaba,

http://www.excel.web.tr/f14/ban-no-duzeltilmesi-ady-ve-soyad-ayry-ayry-t92917.html

linkinde de buna benzer konu vardı ve yanıtladığımı sanıyorum.
Genişletmek için tıkla ...
Doğrudur üstadım. Hepiniz çok yardımcı oluyorsunuz. Çok teşekkür ediyorum, sizlere burada
1.dosyada : Adı ve soyadı: AhmetHan olarak ad soyad olduğunda "düzelt" dediğimizde makroyu çalıştırdığımızda gerekli düzeltme olmuyor.


Adı ve soyadı: Ahmet Han olarak ad soyad olduğunda "düzelt" dediğimizde makroyu çalıştırdığımızda oluyor.
 

Ekli dosyalar

Merhaba,

Yine sağ gösterip sol vuruyorsunuz.

Linkini verdiğim sizin sorunuzda ad ve soyad bitişik yazılıyor ama adın ve soyadın ilk karakteri büyük harf idi.

Ben orada onları kontrol ederek kodları yazdım.

Son gönderdiğiniz dosyalarda ise ad ve soyad bitişik ama soyadın tamamı büyük harf. Bu durumda yazılacak kodlar elbette farklı olacaktır.

Daha önce beni yazdığım ad soyad ayır makrosu ise namusuyla yani dil kurallarına uygun ad ve soyadı ayırır, bitişik olanları değil.

Siz konuyu açık açık ortaya koymalısınız, ya girilen ad soyad AbcdEfg olmalı, ya AbcDEFG olmalı her iki halde yazılacak kodlar farklı olacaktır.
Yani veriler bir sisteme göre olmalıdır.

Birde anlamıyorum Ad ve Soyad neden boşluk karakteriyle birleştirilmez ?
 
Necdet Yeşertener' Alıntı:
Merhaba,

Yine sağ gösterip sol vuruyorsunuz.

Linkini verdiğim sizin sorunuzda ad ve soyad bitişik yazılıyor ama adın ve soyadın ilk karakteri büyük harf idi.

Ben orada onları kontrol ederek kodları yazdım.

Son gönderdiğiniz dosyalarda ise ad ve soyad bitişik ama soyadın tamamı büyük harf. Bu durumda yazılacak kodlar elbette farklı olacaktır.

Daha önce beni yazdığım ad soyad ayır makrosu ise namusuyla yani dil kurallarına uygun ad ve soyadı ayırır, bitişik olanları değil.

Siz konuyu açık açık ortaya koymalısınız, ya girilen ad soyad AbcdEfg olmalı, ya AbcDEFG olmalı her iki halde yazılacak kodlar farklı olacaktır.
Yani veriler bir sisteme göre olmalıdır.

Birde anlamıyorum Ad ve Soyad neden boşluk karakteriyle birleştirilmez ?
Genişletmek için tıkla ...

eleştirilerde haklısın üstadım. 50 ye yakın word ve excel dosyasında hakemlerin personelin ad ve soyadları İstanbul ili genelinde çeşitli tesislerden bize geliyor. bazılarında bitişik bazılarında araları açık bundan bir sıkıntı yaşadım.

Ozaman 50 ye yakın word ve excel dosyasında bitişiklerin arasını boşluk veren bir makro lazım bana bunla bu makroyu çalıştırıp, düzeltme işlemini yapayım.
Yaardımlarınız için teşekkürler.
 
Merhaba,

Siz ad ve soyadları bitişik ve aynı formata sahip olan örnek bir dosya hazırlayınız. Yardımcı olacak arkadaş mutlaka bulunur.

Üzerinde Fazla düşünmeden yaptığım örneği inceleyiniz.

Format : AaaaaBbbbb şeklinde olmalı

Kod: 
Sub BitisikAdSoyad()
    Dim i   As Long
    Dim j   As Integer
    Dim m   As String
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        m = StrReverse(Trim(Cells(i, "A")))
        For j = 1 To Len(m)
            If Mid(m, j, 1) Like "[A-Z#ÇĞİÖŞÜ]" Then
                Cells(i, "C") = Right(Cells(i, "A"), j)
                Cells(i, "B") = Replace(Cells(i, "A"), Cells(i, "C"), "")
                Exit For
            End If
        Next j
    Next i
End Sub
 

Ekli dosyalar

Çift isimleri ayırmıyor üstadım.ŞerifAliŞensazlı yazdım. ŞerifAli Şensazlı şeklinde ayırdı
 
Tekrar Merhaba,

Aşağıdaki kodlar :

AaaBbbbb
AaaBbbCccc
AaaBbbCCC

gibi biçimdeki sözcükleri ayırmaktadır. Kodları inceleyiniz.

Verilerin A sütununda olduğu varsayılmıştır.

Kod: 
Sub Ad_Soyad_Duzenle()
    Dim a
    Dim i       As Long
    Dim j       As Integer
    Dim Ad      As String
    Dim Soyad   As String
    Dim AdSoy   As String
 
    Application.ScreenUpdating = False
 
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
 
        AdSoy = Trim(Cells(i, "A"))
        AdSoy = Duzelt(AdSoy)
        Ad = ""
        Soyad = ""
        a = Split(AdSoy, " ")
 
        If UBound(a) = 0 Then
            Ad = Trim(AdSoy)
        Else
            For j = 0 To UBound(a) - 1
                Ad = Trim(Ad & " " & a(j))
            Next j
            Soyad = Trim(a(UBound(a)))
        End If
 
        Cells(i, "B") = Ad
        Cells(i, "C") = Soyad
 
    Next i
    Application.ScreenUpdating = True
 
    MsgBox "Ad ve Soyad Ayrılmıştır...", vbInformation, "Necdet YEŞERTENER - [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

Kod: 
Function Duzelt(AdSoyad As String)
    Dim d()     As String
    Dim Adet    As Integer
    Dim i       As Integer
    Dim j       As Integer
    Dim Metin   As String
    Dim Sonuc   As String
 
    Metin = " " & AdSoyad
    Adet = Len(Metin)
    ReDim d(Adet + 10)
    j = -1
 
    For i = 2 To Adet
        If Mid(Metin, i, 1) Like "[A-Z#ÇĞİÖŞÜ]" And _
           Mid(Metin, i - 1, 1) Like "[!A-Z#ÇĞİÖŞÜ]" Then
            j = j + 1
            d(j) = " "
        End If
        j = j + 1
        d(j) = Mid(Metin, i, 1)
    Next i
 
    Sonuc = ""
    For i = 0 To UBound(d)
        Sonuc = Sonuc & d(i)
    Next i
 
    Duzelt = Trim(Sonuc)
End Function
 

Ekli dosyalar

Necdet Yeşertener' Alıntı:
Tekrar Merhaba,

Aşağıdaki kodlar :

AaaBbbbb
AaaBbbCccc
AaaBbbCCC

gibi biçimdeki sözcükleri ayırmaktadır. Kodları inceleyiniz.

Verilerin A sütununda olduğu varsayılmıştır.

Kod: 
Sub Ad_Soyad_Duzenle()
    Dim a
    Dim i       As Long
    Dim j       As Integer
    Dim Ad      As String
    Dim Soyad   As String
    Dim AdSoy   As String
 
    Application.ScreenUpdating = False
 
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
 
        AdSoy = Trim(Cells(i, "A"))
        AdSoy = Duzelt(AdSoy)
        Ad = ""
        Soyad = ""
        a = Split(AdSoy, " ")
 
        If UBound(a) = 0 Then
            Ad = Trim(AdSoy)
        Else
            For j = 0 To UBound(a) - 1
                Ad = Trim(Ad & " " & a(j))
            Next j
            Soyad = Trim(a(UBound(a)))
        End If
 
        Cells(i, "B") = Ad
        Cells(i, "C") = Soyad
 
    Next i
    Application.ScreenUpdating = True
 
    MsgBox "Ad ve Soyad Ayrılmıştır...", vbInformation, "Necdet YEŞERTENER - [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

Kod: 
Function Duzelt(AdSoyad As String)
    Dim d()     As String
    Dim Adet    As Integer
    Dim i       As Integer
    Dim j       As Integer
    Dim Metin   As String
    Dim Sonuc   As String
 
    Metin = " " & AdSoyad
    Adet = Len(Metin)
    ReDim d(Adet + 10)
    j = -1
 
    For i = 2 To Adet
        If Mid(Metin, i, 1) Like "[A-Z#ÇĞİÖŞÜ]" And _
           Mid(Metin, i - 1, 1) Like "[!A-Z#ÇĞİÖŞÜ]" Then
            j = j + 1
            d(j) = " "
        End If
        j = j + 1
        d(j) = Mid(Metin, i, 1)
    Next i
 
    Sonuc = ""
    For i = 0 To UBound(d)
        Sonuc = Sonuc & d(i)
    Next i
 
    Duzelt = Trim(Sonuc)
End Function
Genişletmek için tıkla ...
Eline sağlık üstadım.
 
Hocam "AdSoy" değerine atama yapılırken boşlukları silen bir kod koydukmu (Replace," ","") Aaaaa BBBBB, Aaaaa Bbbbb, Aaaaa Bbbbb CCCC, şeklindeki yazımlarıda düzeltir çok güzel.
 
şimdi karşıma bir sorun çıktı çift soyisimli olanlar (kızlık ve eş soyismini aynı anda kulnnanların yazımının düzeltilmesi.

Verile a sütununda b sütununa
AdıSoyadı Adı SOYADI
AdıİkinciadıSoyadı Adı İkinciadı SOYADI
Adıİkinciadı(Kızlıksoyadı)Soyadı Adı İkinciadı KIZLIKSOYADI SOYADI


not: hocam soyisimlerin sadece ilk harfi büyükyazolmış olduğu gibi, tamamıda büyük harfle yazılmış olabilir.
gibi yazmak mümkün mü?
 
hsayar' Alıntı:
şimdi karşıma bir sorun çıktı çift soyisimli olanlar (kızlık ve eş soyismini aynı anda kulnnanların yazımının düzeltilmesi.

Verile a sütununda b sütununa
AdıSoyadı Adı SOYADI
AdıİkinciadıSoyadı Adı İkinciadı SOYADI
Adıİkinciadı(Kızlıksoyadı)Soyadı Adı İkinciadı KIZLIKSOYADI SOYADI


not: hocam soyisimlerin sadece ilk harfi büyükyazolmış olduğu gibi, tamamıda büyük harfle yazılmış olabilir.
gibi yazmak mümkün mü?
Genişletmek için tıkla ...

Klasik usulü kullanmak gerek, el ve göz nuruyla :)

Sadece varsayım olur eğer 4 ayrı sözcük varsa bunun son ikisi soyaddır demek.
 
Necdet Yeşertener' Alıntı:
Klasik usulü kullanmak gerek, el ve göz nuruyla :)

Sadece varsayım olur eğer 4 ayrı sözcük varsa bunun son ikisi soyaddır demek.
Genişletmek için tıkla ...
bazen iki bazen bazen üç bazen de dört... ancak parantez içindeki kelime olduğu zaman son ikisi soyisim oluyor.

HüseyinSAYAR
AliKemalÇALLIOĞLU
Hayriye(Ateş)Engin
GülÇiçek(GÜLER)Saatçioğlu
GülÇiçekSaatçioğlu(GÜLER)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst