koda yardım

[honestguy25]

değerlı hocalarım bu kodla listboxdaki listeyi rapor sayfasına atıyorum ama sadece listboxdaki 1. kolonu kopyalıyor. listboxda 8 kolon var digerlerini atmıyor. acaba koda bir bakabılırnız. teşekkurler

Private Sub CommandButton2_Click()
Dim i As Long
Application.ScreenUpdating = False
Sheets("rapor").Range("A1:H1").ClearContents
For i = 0 To ListBox1.ListCount - 1
Sheets("rapor").Cells(i + 1, 1).Value = ListBox1.Column(0, i)
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[Orion1]

liste = ListBox1.List
Application.ScreenUpdating = False
Sheets("rapor").Range("A1:H1").ClearContents
Sheets("rapor").Range("A1").Resize(UBound(liste) + 1, 8) = liste
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"

 

[honestguy25]

teşekkur ederim aşağıudaki gibi duzeltınce oldu bu mesajı başka okuyabılecekler ıcın duzeltıyım dedım teşekkurler evren hocam. elıne saglık




range ("a1").
liste = ListBox1.List
Application.ScreenUpdating = False
Sheets("rapor").Range("A1:H1").ClearContents
sheets("rapor"). Range("A1").Resize(UBound(liste) + 1, 8) = liste
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"

 

[Orion1]

teşekkur ederim aşağıudaki gibi duzeltınce oldu bu mesajı başka okuyabılecekler ıcın duzeltıyım dedım teşekkurler evren hocam. elıne saglık




range ("a1").
liste = ListBox1.List
Application.ScreenUpdating = False
Sheets("rapor").Range("A1:H1").ClearContents
sheets("rapor"). Range("A1").Resize(UBound(liste) + 1, 8) = liste
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"

Rica ederim.
İyi çalışmalar.