Listboxda süzülen verileri excel sayfasına aktarmak

[udentr2002]

Merhaba Arkadaşlar;
Ekte verdiğim örnekte, userformda (Genel adlı userform) da combobox3' te seçilen veriye göre Listbox2 ye süzüyor. Süzdüğü verileri Rapor adlı sayfaya a5 hücresinden başlayarak yapıştırmak için nasıl bir kod yazabilirim?
Saygılarımla
iyi çalışmalar

 

[Muzaffer Ali]

Merhaba.

Rapor Al butonuna aşağıdaki kodları kopyalayınız.

Private Sub CommandButton3_Click()
    Dim SonSatir As Long
    SonSatir = Worksheets("Rapor").Cells(Rows.Count, "A").End(xlUp).Row
    Worksheets("Rapor").Range("A" & SonSatir + 1 & ":J" & SonSatir + ListBox2.ListCount) = ListBox2.List
End Sub

 

[udentr2002]

Merhaba.

Rapor Al butonuna aşağıdaki kodları kopyalayınız.

Private Sub CommandButton3_Click()
    Dim Bak As Integer
    Dim SonSatir As Long
    SonSatir = Worksheets("Rapor").Cells(Rows.Count, "A").End(xlUp).Row
    Worksheets("Rapor").Range("A" & SonSatir + 1 & ":J" & SonSatir + ListBox2.ListCount) = ListBox2.List
End Sub

Hocam elinize sağlık teşekkürler;
Hakkınızı helal edin.
saygılarımla

 

[Muzaffer Ali]

Rica ederim Helal olsun.