Soru Listbox listesinde ki veriyi iki ayrı hücreye aktarma

[sirkülasyon]

Listbox listesinde aşağıda yer alan veri mevcut.
Evli - Eşi Özel Şirkette
Evli - Eşi Kamu Görevlisi
Evli - Eşi Çalışmıyor
Bekar
Kullandığım kod :

Private Sub ListBox1_Click()
If (ActiveCell.Column = 22 And ActiveCell.Column = 22) Then
ActiveCell = ListBox1.List(ListBox1.ListIndex, 0)
End If
End Sub

Halihazırda ki kod ile aktif ("V Sütunu") hücreye "Evli - Eşi Özel Şirkette" yazıyor.
Benim sizden ricam "-" işaretinden önceki kelimeyi başka hücreye "-" işaretinden sonraki kelimeyi de aktif hücreye yazdırmak istiyorum.
Örnek :
Aktif hücreye " Eşi Özel Şirkette" bir önceki ("U Sütunu") hücreye de "Evli" yazacak.

Rica etsem yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ListBox1_Click()
If (ActiveCell.Column = 22 And ActiveCell.Column = 22) Then
If InStr(1, ListBox1.List(ListBox1.ListIndex, 0), "-") > 0  Then
ActiveCell = Split(ListBox1.List(ListBox1.ListIndex, 0), "-")(1)
Cells(ActiveCell.Row, "U") = Split(ListBox1.List(ListBox1.ListIndex, 0), "-")(0)
Else
ActiveCell = ListBox1.List(ListBox1.ListIndex, 0)
End If
End If
End Sub

 

[sirkülasyon]

Korhan Abi
Ellerine Sağlık. Allah razı olsun