أبومروان

Application.PrintOut Copies:=4, Printer:="HP Printer", Collate:=True

الله ينور عليك

بارك الله فيك وجزاك الله خيرا

بارك الله فيك وجزاك الله خيرا

السلام عليكم يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى سلسله شروحات أكثر من رائعة تحياتي لشخصك الكريم كيف جعلت الفورم لا يحمل سوا صوره واحده داخل محرر الاكواد لو أردنا اظهار باقي صفحات الانفوجرافيك داخل محرر الاكواد كيف نفعل؟

جزاكم الله خيرا ونفع بكم

🌤منتظرين المزيد والمزيد من البرامج والمشروعات الابداعيه وممكن كمان اضافه خيار إرسال المرفق للواتساب بدل الميل 🌤 ‏

ارفق ملف وخبراء المنتدى سوف يقومون بالمساعدة أن شاء الله اعتقد بان هذا الموضوع قد يفيدك

استاذ @احمد غانم تحياتي لشخصك الطيب

يقول أبو الطيب المتنبي: عَـلَى قَـدْرِ أَهـلِ العَـزمِ تَأتِي العَزائِمُ وتَأتِي عَـلَى قَـدْرِ الكِـرامِ المَكـارِمُ و تَعظُـمُ فـي عَيـنِ الصّغِـيرِ صِغارُها وتَصغُـر فـي عَيـنِ العَظِيـمِ العَظـائِمُ مبدع بارك الله فيك وزادك الله من فضله

أفضل إجا لسلام عليكم 1. اذهب الى Start ثم Settings 2 . اختر Control Panel 3. Regional And Language Options 4. من تبويب Advanced في خانة الاختيار اختر اللغة العربية 5. ثم OK في محرر الاكواد من قائمة Tools ثم Option من تاب Editor Format ثم Font اختر نوع الخط هذا Courier New (Arabic)

ما اروع الأشخاص الذين يعتقدون أن كل شيء ممكن هم القادرون على الاكتشاف والابداع

بارك الله فيك استاذنا الكريم

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

بارك الله فيك اخي الكريم

بارك الله فيك اخي الكريم

جزاك الله خيرا ورفع قدرك

ممكن تستخدم ...وهكذا Application.wait(now+time ("00.35"))

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

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

جزاك الله خيرا وزادك من فضله وكرمه

عمل اكثر من رائع جزاك الله خيرا