Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 80)
Width = .Width: Height = .Height
Left = 0: Top = 0
End With
End Sub
ادخل علي هذا الموضوع
استاذي عبدالفتاح أعجز عن شكر حضرتك ومجهودك الرائع .
لم اريد أخذ النطاق كله الي التحميل ولكن أريده كما في الصوره المرفقة واعذرني عن عجزي في شرح المطلوب واريد كما في الصوره المرفقه
الساده الافاضل تحياتي
ارجو من سيادتكم المساعد عاهتم
اريد نقل البيانات من شيت التجهيز من الرنج (f8:t1000) ومعاه كود الصنف ورقم المندوب
الي شيت التحميل الي الرنج(d2:f1000)
كما في المرفق
مشاركة مكررة .... تــم بالفعل حذف المشاركة الأخرى
تجهيز التجحميل.xlsm
الســاده الافاضل تحياتي......
برجاء التعديل علي هذا الكود
Sub Printout()
Sheets("plant").Range("a1:E20").Printout
MsgBox "تم الطباعه بنجاح ....", 64
End Sub
حيث عند الطباعه تظهر رساله بعددالنسخ المراد طباعتها نسخه او نسختين
ولكم جزيل الشكر والتقدير
جزاك الله خيرا من ربوع زهرائنا الغالية ...نرسل أشعة من النور ، لتخترق جدار التميز والإبداع ..أشعة لامعة ، نرسلها لصاحب التميز والعطاء ...للفاضل الأستاذ( علي ) لك منا كل معاني الحب والتقدير ، والذي يساوي حجم عطاؤك اللامحدود
وحضرتك المعادله اللي اعلي الصفحه باجي اعملها علي ايدي مش بتقبل وبيظهر لي خطا
السلام عليكم
الساده الافاضل تحيه طيبه وبعد....
السوال الاول : الرجاء شرح هذه المعادله
IF([@Material]="";"Adjustment";IF(VALUE(RIGHT([@[Cost Center]];1))=6;"Truck Damage & Salse Return";IF(AND(VALUE(RIGHT([@[Cost Center]];3))=701;A2="0095");"Production defect Branches";IF(AND(VALUE(RIGHT([@[Cost Center]];3))=701;A2<>"0095");"Production defect Plant";IF(VALUE(RIGHT([@[Cost Center]];3))=100;"Shipment Damage";IF(VALUE(RIGHT([@[Cost Center]];3))=730;"warehouse Damage";IF(VALUE(LEFT([@[Cost Center]];3))=307;"Truck Damage & Salse Return";"")))))
كما في المرفق
السوال الثاني كيف عمل رسم بياني مرتبط بــــ pirut table كما في الصوره
وتقبلو فائق الاحترام والتقدير
اول سوال.xlsx