listbox' tan başka sayfaya veri alma

Katılım
10 Şubat 2007
Mesajlar
100
Excel Vers. ve Dili
microsoft 2003
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

Banned
Katılım
29 Mayıs 2008
Mesajlar
1,985
Excel Vers. ve Dili
2003 tr
şö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
 
Üst