Metin içerisinden ad soyadı alma

[kbeydili]

merhaba,
Örnekte olduğu gibi, aynı sayfada b sütundaki metin içerisinden sadece ad, soyadı h sütuna nasıl yazdırırım

Yeni WinRAR arşivi.rar

[tasad]

Bu kodlar işinizi görür.

Kod: Tümünü seç

Sub Hucre_ayikla()
Dim deg As String, deg1 As String
Dim i As Long
Sayfa1.Range("h6:h10000").ClearContents

For i = 6 To Sayfa1.Range("a65000").End(3).Row
If Left(Sayfa1.Cells(i, "b"), 5) = "Banka" Then

deg = Split(Left(Sayfa1.Cells(i, "b"), WorksheetFunction.Search("Açk:", Sayfa1.Cells(i, "b"), 1) - 1), " ")(4)
deg1 = deg & " " & Split(Left(Sayfa1.Cells(i, "b"), WorksheetFunction.Search("Açk:", Sayfa1.Cells(i, "b"), 1) - 1), " ")(5)

Sayfa1.Cells(i, "h") = deg1

Else
deg = Split(Sayfa1.Cells(i, "b"), " ")(0)
deg1 = deg & " " & Split(Sayfa1.Cells(i, "b"), " ")(1)
Sayfa1.Cells(i, "h") = deg1

End If
Next

End Sub

[kbeydili]

Hocam merhaba,
Elinize sağlık, yapmak istediğim gibi olmuş.
örnekte belirttiğim konular düzelebilirse sevinirim.
saygılar.

Yeni WinRAR arşivi.rar

[tasad]

Bazı isim ve soyisim arasında çift boşluk bırakılmış veya yanlış yazılmış.
yeni kod eklesem bile tamamını almaz.
Bu yüzden alınmayan isimleri manuel olarak kendiniz düzeltmelisiniz.

[kbeydili]

hocam aynen
teşekkür ederim.

[GuardofDeath17]

bu sütuna girilen isim soyisimlerin bir listesi başka bir yerde var mı?