adı-soyadı

[birader]

ekli dosyada açıklamaya çalıştım.yardımcı olurmusunuz.teşekürler

 

[iaydin20]

ekli dosya işinizi görür umarım
ancak ayırma işleminin gerçekleşmesi için ayrılacak ad-soyad bölümünü seçmeniz gerekiyor

 

[Skorpiyon]

Sayın birader,

"Veri - Metni Sütunlara Dönüştür" yöntemi ile yapabilirsiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AYIR()
Dim S, SUT As Integer
S = 2
For SUT = 2 To Cells(65536, "A").End(3).Row
Cells(S, "D") = Split(Cells(SUT, "A"), " ")(0)
Cells(S, "E") = Split(Cells(SUT, "A"), " ")(1)
S = S + 1
Next
End Sub

 

[birader]

teşekürler biraz geç oldu.

 

[cems]

Bülbülün çektiği , dilinden... diyen ne doğru söylemiş..
Sizin için de galiba burada bir tabur excel'i çözebilenin sizin sorunuzu beklemediğini , müsait olduğunda foruma girip karşılaştığı sorulara zamanını verip bildiğince üstelik doğru cevap verdiğini ve bunların birbirinden bağımsız ama sadece yardımlaşma duygusuyla yapıldıgını ve bütün bunların da sizin ihtiyaç zamanınızla bağlantılı olmadığını , alternatif çözüme de ihtiyacınız olabileceğinizi anlamanız için geç olacak !
Söylenmeyi düşünürseniz; sadece yardım eden iyiniyetli bir kalbe fütursuzca yazdığınız üç kelimeyi tekrar okumanız ve düşünmeniz daha mantıklı olur...

 

[Necdet]

Merhaba,

Aşağıdaki linki de inceleyebilirsiniz.


http://www.excel.web.tr/search.php?searchid=697396# Ad Soyad Ayırma Örnekleri (Fonksiyon ve VBA)