Listbox ile veri aktarımı

[Nadir]

Merhaba,
Aşağıdaki kod ile B3:B502 arası Listbox ile veri aktarıyorum. Ama bunu sıralı yapamıyorum. İlk hücreden (B3) başlayarak B502 arası aralıksız kayıt aktarmak istiyorum. İmleç ilk boş hücreye gitmesi lazım. Veya başka bir kod da olabilir. (B3'ün üstünde ve B502'nin altında veriler var)

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim s As Integer
For s = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(s) = True Then

sat = Sheets("FATURA").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ListBox1.Column(1)
Exit Sub
    End If
Next

End Sub

 

[PLİNT]

Merhaba
502. satırın üstünde bulunan en son boş satır için aşağıdaki gibi deneyin
column(0) listbox 1. sütunundaki veri için
column(1) listbox 2. sütunundaki veri içindir.

sat = Sheets("FATURA").Cells([COLOR="Red"]502[/COLOR], "B").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = ListBox1.Column([COLOR="Red"]1[/COLOR])

502. satırda veri varsa önceki konunuzda verdiğim cevap hatalı olmuş düzeltmeyi incelermisiniz?
http://www.excel.web.tr/f48/kodda-duzeltme-t153608.html

 

[halilyor]

Sayın Nadir
Formda Kaydet- güncelle,ara-bul,sil tümünü yapabilirsiniz.
Otomatik kayıt numarası verir.
Bunlarla ilgili bütün çalışmalarınıza uyarlayabilirsiniz.
Formu bile uyarlayabilirsiniz.

Kodlar açık.



İndirme linki.

http://s8.dosya.tc/server/3rjbw0/PERSONEL_ARSIVI_2016.xls.html

videosunu görmek için.

https://www.youtube.com/watch?v=PLeRonCVb2U[/QUOTE]

 

[Nadir]

Sayın PLİNT ilgi ve alakanız için çok teşekkür ederim.

Diğer konuda eski önerdiğiniz kod sorunsuz çalışıyor, yenisinde "alan.Copy" satırında hata verdi. Ama şimdilik önceki kodu kullanıyorum, şu ana kadar bir sorun yaşamadım.

Halil beye de teşekkür ederim.
İyi seneler..