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
حيث عند الطباعه تظهر رساله بعددالنسخ المراد طباعتها نسخه او نسختين
ولكم جزيل الشكر والتقدير
جزاك الله خيرا من ربوع زهرائنا الغالية ...نرسل أشعة من النور ، لتخترق جدار التميز والإبداع ..أشعة لامعة ، نرسلها لصاحب التميز والعطاء ...للفاضل الأستاذ( علي ) لك منا كل معاني الحب والتقدير ، والذي يساوي حجم عطاؤك اللامحدود
وحضرتك المعادله اللي اعلي الصفحه باجي اعملها علي ايدي مش بتقبل وبيظهر لي خطا