Çoklu sütun Listbox'a combo ve textbox lardan veri alma

[mesutcankaya]

Arkadaşlar merhaba

Amacım sadece;
1. combo ve text lerden verileri buton ile listbox' a almak. ancak AddItem ile sadece bildiğiniz gibi 10 sütun sonrası olmuyor....
2.Kayıt sonrası Combobox' larda ki veriler ile Text Box1 kalmalı diğerlerini Clear almalı
Yardımlarınızı rica ediyorum...
Saygılarımla

Private Sub CommandButton1_Click()
ListBox1.AddItem Textbox1
ListBox1.List(ListBox1.ListCount - 1, 1) = Textbox2
ListBox1List(ListBox1.ListCount - 1, 2) = Textbox3
ListBox1.List(ListBox1.ListCount - 1, 3) = Textbox4
ListBox1.List(ListBox1.ListCount - 1, 4) = Combobox1
ListBox1.List(ListBox1.ListCount - 1, 5) = Combobox2
ListBox1.List(ListBox1.ListCount - 1, 6) = Combobox3
ListBox1.List(ListBox1.ListCount - 1, 7) = Textbox5
ListBox1.List(ListBox1.ListCount - 1, 8) = Textbox6
ListBox1.List(ListBox1.ListCount - 1, 9) = Textbox7
ListBox1.List(ListBox1.ListCount - 1, 10) = Textbox8
ListBox1.List(ListBox1 .ListCount - 1, 11) = Combobox9
ListBox1.List(ListBox1 ListCount - 1, 12) = Combobox10
ListBox1.List(ListBox1 .ListCount - 1, 13) = Combobox
End Sub

 

[mesutcankaya]

Sanırım yardımcı olan çıkmayacak sağlık olsun!!!

 

[Korhan Ayhan]

Butona tıkladınız ve veriler Listbox'a aktarıldı. Sonrasında ne olacak?

Bahsettiğiniz verileri önce sayfaya aktarıp oradan RowSource metodu ile Listbox nesnesine yüklerseniz sorun yaşamazsınız.

Bir örnek dosya eklerseniz daha net cevaplar alabilirsiniz.

 

[mesutcankaya]

kORHAN BEY MERHABA
SONRASINDA İKİNCİ BİR KAYIT BUTONU LİSTBOX VERİLERİNİ SAYFAYA KAYIT YAPMASINI SAĞLAYACAĞIM......

 

[mesutcankaya]

 

[mesutcankaya]

Burada üstteki text ve comboboxlar sabit iken alt sıradaki text ve combolardan listbox' a sınırlı sayıda kayıt sonrası üsttekiler ile birlikte saydaki tablonun ilk boş satırından itibaren kayıt yapmasını sağlamak amacım

 

[mesutcankaya]

Örnek Dosya
Saygılarımla

 

[Korhan Ayhan]

Siz Listbox'a sadece bir kayıt mı ekleyeceksiniz? Yoksa birden fazla kayıt ekleme durumu var mı?

 

[mesutcankaya]

Birinci buton ile sabitler hariç değişkenleri Listbox'a
İkinci buton ile de sabitleri Listbox' taki satır sayısı kadar onların yanlarındaki sütunlara aktarmak amacım.....
belli bir ölçüde hallettim. ancak sorun devam etmekte.....Adım adım çözerek gideceğim........

kayıt yaptırabiliyorum
ancak formu kapatıp ikinci bir kayıt açtığımda listbox değişkenleri son satıra kayıt yapılırken aynı şekilde değişkenler boş satırdan itibaren kayıt olmuyor. Şu an ki sorunum bu


Private Sub CMDbutonkaydeturun_Click()
LSTsatisbagreport.AddItem CMBsatisbagurun
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 1) = TXTsatisbagmiktar
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 2) = TXTsatisbagbirimfiyat
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 3) = TXTsatisbagbirimfiyatek
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 4) = TXTsatisbagbirimfiyatnak
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 5) = TXTsatisbagbirimfiyatnet
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 6) = TXTsatisbagtutar
CMBsatisbagurun = ""
TXTsatisbagmiktar = ""
TXTsatisbagbirimfiyat = ""
TXTsatisbagbirimfiyatek = ""
TXTsatisbagbirimfiyatnak = ""
TXTsatisbagbirimfiyatnet = ""
TXTsatisbagtutar = ""
End Sub

