ListBox'ın 2nci kolonunu nasıl yazdırabilirim?

[Orion1]

Mrb.

Private Sub CommandButton1_Click()
[D1] = ListBox1

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!A3: C65536"
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 3
ListBox1.ListIndex = 0
End Sub

-----------------------------------------------
Yukarıdaki kodlar ile userformda 3 kolondan oluşan bir listbox oluşturuyorum.
commandbutton ile D1 hücresine listbox'ın 1nci kolunu'nundaki etkin satırı yazdırıyorum.
2nci kolonun etkin satırını E1 hücresine,
ve 3ncü kolonun etkin satırını F1 hücresine nasıl yazdırabilirim.

Teşekkür ederim.
Kolay gelsin.

 

[Haluk]

[vb:1:c41326cae1]Private Sub CommandButton1_Click()
Range("D1") = ListBox1.Column(0)
Range("E1") = ListBox1.Column(1)
Range("F1") = ListBox1.Column(2)
End Sub
[/vb:1:c41326cae1]

veya;

[vb:1:c41326cae1]Private Sub ListBox1_Click()
Range("D1") = ListBox1.Column(0)
Range("E1") = ListBox1.Column(1)
Range("F1") = ListBox1.Column(2)
End Sub
[/vb:1:c41326cae1]