Listbox Yazdırma_Onemli

[aydiny]

:yardim: Merhaba arkadaşlar, ekteki çalışmada amacım, listboxa gelen veriyi rapor önzileme ile alıp yazdırma.
Rapor bölümünde kriter seçtiğimde, listboxa değerler geliyor, önizleme butonuna basınca hata alıyorum. Hata ile ilgili yardımcı olacak arkadaşlara şimdiden teşekkürler...

 

[bedersu]

Merhaba,

Private Sub CommandButton1_Click()
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
Sheets("KATILIMRP").Range("a6:" & Cells(sat, sut).Address) = ListBox1.List
End Sub

Bu kodlardaki address,adress olarak yazılmışrı.Şimdi hata yok.