Stokları Listboxsta görmek

[ozdogan]

Arkadaşlar Mrb. sğolsun Levent hocamızın verdiği kodlar ile seçtiğim sayfadaki ve seçtiğim stoğa dair toplam giriş ve çıkış miktarını ayrı ayrı textbosa aldırdım. Ama zaman açısından bayağı bir kaybım oluyor. Çünkü her stok kartımın durumunu görmek için stok ismini teker teker combobxla seçip stok durumunu görüyorum.

Peki şöyle bir şey nasıl olur.
Malzemelerim: 1 adet combobox ve 1 adet listbox.

combobox1 den sayfa ismimi seçtiğimde o sayfada adı geçen ve tekrar etmiş olan veya etmemiş (farketmez) stok isimlerimin giriş ve çıkış toplamının ve bu giriş ve çıkıştan sonraki kalan durumunu listboxsta nasıl gösterebilirim.

stok isimlerim a:2-a1000 arasında tekrar ediyor. Giriş değerleri b:2-b1000 çıkış ise; c2:-c1000 arasında tekrar ediyor. kalan için excelde bişey yapmadan bunu form üzerinde toplattıracağız.

yani kısaca; Combobox ile seçtiğim sayfadaki defter adlı stok kaçkez tekrar etmişse etsin bunların hepsinin giriş, çıkış ve kalan sonucu bir defter adıyla listboxsta görmem lazım. Umarım anlatabilmişidir arkadaşlar. Çalışmalarınızda Allah Kolaylık versin. Teşekkürler.

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[ozdogan]

Levent Hocam Dosyamı bu. Rapor İşlemi bölümündedir yapmak istediğim. Örnek Stoklarım var. Sayfamda tekrar Etmiş Ama bunlar için rapor alırken Listboxsta bir sefer gözükecek ve sayfada ne kadar tekrar ederse etsin Listboxsta hepsinin giriş çıkış ve kalan sonucunu bir isimle görcez. Teşekkürler Hocam.

 

[Levent Menteşoğlu]

Comboboxa aşağıdaki kodu yazarak deneyin.

[vb:1:1cbb5a0324]Private Sub ComboBox9_Change()
ListBox1.Clear
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "120;130;120;100"
ListBox1.TextAlign = fmTextAlignCenter
Set s1 = Sheets(ComboBox9.Value)
For a = 2 To s1.[a65536].End(3).Row
If WorksheetFunction.CountIf(s1.Range("a2:a" & a), s1.Cells(a, "a")) = 1 Then
giris = WorksheetFunction.SumIf(s1.[a2:a65536], s1.Cells(a, "a"), s1.[d2:d65536])
cikis = WorksheetFunction.SumIf(s1.[a2:a65536], s1.Cells(a, "a"), s1.[e2:e65536])
c = c + 1
ListBox1.AddItem
ListBox1.List(c - 1, 0) = s1.Cells(a, "a")
ListBox1.List(c - 1, 1) = giris
ListBox1.List(c - 1, 2) = cikis
ListBox1.List(c - 1, 3) = giris - cikis
End If
Next
End Sub[/vb:1:1cbb5a0324]

 

[ozdogan]

Valla Hocam Çok Çok Teşekkür ediyorum. Allah Razı olsun. Valla büyük bir dertten kurtardın hocam. Çok sağolun. Kolay gelsin.