Private Sub CMDbutonsatisbaglistkaydet_Click()
For i = 0 To Me.LSTsatisbagreport.ListCount - 1
Sheets("Sayfa1").Range("H65536").End(3)(2, 1) = Me.LSTsatisbagreport.List(i, 0)
Sheets("Sayfa1").Range("H65536").End(3)(1, 2) = Me.LSTsatisbagreport.List(i, 1)
Sheets("Sayfa1").Range("H65536").End(3)(1, 3) = Me.LSTsatisbagreport.List(i, 1)
Sheets("Sayfa1").Range("H65536").End(3)(1, 4) = Me.LSTsatisbagreport.List(i, 1)
Sheets("Sayfa1").Range("H65536").End(3)(1, 5) = Me.LSTsatisbagreport.List(i, 1)
Sheets("Sayfa1").Range("H65536").End(3)(1, 6) = Me.LSTsatisbagreport.List(i, 1)
Sheets("Sayfa1").Range("H65536").End(3)(1, 7) = Me.LSTsatisbagreport.List(i, 1)
Next i
For c = 0 To Me.LSTsatisbagreport.ListCount - 1
Sheets("Sayfa1").Cells(c + 3, 1).Value = Me.TXTsatisbagid.Value
Sheets("Sayfa1").Cells(c + 3, 2).Value = Me.TXTsatisbaghareket.Value
Sheets("Sayfa1").Cells(c + 3, 3).Value = Me.TXTsatisbagmusteri.Value
Sheets("Sayfa1").Cells(c + 3, 4).Value = Me.CMBsatisbagmusteri.Value
Sheets("Sayfa1").Cells(c + 3, 5).Value = Me.TXTsatisbagtarih.Value
Sheets("Sayfa1").Cells(c + 3, 6).Value = Me.TXTsatisbagvadetarih.Value
Sheets("Sayfa1").Cells(c + 3, 7).Value = Me.TXTsatisbagprojekodu.Value
Next c
LSTsatisbagreport.Clear
TXTsatisbagprojekodu.Value = ""
''TXTsatisbaghareket.Value = ""
''TXTsatisbagmusteri.Value = ""
CMBsatisbagmusteri.Value = ""
TXTsatisbagtarih.Value = ""
TXTsatisbagvadetarih.Value = ""
End Sub

Saygılarımla

 

[Korhan Ayhan]

Verileri neden Listbox nesnesine aktarmak istediğinizi açıkçası anlayamadım. Direkt sayfaya yazdırmanız daha kolay olur. Ayrıca ilk mesajınızda sorunuz 10 sütundan fazla veri alma problemiydi. Sanırım bu sorunu aştınız.

 

[mesutcankaya]

Evet korhan bey aştım......Amacım önce kontrol sağlamak ve sonra sanki fatura işler gibi sayfaya değişkenlerin yanına sabitleri değişkenlerin satır sayısı kadar kayıt yaptırmak....gerisi kolay olacak

 

[mesutcankaya]

İlk kayıt ta sorun olmuyor....ancak yeni kayıt atmaya çalıştığımda listbox verileri alt boş satırdan itibaren satır sayısı kadar kayıt atıyor, ancak sabitler ilk satırdan itibaren kayıt atmaya devam ediyor.....tek sorunum bu
Saygılarımla

 

[mesutcankaya]

sizin önerinizi de değerlendirmek kanımca yararlı olacaktır....örneklem verebilirseniz sevinirim

 

[Korhan Ayhan]

Ben olsam pratik olması açısından şöyle yapardım.

Ara fatura sayfası oluştururdum. Birde bu faturaları depolayacağım ana bir sayfa oluştururdum.

Ara fatura sayfasında başlıklar ve anlık form üzerinden girdiğiniz kayıtları aktarıp Listbox üzerinde görüntülerdim.

Sonra eğer bir problem yoksa veri girişleri doğruysa ana sayfaya aktarıp depolardım. Sonra ara fatura sayfasını yeni işlem için boşaltırdım.

Böyle işlem yapmaya devam ederdim. Hem yönetmesi kolay olur. Hemde gereksiz kodlardan kurtulursunuz. Tabi ki tercih sizin..

 

[mesutcankaya]

Benim buradaki sorunum kullanıcı olacakların luca v.b programlardaki irsaliye fatura kayıt ortamına alışık düzende olmaları. bu nedenle böyle bir yön seçmek durumunda kaldım....

 

[Korhan Ayhan]

Ben pratik önerimi yaptım. Gerisi sizin tercihinize kalmıştır. Kolaylıklar diliyorum.

 

[mesutcankaya]

Buraya kadar gelmiş fikri emeğin çözümsüzce bitmesi ve destek almaması yazık.....Oysa ki mutlaka döngü ile ilgili çözüm üretip sunabilecek ustalar var burada......
Saygılarımla

 

[Korhan Ayhan]

Linkler belki işinize yarayabilir.

Listbox'dan sayfaya veri aktarma

Selam herkese; Userform üzerinde bulunan Listbox1 içindeki verileri sayfa1'e son dolu satırdan başlayarak aktarmak istiyorum. Listbox1, 5 sutundan oluşmaktadır, satır sayısı değişmektedir. Aşağıdaki kodu istediğim şekilde ayarlamama yardımcı olmanızı rica ederim. Private Sub...

