ad soyad kesme

[pablo_76]

merhabalar ekte örnek dosyayı sunuyorum.
istediğim şöyle bir şey ad soyad bölümünün ayrı bir hücreye kesilerek almak.
ad soyad olanlarla birlikte iki isimli olanlarda var.buna göre bir makro hazırlanabilirmi?
şimdiden herkese teşekkür ederim.

 

[halit3]

sitede buna benzer bir sürü örnek var ben kendi uyguladığımı gönderiyorum

Function ADBUL(Sayi)
sat = 0
yat = 0
For j = 1 To Len(Sayi)
If Mid(Sayi, j, 1) = " " Then
sat = sat + 1
End If
Next j
For n = 1 To Len(Sayi)
If Mid(Sayi, n, 1) = " " Then
yat = yat + 1
If yat - 1 = sat - 1 Then
ADBUL = Mid(Sayi, 1, n - 1)
End If
End If
Next n
If sat = 0 Then
ADBUL = Mid(Sayi, 1, Len(Sayi))
End If
If ADBUL = 0 Then
ADBUL = ""
End If
Exit Function
End Function


Function SOYADBUL(Sayi)
For j = 1 To Len(Sayi)
If Mid(Sayi, j, 1) = " " Then
sat = j
End If
Next j
For n = 1 To Len(Sayi)
If Mid(Sayi, n, 1) = " " Then
SOYADBUL = Mid(Sayi, sat + 1, Len(Sayi))
End If
Next n
If SOYADBUL = 0 Then
SOYADBUL = ""
End If
End Function