Listbox daki verileri exceldeki sutunlara yazma

[aurer]

Merhaba arkadaslar formumda 1 adet listbox ver tek sutunlu tek sutunda 15 veri var, bu verileri tek tek alıp exceldeki ilgili yere yazmasını istiyorum yardımcı olabilirseniz sevinirim.

Dim dolu As Integer
Dim i As Integer

dolu = WorksheetFunction.CountA(Worksheets("veri").Range("a1:a20000"))
For i = 0 To dolu
Cells(2, i + 2).Value = ListBox1.List(0, i).Value

Next i

 

[antonio]

Private Sub CommandButton1_Click()
Dim nesne As Object, adet As Integer, sh As Worksheet, ss As Long

Set sh = Sayfa1
ss = sh.Range("A1").End(xlToRight).Column + 1

adet = ListBox1.ListCount

For i = 0 To adet - 1
    sh.Cells(1, i + ss).Value = ListBox1.List(i, 0)
Next i
MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub

 

[aurer]

Verileri a hücresinin altına yazıyor

Cevabınız için tesşekkürler, verileri a hücresiniin altına yazıyor, ben sutunlara yazmasını istiyorum. kaç tane var ise b1,c1,d1,e1.... gibi

 

[Ömer BARAN]

Merhaba.

Sayın antonio çevrimiçi değil.

Sayın antonio'nun verdiği kod'da;
-- "ss = sh.Range("A56789").End(3).Row + 1" şeklindeki satırı silip
-- "sh.Range("A" & i + ss)" kısmını sh.Cells(1, i+1) olarak değiştirirseniz
istediğinizin olması lazım.
(mavi renklendirdiğim 1 verinin yazılacağı satır numarası, kırmızı renklendirdiğim 1 ise ilk verinin yazılacağı sütun numarası oluyor)
.

 

[antonio]

Cevabınız için tesşekkürler, verileri a hücresiniin altına yazıyor, ben sutunlara yazmasını istiyorum. kaç tane var ise b1,c1,d1,e1.... gibi

Sayın BARAN'ın belirttiği şekilde son satır yerine son sütunu bulmak, ve yazdırma yönünü soldan-sağa doğru düzenlemek gerekiyor.
2.No'lu Mesajımda gerekli değişiklikleri yaptım.

 

[aurer]

cevabınız için teşekkür ederim.