اريد كود جمع كل الاصناف

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

بعد التحية

اريد من سيادتكم جمع كل الاصناف خلال السهر الذى تم اختياره

ولكم جزيل الشكر والتقديركل الاصناف.rar

[شوقي ربيع]

السلام عليكم

كل الاصناف تجدها اخر قائمة الاصناف

تم اضافة عبارة كل الاصناف في حدث الاقلاع

            ComboBox2.AddItem "ßá ÇáÇÕäÇÝ"

اما كود البحث اصبح هكذا

If ComboBox1 = "" Then MsgBox "ÇÎÊÑ ÇáÔåÑ ÃæáÇ": Exit Sub
     d = Me.ComboBox2
     e = 0
Dim bMonth As Byte
Dim x As Integer: x = 0
Me.TextBox1.Value = 0
         For i = LBound(keyArray) To UBound(keyArray)
                 bMonth = Month(keyArray(i, 1))
            If d = "ßá ÇáÇÕäÇÝ" And bMonth = ComboBox1.ListIndex + 1 Then
                e = e + 1: ReDim Preserve itemArray(1 To 4, 1 To e)
                itemArray(1, e) = keyArray(i, 1)
                itemArray(2, e) = keyArray(i, 4)
                itemArray(3, e) = keyArray(i, 5)
                itemArray(4, e) = keyArray(i, 7)
                x = x + Val(keyArray(i, 7))
            
            ElseIf keyArray(i, 4) = d And bMonth = ComboBox1.ListIndex + 1 Then
                e = e + 1: ReDim Preserve itemArray(1 To 4, 1 To e)
                itemArray(1, e) = keyArray(i, 1)
                itemArray(2, e) = keyArray(i, 4)
                itemArray(3, e) = keyArray(i, 5)
                itemArray(4, e) = keyArray(i, 7)
                x = x + Val(keyArray(i, 7))
                
            End If
        Next i
      
        If e > 0 Then
            If UBound(itemArray, 2) > 1 Then
                Me.ListBox1.List = Application.Transpose(itemArray)
                Else
                Dim c(1 To 1, 1 To 4)
                c(1, 1) = itemArray(1, 1)
                c(1, 2) = itemArray(2, 1)
                c(1, 3) = itemArray(3, 1)
                c(1, 4) = itemArray(4, 1)
                Me.ListBox1.List = c
            End If
        Else
                Me.ListBox1.Clear
        End If
        
  Me.TextBox1.Value = x

End Sub

كل الاصناف.rar

[إبراهيم ابوليله]

اخى واستاذنا شوقى

الله عليك

يابرنس

براحه علينا شويه

ايه الاكواد الجامده دى

----------------------------

فين الشرح

-----------------------

تقبل تحياتى