Soru Listbox sayfaya aktarma

[sirkülasyon]

Listbox4 de bir sütun ve çoklu satır mevcut.
commandButton ile Listbox4 de ki listeyi Sayfa2' nin J sütununa 3 üncü satırdan itibaren alt alta nasıl aktarabilirim?

 

[kemal turan]

merhaba,
Ustalarımızın soruma karşılık tarafıma gönderdiği cevabı uyarladım.
Denermisiniz

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Sayfa1").Range("j3:j" & Rows.Count).ClearContents
With ListBox1
    For i = 3 To .ListCount - 3
        Sheets("Sayfa1").Range("J" & i).Value = .List(i - 3, 0)
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbInformation, "BİLGİLENDİRME"
End Sub

 

[sirkülasyon]

Listboxtaki ilk satırı aktarıyor. Onun altında ki diğer satırları aktarmıyor.
Listbox4 de tek sütun var. Ama satır çok. Sütunun tamamını aktarmak mümkün müdür?

 

[kemal turan]

Örnek bir dosya yüklerseniz çalışayım.
En azından ustalarımız bakar.

 

[ÖmerFaruk]

@kemal turan beyin verdiği kodlardaki aşağıdaki satırda bir aşağıdaki satır gibi düzltme yapın, çalışacaktır.
For i = 3 To .ListCount - 3
For i = 3 To .ListCount + 2