الرجاء المساعدة في برنامج المخزون

[حاتم مبروك]

الاخوة الزملاء المحترمين

السلام عليكم ورحمة الله وبركاته

ارجوا مساعدتي في الشيت حيث انه يحتوي على المخزون في كل صفحه تخص منطقة معينة ويوجد صفحه للاستعلام

وهي الصفحة المهمة التي اريد اكمالها

بحيث لو وضعت اسم المنتج يظهر لي رقم الكود والرول وعدد الالوان ومجموع كل لون في كل منطقة

ولكم جزيل الشكر والتقدير

[حاتم مبروك]

اسف هذا الملف

استعلام عن المخزون.rar

[حاتم مبروك]

up

[هادى محمد المامون سالم]

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

جرب الكود التالى

Dim i_Sheet, i_Count, cnt As Integer
Sub DOIT()
    Range("A11:J20").ClearContents
    cnt = 11
    For i_Sheet = 1 To 3
        For i_Count = 4 To 21
            If [D7] = Sheets(i_Sheet).Cells(i_Count, "A") Then
                Cells(cnt, "A") = Sheets(i_Sheet).Cells(i_Count, "B")
                Cells(cnt, "B") = Sheets(i_Sheet).Cells(i_Count, "C")
                Cells(cnt, "D") = Sheets(i_Sheet).Name
                Cells(cnt, "E") = Sheets(i_Sheet).Cells(i_Count + 1, "V")
                cnt = cnt + 1
            End If
        Next i_Count
    Next i_Sheet
End Sub

مرفق ملف
 

 

السلام عليكم

Find.rar