listbox'taki her bir satırı ilgili sayfadaki hücrelere almak istiyorum

[takoo]

arkadaşlar,sorum başlıktaki gibi açık ve kısa,listbox'taki her bir satırı ilgili sayfadaki hücrelere alt alta gelecek şekilde almak istiyorum rica etsem yardımcı olur musunuz? iyi çalışmalar

 

[Orion1]

Listbox'taki verileri sayfa2'de B sütununa alt alta yazar.

Dim i As Long
For i = 0 To ListBox1.ListCount - 1
    Sheets("Sayfa2").Cells(i + 1, "B").Value = ListBox1.Column(0, i)
Next
MsgBox "AKTARMA TAMAMLANDI"

 

[takoo]

dostum çok teşekkür ederim,ama acemiliğin bukadarı işte ne yapalım,bendeki hücrelere uyarlayamadım.bendeki hücreler ; b22 'den b44 kadar bi değişiklik yapabilir misin sana zahmet,kusura bakmazsın inşallah

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Dim i As Long
Sheets("Sayfa2").Range("B22:B65536").ClearContents
If ListBox1.ListCount < 1 Then Exit Sub
For i = 0 To ListBox1.ListCount - 1
    Sheets("Sayfa2").Cells(i + 22, "B").Value = ListBox1.Column(0, i)
Next
MsgBox "AKTARMA TAMAMLANDI"

 

[takoo]

tamam tamam ayarladım çok teşekkür ederim,iyi çalışmalar

 

[Orion1]

İyi çalışmalar.