الجزيرة

ممتاز أخي يحياوي إبداع غير مستغرب منكـ

أخي / أبو عبد الله أكثر من رائع كالعادة ولكن هل يتأثر البرنامج عند تعديل أسم ورقة أو أكثر ؟

نعم هذا ما قصدت :) كل الشكر والتقدير لك أخي عبد الله

السلام عليكم ورحمة الله وبركاته المطلوب عند أختيار زر ( حذف) تأتي رسالة مفادها هل تريد حذف الاسم المحدد ؟ وعند اختيار نعم يتم الحذف مع العلم بأن محتوى الملف من إبداعات أعضاء المنتدى :) دليل الهاتف.rar

وهذا التصميم إهداء لك أخي أبو أحمد

أبو أحمد & أبو عبد الله إبداع × إبداع :)

شكراً لكم جميعاً تم عمل اللازم بعد تعديل طفيف على الكود :)

عوداً حميداً أخي أبو أسامة نورت المنتدى ، بإنتظار مشاركاتك الممتعه :)

وهذا الملف بعد إدراج ورقة P print.rar

أحبائي الأستاذ / أسامه ، والأستاذ / هشام أشكركم للمساعده المعهوده أرغب بأن يتوجه الكود إلى ورقة الشهر ومن ثم نقلها إلى ورقة P ثم طباعتها بمعنى التعديل على الكود أدناه بما يتناسب طلبي :) Sub Prall2() Application.ScreenUpdating = False Worksheets ((Sheets(1).Range("t3").Value)) Range("A3:AG19").Select Selection.Copy Sheets("P").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Columns("A:B").Select Selection.ColumnWidth = 2 Columns("C:AF").Select Range("C3").Activate Selection.ColumnWidth = 6 Rows("1:17").Select Range("C2").Activate Selection.RowHeight = 25 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("A1").Select End Sub

السلام عليكم ورحمة الله وبركاته تم شرح المطلوب في الملف المرفق ، مع خالص التحية والتقدير :) print.rar

أخي أبو عاصم تفضل :) تفقيط.rar

اهلا بك عميد المنتدى على مرورك الطيب

شكراً لك من القلب أخي الحبيب أبا أحمد سأجربه لاحقاً مع تأكدي التام من جودته أخوك / أبو عبد الله :)

المعذرة لتكرار التحميل أرجوا الإبقاء على واحد وحذف البقيه :) == تم عمل اللازم (عبدالله المجرب)

السلام عليكم ورحمة الله وبركاته الكود طويل رغم أنه يؤدي الغرض منه ، ولكن أرى أن هناك تطور بعمل الأكواد يدعوا للفخر :) المطلوب : هو إختصار الكود المسمى ( طباعة أسماء محددة ) مع خالص الشكر والتقدير Cards.rar

موضوع شيق :) بارك الله فيكم

رائع بروعتك :)

بوركت أبا أحمد إنما الأمم الأخلاق ما بقيت

دالة جميلة ومفيدة تسلم يا باشا : )

سعدنا بعودتك أخي الحبيب / أبو عبد الله وأعتبرها عيد بالنسبة لي تظهر هذه الرسالة عند الظغط على الماكرو MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _ "Microsoft Add-in is not installed" & vbNewLine & _ "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _ "The path to Save the file in arg 2 is not correct" & vbNewLine & _ "You didn't want to overwrite the existing PDF if it exist" ماهو الحل برأيك :)

أخي أحمد بارك الله فيك من أجمل برامج الصلاحيات التي رأيتها :)

أبا أحمد أحمد الله أن سخـّـر لنا أخ مثلك :)

السلام عليكم ورحمة الله وبركاته كما هو واضح أحبتي من السؤال ، شاهدوا المرفق :) السيارات.rar

تسلم أخي هشام حل مقبول بكل تأكيد :)