Listbox1 in içindeki bütün verileri Excel sayfasına yazdırma

[tevfikdemir]

Merhaba arkadaşlar;

Listbox1 'e verileri başka bir dosyadan getiriyorum.Getirdiğim bu verileri
Excelin istediğim sayfasına nasıl aktarabilirim.Fakat benim istediğim bu işlem bir tuş olayı ile olacak ve aynı anda listbox1 in tüm içeriğini aktaracak.

Saygılar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Listboxtaki verileri sayfa2 ye aktarır.

[vb:1:e295811d92]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
[/vb:1:e295811d92]

 

[tevfikdemir]

Çok Teşekkür ederim Leventm,

Ellerinize sağlık bu kadar kolaymış demek !!! :kafa:

İşlem Tamam

Saygılarımla