Listview'e sipariş ekleme

[seddur]

Merhabalar.Ekli dosyada bulunan userform'daki MASA NO-TARİH-ÜRÜN CİNSİ-FİYATI-ADET-TUTAR bilgilerini Listview1'e ve "Liste" sayfasına kaydetmek istiyorum.Fakat aynı üründen 1 seferden fazla girilse bile o ürüne ait bilgiler tek satırda gözükecek yani aynı ürün için birden fazla satıra ekleme yapmayacak.Yardımcı olacak arkadaşa şimdiden Teşekkür ederim.

 

[seddur]

Aslında tipik bir Restoran kasa takip programı.Anlaşılır düşüncesiyle daha ayrıntılı yazmadım.Buradaki ayrıntı aynı masa no'ya ait ürünleri listview1'e eklediğimizde Listbox1'den seçilen Örneğin mevsim salata ayrı ayrı 3 kez eklendiğinde 3 satır yerine tek satırda gözükecek.KAYDET butonuna tıklandığında Textboxlardaki TARİH-MASA NO-ADET ve Listbox1'deki ÜRÜN CİNSİ-FİYAT bilgileri eşzamanlı olarak hem Listview1'e hemde Liste sayfasına işlenecek.Umarım açıklayıcı olmuştur.Dosyanın son halini yeniden paylaşıyorum.

 

[seddur]

Aşağıdaki kodu düzenledim.Listview1'e ve liste sayfasına kayıt yapıyor ama aynı ürünü alt alta ekliyor tek satırda toplam yaptıramadım.Koyu renkli satırın düzenlenmesi gerekiyor.Listview 2. sutundaki değeri( ADET değeri) 1 arttırınca olur diye düşünüyorum.

Dim s1 As Worksheet
Dim say, x As Byte
Dim satir, xrow, topla, List, sh As Variant
Dim bak, a, sut, i As Integer
If ListBox1.ListIndex = -1 Then Exit Sub
say = UserForm1.TextBox5.Text
For bak = 0 To UserForm1.ListView1.ListItems.Count
If ListView1.ListItems(bak).SubItems(3) = ListBox1.List(ListBox1.ListIndex, 0) Then
say = ListView1.ListItems(bak).SubItems(2)
say = say + 1
xrow = Sheets("Liste").Cells(Rows.Count, "d").End(3).Row
xrow = (xrow - bak) + bak + 1
Exit For
End If
Next
If say = UserForm1.TextBox5 Then


End If
If ListBox1.ListIndex = -1 Then Exit Sub
For a = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(a) = True Then

Set List = ListView1.ListItems.Add(, , UserForm1.TextBox4)
List.ListSubItems.Add , , TextBox3
List.ListSubItems.Add , , TextBox5
List.ListSubItems.Add , , ListBox1.List(ListBox1.ListIndex, 0)
List.ListSubItems.Add , , ListBox1.List(ListBox1.ListIndex, 1)
List.ListSubItems.Add , , TextBox5.Text * ListBox1.List(ListBox1.ListIndex, 1)

xrow = IIf(xrow = 0, Sheets("Liste").Cells(Rows.Count, "D").End(3).Row + 1, xrow)

End If:
Next:
Set sh = Sheets("Liste")
sh.Cells.ClearContents
x = 2
For i = 1 To Me.ListView1.ListItems.Count
sh.Cells(x, "A").Value = ListView1.ListItems(i).Text
sh.Cells(x, "B").Value = ListView1.ListItems(i).SubItems(1)
sh.Cells(x, "C").Value = ListView1.ListItems(i).SubItems(2)
sh.Cells(x, "D").Value = ListView1.ListItems(i).SubItems(3)
sh.Cells(x, "E").Value = ListView1.ListItems(i).SubItems(4)
sh.Cells(x, "F").Value = ListView1.ListItems(i).SubItems(5)

x = x + 1

Next