Listbox'tan excel sayfasına aktarma

[pointlesbj]

ARKADAŞLAR AŞAĞIDAKİ KODU KULLANIYORUM

Private Sub CommandButton3_Click()
Sheets("AKTAR").[a2:k65536].ClearContents
For sat = 1 To ListBox1.ListCount + 1
For sut = 1 To 10
Sheets("AKTAR").Cells(sat + 1, sut) = ListBox1.List(sat, sut - 1)
Next: Next
Sheets("AKTAR").Visible = True
Sheets("AKTAR").Select
Unload Me
End Sub

YALNIZ LİSTBOXTAKİ İLK SATIRI AKTARMIYOR NASIL DÜZELTEBİLİRİM

SAYGILAR

 

[Levent Menteşoğlu]

ListBox1.List(sat, sut - 1)

Yukarıdaki tanımlamayı aşağıdaki ile değiştirin.

ListBox1.List(sat-1, sut - 1)

 

[pointlesbj]

Çok teşekkür ederim.