TextBoxtaki Ad Soyadı ayırmak

[inFiesta]

Arkadaşlar userform üzerinde bir textbox veya comboboxtaki ad ve soyadı, başka textboxlara veya bir excel sayfasına ikiye ayrılmış şekilde aktarmak istiyorum. Bunu nasıl yapabilirim.

İlginiz için şimdiden Teşekkürler.

 

[Levent Menteşoğlu]

Ad ve soyad arasında bir boşluk olduğunu kabul ederek aşağıdaki kodu deneyin. Bunun için userform üzerinde 3 adet textbox oluşturun. Birinci textboxa ad ve soyadın yazıldığını kabul edersek aşağıdaki kod ikinci textboxa adı, üçüncü textboxa soyadı yazacaktır.

[vb:1:1a528dc37e]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
say = WorksheetFunction.FindB(" ", TextBox1.Value)
TextBox2 = Mid(TextBox1.Value, 1, say - 1)
TextBox3 = Mid(TextBox1.Value, say + 1, Len(TextBox1.Value))
End Sub
[/vb:1:1a528dc37e]

 

[inFiesta]

sayın leventm ilgilendiğiniz için çok teşekkürler.

Fakat 2 isimli olan kişilerde soyadı "ikinci ad ve soyad" olarak gösteriyor. Buna bir çözüm öneriniz var mı?

 

[ALPEN]

Fakat 2 isimli olan kişilerde soyadı "ikinci ad ve soyad" olarak gösteriyor. Buna bir çözüm öneriniz var mı?

http://www.excel.web.tr/viewtopic.php?p=4024#4024

 

[inFiesta]

Teşekkürler Alpen.