listboxta multiselect'i hücrelere ekleme

[burake]

Sondan 3 satıra listbox1 de birden fazla seçilenleri(multiselect=true) eklemek istiyorum. Ama bir türlü başaramadım. Bu olaya yeni başladım ama yardım edecek kimseyi bulamadım. Yardımlarınızı bekliyorum. Teşekkürler.....

ActiveCell.Offset(0, 1).Value = TextBox1.Text
    ActiveCell.Offset(0, 2).Value = TextBox2.Text
    ActiveCell.Offset(0, 3).Value = ComboBox1.Text
    ActiveCell.Offset(0, 4).Value = ComboBox2.Text
    ActiveCell.Offset(0, 5).Value =
    ActiveCell.Offset(0, 6).Value =
    ActiveCell.Offset(0, 7).Value =

Bu son üç satır e2, f2, g2 hücreleri. Ama listbox'ta 3 tane de seçilebilir, 2 tanede seçilebilir, 1 tanede...

 

[Orion1]

önce propertiesten listbox'ın multiselect özellğini True yapınız.
Kodlar aşağıdadaır.

ActiveCell.Offset(0, 1).Value = TextBox1.Text
    ActiveCell.Offset(0, 2).Value = TextBox2.Text
    ActiveCell.Offset(0, 3).Value = ComboBox1.Text
    ActiveCell.Offset(0, 4).Value = ComboBox2.Text
for i = 0 to listbox1.listcount-1
   If ListBox1.Selected(i) = True Then
       say=say+1
        activecell.offset(0,say+4).value=listbox1.list(i,0)
      if say  = 3 then exit for
    End If
next i

 

[burake]

teşekkür ederim hocam hemen deneyeceğim