- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
http://s11.yousendit.com/d.aspx?id=33PJPMFKWY2VP2INXZJIRF1U2K
dosya burada...
UserForm üzerinde ComboBox1 ve ComboBox2 var .Ve TextBox1 var.
Bunlara ben default değerler girdim..Ãimdi bu 3 anahtara göre listeyi süzüp sadeleştirerek [(Giriş+( - Çıkış)] ayrıntıyı (Eldeki net stok miktarını) yine aynı form üzerindeki LİSTBOX1 DE Gösterecek..
ListBox1 aynen sheet deki başlıklar gibi 13 sütündan oluşacak...
ben bazı kodlar yazıp yaklaştığımı hissediyorum fakat gelmedi gerisi.sizlerden yardım istiyorum:
toplam1 = 0
For Each rnga In Range("H2:H" & Range("H65536").End(xlUp).Row)
If rnga.Value = TextBox1 And rnga.Offset(, -6) = ComboBox5 And rnga.Offset(, -5) = ComboBox6 And rnga.Offset(, 1) = ComboBox2 And rnga.Offset(, -2) = TextBox6 And rnga.Offset(, -3) = TextBox5 Then: toplam1 = toplam1 + rnga.Offset(0, 5).Value: toplam1y = toplam1y + rnga.Offset(0, 4).Value
ebt = UserForm2.ComboBox5.Value
klt = UserForm2.ComboBox6.Value
prt = rnga.Offset(, -3).Value
lt = rnga.Offset(, -2).Value
renk = rnga.Offset(, -1).Value
dkm = UserForm2.TextBox1
Next
lütfen üstteki linke tıklayıp örnek.xls i indiriniz....
dosya burada...
UserForm üzerinde ComboBox1 ve ComboBox2 var .Ve TextBox1 var.
Bunlara ben default değerler girdim..Ãimdi bu 3 anahtara göre listeyi süzüp sadeleştirerek [(Giriş+( - Çıkış)] ayrıntıyı (Eldeki net stok miktarını) yine aynı form üzerindeki LİSTBOX1 DE Gösterecek..
ListBox1 aynen sheet deki başlıklar gibi 13 sütündan oluşacak...
ben bazı kodlar yazıp yaklaştığımı hissediyorum fakat gelmedi gerisi.sizlerden yardım istiyorum:
toplam1 = 0
For Each rnga In Range("H2:H" & Range("H65536").End(xlUp).Row)
If rnga.Value = TextBox1 And rnga.Offset(, -6) = ComboBox5 And rnga.Offset(, -5) = ComboBox6 And rnga.Offset(, 1) = ComboBox2 And rnga.Offset(, -2) = TextBox6 And rnga.Offset(, -3) = TextBox5 Then: toplam1 = toplam1 + rnga.Offset(0, 5).Value: toplam1y = toplam1y + rnga.Offset(0, 4).Value
ebt = UserForm2.ComboBox5.Value
klt = UserForm2.ComboBox6.Value
prt = rnga.Offset(, -3).Value
lt = rnga.Offset(, -2).Value
renk = rnga.Offset(, -1).Value
dkm = UserForm2.TextBox1
Next
lütfen üstteki linke tıklayıp örnek.xls i indiriniz....