Çözüldü Listbox çift tıklayınca veriyi geri iade etme

Dener misiniz:

HTML:

askan' Alıntı:

Dener misiniz:

HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

Hocam öncelikle ilginiz için çok teşekkür ederim.maalesef çalışmadı faturastok sayfasından aynı internet sayfasındaki gibi satılan adeti geri iptal etmiyor

HTML:

bu kodda ne yaparsam yapayım listbox2 deki 6. kolondaki isimi buldurup eksittiremedim hep 1. kolondaki isimi buluyor.

Olayı tam bir anlatın. Baştan itibaren. Siz önce fatura giriş yapıyorsunuz. Benim gördüğüm Fatura giriş yapınca sadece faturagiriş sayfasına veri ekleniyor. Faturastok sayfasına veri işlenmiyor. Olayı bu şekilde baştan izah ederseniz. Nerelerden ne, nasıl düşüleceğini bilmemiz lazım. Tahminim girişinizde de sıkıntı olabilir.

askan' Alıntı:

Olayı tam bir anlatın. Baştan itibaren. Siz önce fatura giriş yapıyorsunuz. Benim gördüğüm Fatura giriş yapınca sadece faturagiriş sayfasına veri ekleniyor. Faturastok sayfasına veri işlenmiyor. Olayı bu şekilde baştan izah ederseniz. Nerelerden ne, nasıl düşüleceğini bilmemiz lazım. Tahminim girişinizde de sıkıntı olabilir.

Genişletmek için tıkla...

Şimdi hocam benim 2 adet çıkış yapan sayfam var birisi ürünün bizim belirlediğimiz adı ve stoğu diğeri ise maskeleme yaptığımız bir ürün adı.

yani ben misal a ürününden satıyorum ama bunun stok çıkışını yaptığı gibi birde fatura stoğundan c ürünü sattım diye düşürmek istiyorum görselde ( a ürünü ) ve ( b ürünü ) olarak yazdım. a ürünü satışında veya listboxa çift tıkladığımda satışı iptal etmesinde herhangi bir sorun yok.
ama b ürünü satışını yapıyor lakin faturadaki satış adetini iptal etmiyor.

kodları kendimce uyarlamaya çalıştım lakin listboxdaki 6. kolondaki isimi buldurup altına - çıkışını verdiremedim.



'On Error Resume Next

s = "faturastok"
u = ListBox2.List(i, 1)
a = ListBox2.List(i, 6) 'Adet
If t = Empty Or s = Empty Or u = Empty Or a = Empty Then MsgBox "Bilgileri tam ve doğru giriniz.": Exit Sub
ss = Sheets(s).Cells(Rows.Count, 4).End(xlUp).Row
say3 = WorksheetFunction.Match(tt, Sheets(s).Columns(4), 0)
If say3 = Empty Then say3 = ss + 1: Sheets(s).Cells(say3, 4) = CDate(t)
say4 = WorksheetFunction.Match(u, Sheets(s).Rows(6), 0)
If ss = Empty Then MsgBox "Sayfa bulunamadı.": Exit Sub
If say4 = Empty Then MsgBox "Ürün bulunamadı.": Exit Sub
Sheets(s).Cells(say3, say4) = Sheets(s).Cells(say3, say4) - a

Sanırım derdimi anlatma özürlüyüm....



HTML:

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ından 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 eksiltmesini istiyorum

umarım bu sefer anlatmayı becerebilmişimdir.