مجدى يونس

لا داعى للاعزار انا دائم السفر هذه الايام فاعزرنى ان تأخرت انت لست صاحب الحاجة كلنا معا نحتاج لبعضنا البعض

الاخ ابو الياس ارسل ملف بطلبك

الاخ العزيز نرجوا تغير الاسم الى اللغة العربية بالنسبة لطلبك انظر الصورة من انتقالات ثم اختار شكل الانتقال فى هذه الشريحة تضاؤل

الاخ مصطفى اسف على التأخير فى الرد لسفرى الايام دى الملف تم تعديل ال 3 صفحات الاولى واضافة بعض الصفحات وادخال الصوت كمل باقى الاسئلة بنفس الطريقة مسابقة خيارات متعددة لإصدار 2003.rar

شكرا لك

شكرا لك

الاخ مصطفى وعليكم السلام ورحمة الله وبركاتة ضع الاضافات والاسئلة والاجوبة فى الملف ولو فيه طلب اطلبه على الملف

الاخ يوسف اعرض سؤالك فى قسم الاكسل وليس البوربوينت

جذاك الله خير

الاخ هشام وعليكم السلام ورحمة الله وبركاتة Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub معاينة طباعة مع امكانية الطباعه.rar

الف شكر

الف شكر

الف شكر وامين يارب العالمين

الف شكر

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

شكرا لك

شكرا لك

شكرا لك

بسم الله مشاء الله اعمال ومجهود رائع وحمدالله بالسلامة

وبارك فيك

الاخ شفان ريكاني شكرا لك

شكرا لك

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

وبارك فيكم والف شكر ووحشنى جميعا

فورم طباعة الفورم بالكامل الفيديو ' لو الثلاثة فيهم بيانات If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then 'oاختار لى اخر خلية فى العمود x = Range("o" & Rows.Count).End(xlUp).Row 'اجعل الخلية الاولىمن التكست بوكس رقم 1 Range("o" & x + 1).Value = TextBox1.Value 'اعمل لى ازاحة عمود واحد ولكن فى نفس السطر Range("o" & x + 1).Offset(0, 1).Value = TextBox2.Value 'اعمل لى ازاحة عمودين ولكن فى نفس السطر Range("o" & x + 1).Offset(0, 2).Value = TextBox3.Value 'ارسل لى رسالة بنعم او لا للطباعة d = MsgBox("هل تريد الطباعة ", vbYesNo, "طباعة الفاتورة مع تحيات مجدى يونس ") 'لو المستخدم اختار زر نعم If d = vbYes Then 'اطبع فورم رقم 3 UserForm3.PrintForm 'فرغ البيانات للتكست ال الثلاثة TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" Else 'لو المستخدم اختار زر لا If d = vbNo Then 'فرغ بيانات التكست الثلاثة TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" 'غلق البيانات End If End If Else 'لو لم ادخل بيانات فى التكست الثلاثة ارسل الرسالة التالية MsgBox ("البيانات غير مكتملة") End If End Sub