Ad Soyad Bilgisini Ayrı Hücrelere Alma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub AdSoyadAyir()
Dim tamAd As String
Dim adlar() As String
Dim hedefHucre As Range
' Tam adın alınacağı hücre
tamAd = Range("A1").Value
' Ad ve soyadı boşluk karakterine göre ayır
adlar = Split(tamAd, " ")
' Ayrılmış adı A2 hücresine yaz
Range("A2").Value = adlar(0)
' Eğer soyad varsa, A3 hücresine yaz
If UBound(adlar) > 0 Then
Range("A3").Value = adlar(UBound(adlar))
Else
Range("A3").Value = ""
End If
End SubAçıklama
Bu örnek, ad ve soyadın tek bir boşlukla ayrıldığı varsayımına dayanmaktadır. Eğer adınız birden fazla isimden oluşuyorsa, bu kod sadece ilk ve son ismi alacaktır. İhtiyacınıza göre kodu düzenlemekte özgürsünüz.Faydalanılması temennisiyle