Listbox1 i sayfa4 e aktarma

[osmanfenerli1907]

Selamlar
Ben listbox1e rapor aldırıyorum.Yani rapor her zaman aynı olmuyor.Bu raporu sayfa4 e nasıl aktarabilirim.Yalnız A3 ten başlayarak aktaracak.Aktarmamın sebebi sayfa4 den raporu yazdıracağım.
SAYGILARIMLA

 

[Levent Menteşoğlu]

Aşağıdaki kodu userform üzerinde bir butona kopyalayın.

[vb:1:f72b2922c0]Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa4")
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range(s1.Cells(3, 1), s1.Cells(sat + 2, sut)) = ListBox1.List
End Sub
[/vb:1:f72b2922c0]

 

[osmanfenerli1907]

Çok TE?EKKÜR ediyorum.Mükemmelsiniz.
Bu forum olmasa bizler ne yapaca??z...
te?ekkürler www.excel.web.tr te?ekkürler