Soru Ad Soyad ayır ve Aktar

[sirkülasyon]

Harf sekmesi C sütunu 6:50 arasında ad ve soyad yazılı.

Ad ve soyadı ayıracak Kod sayfasında
G sütunu 14. satırdan itibaren Adı
H sütunu 14. satırdan itibaren Soyadını
aktaracak bir makro koduna ihtiyacım var. Rica etsem yardımcı olabilir misiniz

 

[Suskun]

Eğer bir seferlik işlemse ad ve soyad sütununun yan sutununa ad onun yan sutununa da soyadı yazın hızlı iki sütünu seçip yukarıdan aşağıya Hızlı Doldur ile kopyalayın ad ve soyadlar ayrılmış olacak

 

[sirkülasyon]

Yok üstad
her ay yinelenecek bir işlem. Makro koduna bu yüzden ihtiyacım var

 

[FERAZ]

 

[FERAZ]

Merhaba.

Ve regex ile ad soyad ayırma diye aratın googlede.
Yada örnek dosya yükleyin gümüş üyeler için olan linke bakalım.

 

[Orion1]

Buyurun.

Sub adsoyad_ayir_59()
Dim adsoyad As String, ad, soyad_adsoy
Dim sonsat As Long, i As Long, sat As Long, j As Integer, adx As String
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
sat = 14
Range("G14:H" & Rows.Count).ClearContents
For i = 6 To sonsat
    adsoyad = Cells(i, "C").Value
    adsoy = Split(adsoyad, " ")
    For j = LBound(adsoy) To UBound(adsoy) - 1
        adx = adx & " " & adsoy(j)
    Next j
    Cells(sat, "G").Value = LTrim(adx)
    Cells(sat, "H").Value = adsoy(UBound(adsoy))
    sat = sat + 1
    adx = "": adsoyad = ""
Next
MsgBox "bitti"
End Sub

 

[sirkülasyon]

Evren Abi
Teşekkür ederim. Sağ olasın.Eline sağlık
Çözüldü.