Listboxtan hücrelere yan yana veri aktarma

[sakaryavedat]

Merhaba arkadaşlar...


Problemi ekte açıkladım. yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton5_Click()
Dim sat As Long, i As Long
sat = Sheets("Sayfa2").Cells(65536, "C").End(xlUp).Row + 1
For i = 0 To ListBox2.ListCount - 1
    Sheets("Sayfa2").Cells(sat, "C").Value = ListBox2.Column(0, i)
    Sheets("Sayfa2").Cells(sat, "D").Value = ListBox2.Column(1, i)
    Sheets("Sayfa2").Cells(sat, "E").Value = ListBox2.Column(2, i)
    sat = sat + 1
Next i
End Sub

 

[sakaryavedat]

merhaba...

verileri kaydediyor fakat bir sorun var
kayıtları alt alta yapıyor. bizim listbox taki her kaydı sayfaya yan yana yazmamız gerekiyor.

 

[sakaryavedat]

Arkadaşlar bu soruna bir çözüm yokmu..
Lütfen yardım....

 

[sakaryavedat]

teşekkürler arkadaşlar.
problem çözüldü