وضع كود بسيط لهذا الملف

[رفيع سعد]

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

الاساتذة الافاضل الكرام سلام الله عليكم ورحمتة وبركاتة بصراحة المنتدى وكل اساتذة الكرام وحشونى جدا أتمنى من حضراتكم النظر فى هذا الملف هو موجود عندى وشغال لكن بالمعادلات وأناأتمنى أنة يكون بالاكواد وهذا رجاء خاص منى وأنا على يقين تام من قدرات حضراتكم والشكر لكل من اطلع أو القى نظرة أو ساهم فى تظبيت هذا الملف الف شكرالاول.rar

[رفيع سعد]

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

أتمنى من الاساتذة الافاضل التكرم والاطلاع على الملف

[ابراهيم الحداد]

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

انسخ هذا الكود والصقه فى موديول

و اربطه بزر عرض المرفق بالملف

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

Sub Totals()
Dim ws As Worksheet, C As Range
Set ws = Sheets("ورقة1")
Application.ScreenUpdating = False
For Each C In ws.Range("B4:B33, F4:F33, J4:J33, N4:N33")
If C.Offset(0, 1) <> "" And C.Offset(0, 2) <> "" Then
   C.Offset(0, 3) = C.Offset(0, 1) * C.Offset(0, 2)
   End If
If C.Offset(0, 3) <> "" Then
p = p + 1
Cells(p + 2, "T") = C.Value
Cells(p + 2, "U") = C.Offset(0, 1)
End If
   Next
Application.ScreenUpdating = True
End Sub

 

[رفيع سعد]

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

استاذى العزيز زيزو العجوز اولا وقبل كل شئ لك كل الشكر على الرد وحضرتك كدة قربت جدا من المطلوب انا بس عايز الاصناف اللى انا كتبت قدامها الكميات هى بس اللى تتنقل فى العمودين  T  &  U اما بالنسبة للكميات التى اريد مسحها بعد تنفيذ الكود هى الارقام التى كتبتها انا فى اعمدة الكميات 

[رفيع سعد]

الاساتذة الافاضل سلام الله عليكم ورحمتة وبركانة ارجو ممن قرأ الموضوع اذا كان هناك تعديل أو تغيير مطلوب على الملف حتى يعمل بالشكل المطلوب أن يتم توضيحة لى حتى لاأظل فى أنتظار طلبى دون نتيجة ولكم كل الشكر

[ابراهيم الحداد]

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

اخى الكريم

الكود السابق بعد تجريبه يقوم فعلا بجلب الكميات والاصناف فقط التى بها بيانات فقط

والكود التالى لمسح الكميات التى تم كتابتها

Sub Deleting()
Dim ws As Worksheet, C As Range
Set ws = Sheets("ورقة1")
Application.ScreenUpdating = False
 ws.Range("C4:C33, G4:G33, K4:K33, O4:O33").ClearContents
Application.ScreenUpdating = True
End Sub

 

[رفيع سعد]

20 ساعات مضت, رفيع سعد said:

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

استاذى العزيز زيزو العجوز اولا وقبل كل شئ لك كل الشكر على الرد وحضرتك كدة قربت جدا من المطلوب انا بس عايز الاصناف اللى انا كتبت قدامها الكميات هى بس اللى تتنقل فى العمودين  T  &  U اما بالنسبة للكميات التى اريد مسحها بعد تنفيذ الكود هى الارقام التى كتبتها انا فى اعمدة الكميات 

 

[رفيع سعد]

• بسم الله الرحمن الرحيم 
• الاساتذة الافاضل طبتم وطاب مساؤكم رجاء منى لحضراتكم لاكمال هذا الملف 

[رفيع سعد]

للرفع 

[رفيع سعد]

للرفع 

[رفيع سعد]

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

كود ناقصصصصصصصص يأولاد الحلالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالا   وأنا كدة عملت اللى علية ودللت علية وعلية العوض