Textbox ve ComboBox ları ListBox'a aktarmak

[Orion1]

Dosyada ufak 1 değişiklik yaptım.
Önceki verdiğim dosyayı tekrar indiriniz.

 

[Orion1]

14 adet textbox olunca işler böyle yürüyor ise yapacak bir şey yok demek ki. Bu da böyle olsun bari ????

İlgi ve alakanızdan dolayı çok teşekkür ederim hocam.
İyi çalışmalar,
Saygılarımla...

Öylede olur.Eğer ofisiniz 32 bitse listview eklerseniz listbox yerine yapılabilir.

 

[ulutanas]

64 bit maalesef ????

 

[ulutanas]

Evren hocam sitemizde bir konu buldum tesadüf https://www.excel.web.tr/threads/listbox-tan-baska-sayfaya-veri-alma.68606/
buradaki kodu denedim

Private Sub CommandButton20_Click()
Set s1 = Sheets("sayfa1")
sat = ListBox4.ListCount
sut = ListBox4.ColumnCount
s1.Range("a2:" & Cells(sat + 1, sut).Address) = ListBox4.List
Sheets("veri").Range("A2:o26").ClearContents
End Sub

bu kod ile listbox4 e kaç satır eklersem ekleyim hepsini sayfa1 aktarıyor. buraya kadar süper.

Ama yeni bir kayıt yapınca a2 den başlayıp eski eklediklerimin üzerine kayıt yapıyor, en alt satırdan sonrasına aktarsa olacak sanki

 

[Orion1]

Dosyayı istediğiniz şekilde yaptım.Dosya ektedir.Ben konuyu anlamadım ondan yapamadık.Ama şimdi oldu.

 

[ulutanas]

Evren hocam Allah sizden razı olsun şimdi tam istediğim gibi oldu,
çok ama çok teşekkür ederim.

İyi çalışmalar,
Saygılarımla...

 

[Orion1]

Rica ederim.
İyi çalışmalar.