Listbox bul,sil,değiştir sorusu

[cihantopuz]

link:http://www.excel.web.tr/f48/listbox-kayytet-deoi-tir-sil-bul-t114768/sayfa4.html
Sayın Halit hocamın yukarıdaki konuda bulunan örnek dosyası üzerinde stelci adlı arkadaşın yaptığı revizyona benzer bir çalışma yürütmekteyim.
ekli dosyaya dilediğim şekli uygulayabilirsem kendi hazırladığım programa bu formu import edeceğim, şimdilik sadece verilerimin bir kısmını fikir verebilmesi amacıyla örnek dosyaya ekledim,
sizlerden ricam seçim yaptığımız listboxta seçimimizi yaptığımız alanda şu an görünen satır numarası ve comboda seçilenleri değilde veri sayfasının tüm sütunlarını görmeyi istiyorum, (çünkü doğru satırın seçilebilmesi için).
Listbox comboda ne seçersek seçelim sütunların tamamını gösterebilir mi, yani arama yapabilelim ancak seçim alanımız geniş olsun
mümkün müdür?
Not: ekli dosyaya sadece verileri koydum örnek olması amacıyla o nedenle bu örnekteki combobox ve textboxlara çağrılan verilerin doğru formatlarda görünmediğinin, ve diğer uyumsuzlukların farkındayım.

 

[halit3]

Benim uyguladığım örnek dosyada AddItem yöntemiyle listbox a veriler on sutündan fazlasını almaz.

Ama aşağıdaki linkde farklı bir uygulama var oradaki dosya işinizi görür linki inceleyin.

http://www.excel.web.tr/f14/listboxta-iki-tarih-arasy-listeleme-t115761.html

not: sorularınızı sorarken isim zikretmeyin zira bana hitapla yazdığınız soruya belki kimse cevap vermeye bilir

 

[cihantopuz]

Benim uyguladığım örnek dosyada AddItem yöntemiyle listbox a veriler on sutündan fazlasını almaz.

Ama aşağıdaki linkde farklı bir uygulama var oradaki dosya işinizi görür linki inceleyin.

http://www.excel.web.tr/f14/listboxta-iki-tarih-arasy-listeleme-t115761.html

not: sorularınızı sorarken isim zikretmeyin zira bana hitapla yazdığınız soruya belki kimse cevap vermeye bilir

hocam, kusura bakmayın düşünemedim.

diğer dosyayı daha önce denemiştim ancak bu şekilde çalışmasını sağlayamamıştım. Bu metod tam benim aradığım gibi.
listboxa veriler 10 sütundan fazla bu çalışmada almaz dediniz, ben de ona göre gereksiz bilgileri kalan sütunlara yönlendirdim.
on sütunu görüntülemesi için nasıl bir değişiklik yapmamız gerekir?

 

[halit3]

örnek olarak

Aşağıdaki kırmızı bölümü 10 yapın
ListBox1.ColumnCount = 5


ListBox1.ColumnWidths = "300;20;0" 'lisbox'taki sütunların genişliği
Yukarıdaki kırmızı bölüm yerine
Aşağğıdaki gibi yapın
ListBox1.ColumnWidths = "100;60;60;60;60;60;60;60;60;60" 'lisbox'taki sütunların genişliği


Aşağıdaki bölümü

ListBox1.AddItem
ListBox1.List(sat1, 0) = Sheets("veri").Cells(i, sat).Value
ListBox1.List(sat1, 1) = i

bununla değiştirin

ListBox1.AddItem
For r = 0 To 9
ListBox1.List(sat1, r) = Sheets("veri").Cells(i, sat + r).Value
Next

 

[cihantopuz]

örnek olarak

Aşağıdaki kırmızı bölümü 10 yapın
ListBox1.ColumnCount = 5


ListBox1.ColumnWidths = "300;20;0" 'lisbox'taki sütunların genişliği
Yukarıdaki kırmızı bölüm yerine
Aşağğıdaki gibi yapın
ListBox1.ColumnWidths = "100;60;60;60;60;60;60;60;60;60" 'lisbox'taki sütunların genişliği


Aşağıdaki bölümü

ListBox1.AddItem
ListBox1.List(sat1, 0) = Sheets("veri").Cells(i, sat).Value
ListBox1.List(sat1, 1) = i

bununla değiştirin

ListBox1.AddItem
For r = 0 To 9
ListBox1.List(sat1, r) = Sheets("veri").Cells(i, sat + r).Value
Next

Sayın hocam;
dediğiniz şekilde değişiklikleri yaptım
ancak listboxtan seçim yaptığım zaman run-time error '1004'
application defined or object defined error hatasını
listboxun click kodu altındaki

Controls("ComboBox" & i) = Sheets("veri").Cells(sat, i).Value

ComboBox11.Text = Format(Sheets("veri").Cells(sat, 11).Value)
ComboBox15.Text = Format(Sheets("veri").Cells(sat, 15).Value, "hh:ss")
ComboBox19.Text = Format(Sheets("veri").Cells(sat, 19).Value, "hh:ss")

satırlarıında veriyor.
sizce nedeni ne olabilir.

 

[halit3]

Sayın hocam;
dediğiniz şekilde değişiklikleri yaptım
ancak listboxtan seçim yaptığım zaman run-time error '1004'
application defined or object defined error hatasını
listboxun click kodu altındaki

Controls("ComboBox" & i) = Sheets("veri").Cells(sat, i).Value

ComboBox11.Text = Format(Sheets("veri").Cells(sat, 11).Value)
ComboBox15.Text = Format(Sheets("veri").Cells(sat, 15).Value, "hh:ss")
ComboBox19.Text = Format(Sheets("veri").Cells(sat, 19).Value, "hh:ss")

satırlarıında veriyor.
sizce nedeni ne olabilir.

Sizin yukarıdaki mesajınızda listbox a birden fazla sutün nasıl aldırabilirim demiştiniz. Bende yukarıdaki bölümleri değiştirmenizi söyledim.

Tabi budurumda etkileyen her yeri değiştirmek gerekiyor yani kodların hemsini yeniden yazmak gerekiyor.

son olarak bunuda yazıyorum ama sorunuz bitmeyecek niçin derseniz başka biryerde gene hata alacksınız.

aşağıdaki bülümü
sat = Val(ListBox1.List(ListBox1.ListIndex, 1))

bununla değiştirin

sat = ListBox1.ListIndex + 2


Bu seferde değiştir düzelt ve süzme işlemlerini yapamıyorum diyeceksiniz.

görüyorsunuz kodların her tarafını değiştirmek gerekiyor.

 

[cihantopuz]

Sizin yukarıdaki mesajınızda listbox a birden fazla sutün nasıl aldırabilirim demiştiniz. Bende yukarıdaki bölümleri değiştirmenizi söyledim.

Tabi budurumda etkileyen her yeri değiştirmek gerekiyor yani kodların hemsini yeniden yazmak gerekiyor.

son olarak bunuda yazıyorum ama sorunuz bitmeyecek niçin derseniz başka biryerde gene hata alacksınız.

aşağıdaki bülümü
sat = Val(ListBox1.List(ListBox1.ListIndex, 1))

bununla değiştirin

sat = ListBox1.ListIndex + 2


Bu seferde değiştir düzelt ve süzme işlemlerini yapamıyorum diyeceksiniz.

görüyorsunuz kodların her tarafını değiştirmek gerekiyor.

Zahmetiniz için çok tesekkur ederim, geri kalan kısımları kendim halletmeye çalışırım.