www.excel.web.tr

ListBox'u Sayfaya Aktarma

listboxu sayfaya nasıl aktarabilirim şimdiden tşk

www.excel.web.tr

Listbox'tan hücreye veri aktarma

slm arkadaşlar excelde sayfa4 m sütunun da GEÇTİ yazanların isimleri sayfa1 de bulunan ListBox'a gelmesini, gelen isimlerin üzerine tıklayınca o isme ait Sayfa4'teki bilgilerin Sayfa1'deki boş yerlere aktarılmasını istiyorum. biraz karışık oldu ama inşallah derdimi anlatabilmişimdir.

www.excel.web.tr

Listboxtaki Verileri Sayfaya Aktarma

4Adet TextBox, 1 Adet CommandButton ve 1 Adet ListBox olacak şekilde, ListBox1 e Tutar ListBox2 ye taksit sayısı ListBox3 e tarih yazarak Aşağıdaki kadları yazıp command butona tıkladığımda ListBox a taksitlendirme yapıyor Kod: Private Sub CommandButton1_Click() ListBox1.ColumnCount = 3...

www.excel.web.tr

 

[mesutcankaya]

Korhan Bey merhaba
Şimdilik istediğim sonuca ulaştım....
Örnek olması açısından paylaşmak istedim....
Saygılarımla

Private Sub CMDbutonkaydeturun_Click()
LSTsatisbagreport.AddItem CMBsatisbagurun
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 1) = TXTsatisbagmiktar
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 2) = TXTsatisbagbirimfiyat
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 3) = TXTsatisbagbirimfiyatek
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 4) = TXTsatisbagbirimfiyatnak
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 5) = TXTsatisbagbirimfiyatnet
LSTsatisbagreport.List(LSTsatisbagreport.ListCount - 1, 6) = TXTsatisbagtutar
CMBsatisbagurun = ""
TXTsatisbagmiktar = ""
TXTsatisbagbirimfiyat = ""
TXTsatisbagbirimfiyatek = ""
TXTsatisbagbirimfiyatnak = ""
TXTsatisbagbirimfiyatnet = ""
TXTsatisbagtutar = ""
End Sub

Private Sub CMDbutonsatisbaglistkaydet_Click()
For i = 0 To Me.LSTsatisbagreport.ListCount - 1
Set s = Sheets("Sayfa1")
s.Range("h65536").End(3)(2, 1) = Me.LSTsatisbagreport.List(i, 0)
s.Range("h65536").End(3)(1, 2) = Me.LSTsatisbagreport.List(i, 1)
s.Range("h65536").End(3)(1, 3) = Me.LSTsatisbagreport.List(i, 1)
s.Range("h65536").End(3)(1, 4) = Me.LSTsatisbagreport.List(i, 1)
s.Range("h65536").End(3)(1, 5) = Me.LSTsatisbagreport.List(i, 1)
s.Range("h65536").End(3)(1, 6) = Me.LSTsatisbagreport.List(i, 1)
s.Range("h65536").End(3)(1, 7) = Me.LSTsatisbagreport.List(i, 1)
Next i
Suta = Cells(65536, "A").End(3).Row + 1
Sutb = Cells(65536, "B").End(3).Row + 1
Sutc = Cells(65536, "C").End(3).Row + 1
Sutd = Cells(65536, "D").End(3).Row + 1
Sute = Cells(65536, "E").End(3).Row + 1
Sutf = Cells(65536, "F").End(3).Row + 1
Sutg = Cells(65536, "G").End(3).Row + 1
For c = 0 To Me.LSTsatisbagreport.ListCount - 1
Set a = Sheets("Sayfa1")
a.Cells(c + Suta, 1).Value = Me.TXTsatisbagid.Value
a.Cells(c + Sutb, 2).Value = Me.TXTsatisbaghareket.Value
a.Cells(c + Sutc, 3).Value = Me.TXTsatisbagmusteri.Value
a.Cells(c + Sutd, 4).Value = Me.CMBsatisbagmusteri.Value
a.Cells(c + Sute, 5).Value = Me.TXTsatisbagtarih.Value
a.Cells(c + Sutf, 6).Value = Me.TXTsatisbagvadetarih.Value
a.Cells(c + Sutg, 7).Value = Me.TXTsatisbagprojekodu.Value
Next c
LSTsatisbagreport.Clear
TXTsatisbagprojekodu.Value = ""
''TXTsatisbaghareket.Value = ""
''TXTsatisbagmusteri.Value = ""
CMBsatisbagmusteri.Value = ""
TXTsatisbagtarih.Value = ""
TXTsatisbagvadetarih.Value = ""
End Sub

 

[Korhan Ayhan]

Elinize sağlık...