BYSERTTAS
Altın Üye
- Katılım
- 9 Ekim 2012
- Mesajlar
- 142
- Excel Vers. ve Dili
- Excel Vers. ve Dili Ofis 2021 TR 32 Bit
- Altın Üyelik Bitiş Tarihi
- 22-01-2026
Selamlar üstadlar.
aşağıdaki kod ile Listbox satırına veri ekliyorum. ancak add.ıtem kullandığım için 9 sutunda işlem yapabiliyorum. benim 14 sutuna ihtiyacım var. Listbox içerisinde 14 sutun görünmeli
aşağıdaki kodu buna göre dizayn etmenizi rica edeceğim. addıtem dişinda bir ekleme türü bilmiyorum.
ListBox1.AddItem Tb1_SutKodu
LBoxSatırı = ListBox1.ListCount - 1
'.......................................................................................................LİSTBOXA EKLEME
ListBox1.List(LBoxSatırı, 1) = Tb1_UrunAdı
ListBox1.List(LBoxSatırı, 2) = Tb1_Miktar
ListBox1.List(LBoxSatırı, 3) = Tb1_BırımFıyat
ListBox1.List(LBoxSatırı, 4) = Tb1_Tutar
ListBox1.List(LBoxSatırı, 5) = Tb1_DamgaTutarı
ListBox1.List(LBoxSatırı, 6) = Tb1_HazineTutarı
ListBox1.List(LBoxSatırı, 7) = Tb1_MerkezTutarı
ListBox1.List(LBoxSatırı, 8) = Tb1_ShaçekTutarı
ListBox1.List(LBoxSatırı, 9) = Tb1_SatırToplam
ListBox1.List(LBoxSatırı, 10) = aaaa
ListBox1.List(LBoxSatırı, 11) = bbb
ListBox1.List(LBoxSatırı, 12) = dddd
ListBox1.List(LBoxSatırı, 13) = cccc
ListBox1.List(LBoxSatırı, 14) = eeee
aşağıdaki kod ile Listbox satırına veri ekliyorum. ancak add.ıtem kullandığım için 9 sutunda işlem yapabiliyorum. benim 14 sutuna ihtiyacım var. Listbox içerisinde 14 sutun görünmeli
aşağıdaki kodu buna göre dizayn etmenizi rica edeceğim. addıtem dişinda bir ekleme türü bilmiyorum.
ListBox1.AddItem Tb1_SutKodu
LBoxSatırı = ListBox1.ListCount - 1
'.......................................................................................................LİSTBOXA EKLEME
ListBox1.List(LBoxSatırı, 1) = Tb1_UrunAdı
ListBox1.List(LBoxSatırı, 2) = Tb1_Miktar
ListBox1.List(LBoxSatırı, 3) = Tb1_BırımFıyat
ListBox1.List(LBoxSatırı, 4) = Tb1_Tutar
ListBox1.List(LBoxSatırı, 5) = Tb1_DamgaTutarı
ListBox1.List(LBoxSatırı, 6) = Tb1_HazineTutarı
ListBox1.List(LBoxSatırı, 7) = Tb1_MerkezTutarı
ListBox1.List(LBoxSatırı, 8) = Tb1_ShaçekTutarı
ListBox1.List(LBoxSatırı, 9) = Tb1_SatırToplam
ListBox1.List(LBoxSatırı, 10) = aaaa
ListBox1.List(LBoxSatırı, 11) = bbb
ListBox1.List(LBoxSatırı, 12) = dddd
ListBox1.List(LBoxSatırı, 13) = cccc
ListBox1.List(LBoxSatırı, 14) = eeee