تعديل على كود النواقص

[محمد7788]

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

فى الملف المرفق كود لاستخراج النواقص وهى عبارة عن الكمية المباعة فى تاريخ معين وانا اريد عند الضغط على زر الاستدعاء يقوم باستدعاء البيانات المطلوبة من sheet3 الجزء الخاص بكود الصنف يقوم باستدعاء البيانات من عمود c والعمود i  والعمود o وكذلك الحال فى الجزء الخاص باسم الصنف وكذلك الكمية المباعة

المصنف1.xlsmFetching info...

[حسونة حسين]

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

تفضل ان شاء الله طلبك

المصنف1.xlsmFetching info...

 

[محمد7788]

بارك الله فيك استاذنا فعلا ده المطلوب

بس لو انا حبيت ازود مع العمود c و i و o عمدان تانى زى العمود u و aa مثلا اعدل ايه فى الكود؟

[حسونة حسين]

هذه السطور

arr = WSData.Range("A2:Q" & WSData.Cells(Rows.count, 1).End(xlUp).Row).Value
ReDim Temp(1 To UBound(arr, 1) * 3, 1 To 4)
For J = 0 To 2
P = P + 2
الي
arr = WSData.Range("A2:AF" & WSData.Cells(Rows.count, 1).End(xlUp).Row).Value
ReDim Temp(1 To UBound(arr, 1) * 5, 1 To 4)
For J = 0 To 4
P = P + 4

بدل ال  Q ضع اخر عامود عندك AF

بدل ال  * 3 ضع  * 5

بدل ال  For J = 0 To 2  ضع  For J = 0 To 4

بدل P = P + 2  ضع P = P + 4

المصنف2.xlsmFetching info...

[محمد7788]

تمام انا فهمت النقطة دى

بدل ال  Q ضع اخر عامود عندك AF

بدل ال  * 3 ضع  * 5

بزود حسب عدد الأعمدة انا زودت عمودين ازود رقمين 

لكن النقطة دى بزود بناءا على ايه

بدل ال  For J = 0 To 2  ضع  For J = 0 To 4

بدل P = P + 2  ضع P = P + 4

[حسونة حسين]

  في 23‏/1‏/2023 at 15:20, محمد7788 said:

بزود حسب عدد الأعمدة انا زودت عمودين ازود رقمين 

Expand  

يتم التزويد علي حسب الاكواد التي تضعها وليس العواميد

زودت 1 كود يعني ( 6 عامود ) يبقي تزود 1 في كل السطور التى اخبرتك بها

زودت 2  كود يعني ( 12 عامود ) يبقي تزود 2 في كل السطور التى اخبرتك بها

زودت 3  كود يعني ( 18 عامود ) يبقي تزود 3 في كل السطور التى اخبرتك بها

تمام واضحه كده

 

 

 

[محمد7788]

تمام كدا المعلومة وضحت وتم التنفيذ بنجاح

جزاكم الله كل خير

[حسونة حسين]

وجزاكم مثله اخى

الحمد لله الذي بنعمته تتم الصالحات