listbox' tan başka sayfaya veri alma

[hakan_demirkan]

arkadaşlar listbox a gelen verileri başka bir sayfaya aktarmasını istiyorum, ama her defasında gelen veriler önceki verileri silmesini istiyorum.yardımcı olursanız sevinirim.

 

[fedeal]

şöyle bir kod işinizi görürmü?

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
s1.[a2:a65536].ClearContents
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range("a2:" & Cells(sat + 2, sut).Address) = ListBox1.List
End Sub