listboxtan son dolu satıra veri aktarma yardım!

[qny1]

sayfa 2 de ki son dolu satırı bulup sonraki boş satırlara nasıl yazdırcam

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa2")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List
End Sub

 

[Orion1]

Korhan bey cevap vermiş.Benimki olmayacak sanırım.

 

[Korhan Ayhan]

Öncelikle profilinizde yazan excel sürüm bilgisini güncellemenizde fayda var. Bu bilgi cevap almanız için yeterli değildir.

Excel Vers. ve Dili excel

Sonrasında aşağıdaki kodu deneyebilirsiniz.

Private Sub CommandButton1_Click()
    Set S1 = Sheets("sayfa2")
    With ListBox1
        S1.Cells(S1.Rows.Count, 1).End(3)(2, 1).Resize(.ListCount, .ColumnCount) = .List
    End With
End Sub

 

[qny1]

teşekkürler yardım için. çalışıyor ama;

listbox'ın 1.satırında başlıklar olduğu için 2.satırdan itibaren aktarması için ne yapabilirim.

 

[Korhan Ayhan]

Başlığı aktardıktan sonra o satırı sayfadan sildirirseniz sorununuz çözülecektir.

 

[qny1]

Çok Teşekkürler sorun çözüldü. Saygılar.