Soru Ad Soyad ayırma hk.

[balanar]

Merhaba,

Ekteki dosyada 2li 3lü isimler var. Benim istediğim şyöe bişey yapmak

A sutununa isimler B sutununa soyadları şeklinde. Ama 2li ve 3lü oldugu için en son kısmı B sutununa nasıl alabilirim

 

[1Al2Ver]

Merhaba,

Çözümlü dosyanız ektedir,

Önce Soyad bulunur, sonrasında Ad,

Kolay gelsin.

 

[balanar]

hocam F ve G sutunları yok normalde olmayacak yani onu kaldırıp denediğimde calısmıyor. Direk A sutunundaki veriye göre işlem yapması lazım

 

[Mdemir63]

Selamlar

Alternatif olsun

 

[1Al2Ver]

Merhaba,

Formül, Ad için "B" sütununa, soyad için "C" sütununa uygulandı,

Kolay gelsin.

 

[bafralifatih55]

Merhaba
Hızlı doldurmaya bu işi çok kolay yapabilirsiniz. Ayırmak istediğiniz sütunun yanındaki hücreye gelin ve ilk kaydın adını ve yanındaki hücreye soyadını yazın. akabinde Control+E tuşlarına basın.

 

[Levent Menteşoğlu]

Bir örnek dosyada ben ekliyorum.

 

[mhaluksen]

peki uzman arkadaşlar bunu makro ile nasıl yaparız.

 

[Levent Menteşoğlu]

peki uzman arkadaşlar bunu makro ile nasıl yaparız.

Aşağıdaki gibi deneyin.

Sub AD_SOYAD_AYIR()

For a = 1 To [a1048576].End(3).Row

bosluk = Split(Cells(a, "A"), " ")

Cells(a, "b") = Trim(Replace(Cells(a, "A"), bosluk(UBound(bosluk)), ""))
Cells(a, "c") = Trim(bosluk(UBound(bosluk)))

Next

End Sub

 

[mhaluksen]

Aşağıdaki gibi deneyin.

Sub AD_SOYAD_AYIR()

For a = 1 To [a1048576].End(3).Row

bosluk = Split(Cells(a, "A"), " ")

Cells(a, "b") = Trim(Replace(Cells(a, "A"), bosluk(UBound(bosluk)), ""))
Cells(a, "c") = Trim(bosluk(UBound(bosluk)))

Next

End Sub

teşekkürler üsatadım