"Bakım" yazan satırları Listbox'a getirmek

[cocoa35]

Merhaba üstatlar, Listbox'a sadece d kolonunda " Bakım" yazan satırları getirmek istiyorum nasıl yapabilirim

 

[Korhan Ayhan]

Merhaba,

Eğer listeleyeceğiniz verinin sütun sayısı 10 adedi geçmiyorsa klasik döngü ile kolaylıkla yapılabilir. Forumda ListBox1.AddItem ifadesi ile arama yapabilirsiniz.

Yok sütun sayısı 10 adedi geçiyorsa bu sefer dizi metodu kullanmanız gerekir. Forumda ListBox1.List ya da ListBox1.Column ifadeleri ile arama yapabilirsiniz. Ya da daha profesyonel olarak ado uygulaması ile olabilir. Bununla ilgili olarak forumda listbox+adodb ifadesi ile arama yapabilirsiniz.

 

[cocoa35]

Tamam dediğiniz şekilde buldum ve hallettim teşekkürler

 

[cocoa35]

Merhaba,

Eğer listeleyeceğiniz verinin sütun sayısı 10 adedi geçmiyorsa klasik döngü ile kolaylıkla yapılabilir. Forumda ListBox1.AddItem ifadesi ile arama yapabilirsiniz.

Yok sütun sayısı 10 adedi geçiyorsa bu sefer dizi metodu kullanmanız gerekir. Forumda ListBox1.List ya da ListBox1.Column ifadeleri ile arama yapabilirsiniz. Ya da daha profesyonel olarak ado uygulaması ile olabilir. Bununla ilgili olarak forumda listbox+adodb ifadesi ile arama yapabilirsiniz.

Sn Korhan bey, dediğiniz gibi forumda araştırdım buldum ve işimi hallettim ancak ufak bir dokunuşunuz gerekiyor aşağıdaki kod'lara göre ListBox1 'e " Bakımda" yazan satırlar açılışta geliyor ancak Üst menü başlıkları boş geliyor Yani No, Plaka, Model,Yıl gibi o bölümleri boş getiriyor bunu nasıl düzeltebilirm kod'lar aşağıda;

Sub listbox1_doldur()
With ListBox1
.ColumnCount = 9
.ColumnWidths = "120;60;60;70;150;60;60;60;60"
ListBox1.ColumnHeads = True
End With
'listboxu temizliyoruz
ListBox1.Clear
'U sütununun son satırına kadar döngü kuruyoruz
For suz = 4 To 5 + WorksheetFunction.CountA([m4:m65536])
'büyük küçük harf duyarlı olması için işlem yaptırıyoruz
alan = UCase(Replace(Replace(Worksheets("Araclar").Range("m" & suz), "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace("Bakımda", "ı", "I"), "i", "İ"))
'U sütun verileri ile combodaki veriyi karşılaştırma yapıyoruz
If InStr(1, alan, veri) > 0 Then
'koşul oluştuğunda verileri listboxa aldırıyoruz
ListBox1.AddItem
'listboxa ilgili sütunlardaki verileri aldırıyoruz
ListBox1.List(s, 0) = Range("b" & suz)
ListBox1.List(s, 1) = Range("c" & suz)
ListBox1.List(s, 2) = Range("d" & suz)
ListBox1.List(s, 3) = Range("e" & suz)
ListBox1.List(s, 4) = Range("g" & suz)
ListBox1.List(s, 5) = Range("h" & suz)
ListBox1.List(s, 6) = Range("ı" & suz)
ListBox1.List(s, 7) = Range("j" & suz)
ListBox1.List(s, 7) = Range("m" & suz)
's değişkenine + 1 atıyoruz
s = s + 1
'eğer son
End If
'döngü sonu
Next
End Sub