VBA ile ayır

[ofbalki]

Arkadaşlar ekteki UserForm da, ComboBox1 e "adı soyadı" yazıldığında, TextBox1 de "adı", TextBox2 de "soyadı" otomatik çıksın istiyorum.

Bu konuyla ilgili arama yaptırdım fakat, tatmin edici bir sonuca ulaşamadım.

Belki basit bir makrodur ama ben amatörce uğraştığım için ve de, kod üretmekten anlamadığım için siz uzman kardeşlerimden yardım istemek daha uygun olur diye düşündüm. İlgilenenlere şimdiden çok teşekkür ederim.

 

[Necdet]

Merhaba,

Dosyanız ekte.

 

[ofbalki]

Sayın Yeşerten, "Adı Soyadı" silindiği zaman aşağıdaki satır hata veriyor.

Cells(2, "D") = Trim(a(UBound(a)))

"Adı Soyadı" yazılırken, "Soyadı" nı silip yenisini gösteriyor, "Adı" nı ise silmeden yenisini devamına ekliyor.

Bu iki soruna bir bakarsanız çok sevinirim.

 

[Necdet]

Sayın ofbalki,

Aşağıdaki kodu dener misiniz?

Private Sub ComboBox1_Change()
Sheets("Sayfa1").Cells(2, "B") = ComboBox1.Text
Range("C2,D2").ClearContents
a = Split(ComboBox1.Text, " ")
For j = 0 To UBound(a) - 1
Cells(2, "C") = Trim(Cells(2, "C") & " " & a(j))
Next j
Cells(2, "D") = Trim(a(UBound(a)))
End Sub