listbox dan listbox a veri aktarımı

[sprexcel]

arkadaşlar listbox1 den listbox 2 ye listbox1 de seçilen veriyi commondbuton ile almak istiyorum ve sonra listbox2 yi excel sayfasına yazdırmak isiyorum. sizlerden ricam bunu hangi kodlarla yapmam gerekiyor. birçok deneme me rağmen bulamadım. yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

arkadaşlar listbox1 den listbox 2 ye listbox1 de seçilen veriyi commondbuton ile almak istiyorum ve sonra listbox2 yi excel sayfasına yazdırmak isiyorum. sizlerden ricam bunu hangi kodlarla yapmam gerekiyor. birçok deneme me rağmen bulamadım. yardımlarınız için şimdiden teşekkürler.

Örnek dosya ekleyiniz.

 

[sprexcel]

örnek dosya eklendi

örnek dosyayı ilk konuya ekledim. yardımlarınız için şimdiden teşekkürler.
bu arada örnek dosya sayfa3 de konuyu anlattım lütfen sayfa 3 e bakınız

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim i  As Long, sat As Long, x As Long
ListBox1.RowSource = "HIZLIGIRISGIDER!e2:g110" 'lisbox'ta gösterilecek hücre aralığı
ListBox1.ColumnCount = 3  ' lisbox'ta ki sütun sayısı
ListBox1.ColumnWidths = "175;175;70" 'lisbox'taki sütunların genişliği"

ListBox2.ColumnCount = 3  ' lisbox'ta ki sütun sayısı
ListBox2.ColumnWidths = "175;175;70" 'lisbox'taki sütunların genişliği"
[B][COLOR="Red"]sat = Sheets("HIZLIGIRISGIDER").Cells(Rows.Count, "G").End(xlUp).Row
For i = 2 To sat
    If Sheets("HIZLIGIRISGIDER").Cells(i, "G").Value <> "" And _
            IsNumeric(Sheets("HIZLIGIRISGIDER").Cells(i, "G").Value) Then
        ListBox2.AddItem
        ListBox2.List(x, 0) = Sheets("HIZLIGIRISGIDER").Cells(i, "E").Value
        ListBox2.List(x, 1) = Sheets("HIZLIGIRISGIDER").Cells(i, "F").Value
        ListBox2.List(x, 2) = Sheets("HIZLIGIRISGIDER").Cells(i, "G").Value
        x = x + 1
    End If
Next i[/COLOR][/B]

End Sub

 

[sprexcel]

çook teşekkürler

Orion1 çok çok teşekkür ederim allah razı olsun..