muneef قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 السلام عليكم ورحمة الله وبركاته كل الشكر والتقدير للقائمين على هذا الموقع المبارك المطلوب تحويل كود تحويل الملف حتى آخر خليه في العمود C يوجد بها نص تعديل مسار حفظ الملف ليحفظ في سطح المكتب جدول متغيير.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر أبريل 18, 2020 أفضل إجابة مشاركة قام بنشر أبريل 18, 2020 تفضل لعله المطلوب Sub SaveRange() Dim saveLocation As String Dim rng As Range saveLocation = "C:\Users\سبحان الله\desktop\" & Range("B2").Value & ".pdf" Set rng = Sheets("ورقة1").Range("A1:c12") rng.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=saveLocation, OpenAfterPublish:=True End Sub جدول متغيير1.xlsm 2 رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 بعد اذن أخي عبدالفتاح في بي اكسيل .. حفط باسم الشركة و تاريخ الانشاء . و كذلك حفظ على سطح المكتب لأي جهاز بدون تحديد اسم صاحب الجهاز. و كذا رسالة لاستبدال اللملف اذا كان موجود سابقا و كذلك تغير ناحية الطباعة مع آخر سطر في العمود c جدول متغيير.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 muneef أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!💙 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 كود رائع اخي الرائد احسن ما فيه يهمل الصفوف الفارغة 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.