Listbox çift tıklayınca seçilen kolondaki adeti iade etme.

[bluesexcel]

Merhabalar yardımlarınıza ihtiyacım var öncelikle kodları gönderdim sonrasında ise derdimi anlatmaya çalıştım.



Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
Sheets("Satışdetay").Select
Sheets("Satışdetay").Range("A" & ListBox2.ListIndex + 2).Select

t = CLng(CDate(ListBox2.List(i, 0))) 'tarih
s = "İNTERNET" ' internet sayfası
u = ListBox2.List(i, 1)
a = ListBox2.List(i, 2) 'Adet
ss = Sheets(s).Cells(Rows.Count, 4).End(xlUp).Row
say1 = WorksheetFunction.Match(t, Sheets(s).Columns(4), 0)
If say1 = Empty Then say1 = ss + 1: Sheets(s).Cells(say1, 4) = CDate(t)
say2 = WorksheetFunction.Match(u, Sheets(s).Rows(1), 0)
If ss = Empty Then MsgBox "Sayfa bulunamadı.": Exit Sub
If say2 = Empty Then MsgBox "Ürün bulunamadı.": Exit Sub
Sheets(s).Cells(say1, say2) = Sheets(s).Cells(say1, say2) - a


End If
Next i


Selection.EntireRow.Delete
If ListBox2.ListCount > 0 Then ListBox2.ListIndex = ListBox2.ListCount - 1


bu kodlar listbox2 de getirdiği verilerin içinden 1. kolondaki ürün adını internet sayfasında bulup 2. kolondaki adet sayısını (- eksi) olarak ekliyor.

yani örnek üründen 10 adet sattım ama yanlış satış yaptım yada satışı iptal ettik. yukarıdaki kod satışdetay sayfasında satırı sildikten sonra internet sayfasında o ürünün altına -10 yazıyor.

bunun aynı işlemini devamında faturastok sayfasındada yapmasını istiyorum ama bu sefer ürünü adını 1. kolondan değil 6. kolondaki ürün adını bulup aynı adeti buradada eksiltmesini istiyorum

Yani 1 satış 2 ürün adı var birini eksiltiyor ama diğerini eksiltemiyorum.