listboxda diğer hücreleri seçmek

[ofbayoglu]

Arkadaşlar merhaba Listbox da bi videodan örnek alarak aşağıdaki kodları yazdım liste 2 sütunda çalıştı ama 16 sütun var gelmesini istediğim ve burda 1.sütünda arama yapıyor. A sütünunda arama yapmak istediğim sütün O sütünü bu konuda yardımcı olurmusunuz..


Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()
Dim i As Long
Me.TextBox1 = Format(StrConv(Me.TextBox1, vbLowerCase))
Me.ListBox1.Clear
Me.ListBox1.AddItem "DURUMU"
Me.ListBox1.List(0, 1) = "FİRMA ADI"
Me.ListBox1.Selected(0) = True
For i = 2 To Sayfa1.Range("A1000000").End(xlUp).Row
For x = 1 To Len(Sayfa1.Cells(i, 1))
a = Me.TextBox1.TextLength
If LCase(Mid(Sayfa1.Cells(i, 1), x, a)) = Me.TextBox1 And Me.TextBox1 <> "" Then
Me.ListBox1.AddItem Sayfa1.Cells(i, 1)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = "" & Sayfa1.Cells(i, 2)
End If
Next x
Next i
End Sub

 

[Muzaffer Ali]

Merhaba.

Me.ListBox1.List(ListBox1.ListCount - 1, 1) = "" & Sayfa1.Cells(i, 2)

Satırı B sütunu ListBox'a aktarıyor aynı şekilde devam etmelisiniz. Aşağıdaki gibi.

Me.ListBox1.List(ListBox1.ListCount - 1, 1) = "" & Sayfa1.Cells(i, 2)
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = "" & Sayfa1.Cells(i, 3)
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = "" & Sayfa1.Cells(i, 4)

 

[ofbayoglu]

aynen sonra farkettim hocam çok teşekkür ederim...

 

[ofbayoglu]

hocam birde A sutununda değilde D sutununda arama yapabilmem için ne yapmam gerekiyor. A10000 atıyorum D10000 mi olarak düzenlemeliyim.

 

[ofbayoglu]

sanırım oldu

Private Sub TextBox1_Change()
Dim i As Long
Me.TextBox1 = Format(StrConv(Me.TextBox1, vbLowerCase))
Me.ListBox1.Clear
Me.ListBox1.AddItem "DURUMU"
Me.ListBox1.List(0, 1) = "FİRMA ADI"
Me.ListBox1.Selected(0) = True
For i = 2 To Sayfa1.Range("A1000000").End(xlUp).Row
For x = 1 To Len(Sayfa1.Cells(i, 6))
a = Me.TextBox1.TextLength
If LCase(Mid(Sayfa1.Cells(i, 6), x, a)) = Me.TextBox1 And Me.TextBox1 <> "" Then
Me.ListBox1.AddItem Sayfa1.Cells(i, 1)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = "" & Sayfa1.Cells(i, 2)
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = "" & Sayfa1.Cells(i, 3)
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = "" & Sayfa1.Cells(i, 4)
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = "" & Sayfa1.Cells(i, 5)
Me.ListBox1.List(ListBox1.ListCount - 1, 5) = "" & Sayfa1.Cells(i, 6)

End If
Next x
Next i
End Sub

 

[Muzaffer Ali]

f LCase(Mid(Sayfa1.Cells(i, 6), x, a)) = Me.TextBox1 And Me.TextBox1 <> "" Then

Satırında bulunan 6 rakamı yerine arama yapmak istediğiniz sütun harfini yazabilirsiniz. Yani 6 yerine "D" yazmalısınız.

Aşağıdaki satırda da 6 yerine "D" yazmalısınız.

For x = 1 To Len(Sayfa1.Cells(i, 6))

 

[Muzaffer Ali]

Siz tam olarak bu kodlar ile neyi amaçlıyorsunuz?

 

[ofbayoglu]

hocam sipariş programına benzer bir program yapmaya çalışıyorum burda hazır olana ürünlerin teslim edilen ürünlerin yada bekleyenlerin listesini listboxdan ayırmak istiyorum. liste açıldığında sadece açık siparişlerin yer almasını isityorum. ama gerektiğindede teslim edilenleri ekrana getirerek listelemek istiyorum. şirket içi sipariş takip programı bir nevi. excel üzerinden yaptım aylık takip ediyordum şimdi 1 yıllık veri üzerinden işlem yapmak isiyorum. bu yüzden makro üzerinden uyuglamaua çalışıyorum. bir sonraki aşama access veri tabanlı bir uygulamaya taşımak tüm çalışmayı.

 

[Muzaffer Ali]

Siz tam olarak bu kodlar ile neyi amaçlıyorsunuz?

 

[ofbayoglu]

Siz tam olarak bu kodlar ile neyi amaçlıyorsunuz?

hocam sipariş programına benzer bir program yapmaya çalışıyorum burda hazır olana ürünlerin teslim edilen ürünlerin yada bekleyenlerin listesini listboxdan ayırmak istiyorum. liste açıldığında sadece açık siparişlerin yer almasını isityorum. ama gerektiğindede teslim edilenleri ekrana getirerek listelemek istiyorum. şirket içi sipariş takip programı bir nevi. excel üzerinden yaptım aylık takip ediyordum şimdi 1 yıllık veri üzerinden işlem yapmak isiyorum. bu yüzden makro üzerinden uyuglamaua çalışıyorum. bir sonraki aşama access veri tabanlı bir uygulamaya taşımak tüm çalışmayı.