Şartlı veri aktarımı

[fehdur]

Aşağıdaki kod ile lisitbox1'den listbox3'veri aktarıyorum.Projede toplam 16 listbox olacak,hangi listbox seçilmiş ise listbox1'deki siparişler o listbox'a veri aktaracak.Yani listbox1'de yiyecek ve içecek dökümleri var listbox3'de ise masanın verdiği siparişlerin dökümü var.masa siparişlerinin olduğu Listboxları(16 adet) -visible-false metoduyla ekranda değiştiriyorum.Daha açıklayıcı bilgi verebilirim,eğer zor olacaksa dosyayıda ekleyebilirim.İyi çalışmalar dilerim.



Dim i As Long

If ListBox1.ListIndex = -1 Then Exit Sub

For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
ListBox3.AddItem 'ListBox1.List(i, 0)
ListBox3.List(ListBox3.ListCount - 1, 1) = ListBox1.List(i, 0)
ListBox3.List(ListBox3.ListCount - 1, 2) = ListBox1.List(i, 1)
End If
Next i

 

[fehdur]

Soruyu biraz daha farklı sorarsam belki yanıt alabilirim diye düşündüm.Şöyleki:Eğer üç koşullu if then komutu yazabilirsek sorunum çözülür.Sütun (A) ve (D) de veriler var bir de "i" değişkeni var..combobox1 deki veri sütun ("a",i) ye eşit olduğunda ve A1 hücresindeki veri ("D",i)ye eşit olduğunda ve H sütunu boş olduğunda eşleşen veriler listview1'e aktarılacak. Umarım anlaşılır olmuştur.

 

[fehdur]

kodu yazdım ama çalışmıyor,Aşağıda paylaşıyorum,Üç koşul yerine geldiğinde listview'e döküm alınmak istenmiştir.

Set S1 = Sheets("Liste")
For i = 1 To S1.Cells(Rows.Count, "d").End(xlUp).Row
If Sheets("Liste").Cells(i, "d").Value = Sheets("Anasayfa").Range("A1") Then
ElseIf Sheets("Liste").Cells(i, "a").Value = Sheets("Anasayfa").Range("A2") Then
ElseIf Sheets("Liste").Cells(i, "h") = "" Then
'ElseIf Sheets("Liste").Cells(i, "a").Value = Sheets("Anasayfa").Range("A2") And Sheets("Liste").Cells(i, "h") = "" Then
' If S1.Cells(i, "d").Value = Sheets("Anasayfa").Range("A1") Then
Set List = .ListItems.Add(, , S1.Cells(i, "a").Text)
List.ListSubItems.Add , , S1.Cells(i, "b").Text
List.ListSubItems.Add , , S1.Cells(i, "c").Text
List.ListSubItems.Add , , S1.Cells(i, "d").Text
List.ListSubItems.Add , , S1.Cells(i, "e").Text
List.ListSubItems.Add , , S1.Cells(i, "f").Text
List.ListSubItems.Add , , S1.Cells(i, "g").Text
List.ListSubItems.Add , , S1.Cells(i, "h").Text