وائل الاسيوطي قام بنشر سبتمبر 29, 2015 قام بنشر سبتمبر 29, 2015 الحمد لله بفضل الله ثم بفضلكم اخواني اكملت الترحيل لكن هناك بعض المشاكل التي واجهتني الاولي اريد ان تظهر شاشه اختيار مكان الحفظ لاختيار المجلد عند كل مره الثانيه الصفحه تظهر صغيره جدا في بي دي اف فياتري هناك طريقه لتكبيره لتملا الصفحه ثالثا اود اخفاء الصفحه الاخيره التي يتم الترحيل اليها newPDF.rar
أبو محمد أشرف قام بنشر سبتمبر 30, 2015 قام بنشر سبتمبر 30, 2015 (معدل) أخي الحبيب بالنسبة لإخفاء صفحة الترحيل اليي هي sheet1 قف عليها ثم كليك يمين واختار اخفاء أو Hide أم تقصد اخفائها بكود وإذا أردت الاخفاء بكود فضع هذا السطر في آخر الكود الذي أنت عملته Sheet4.Visible = xlSheetHidden Sub PDF() myfile = "c:\NEW\" & sheets(2).Range("F3") & "-" & sheets(2).Range("F2") & ".pdf" lrow = sheets(4).Range("g" & Rows.Count).End(xlUp).Row + 1 sheets(4).Range("a1:z12").Value = sheets(2).Range("a1:z12").Value sheets(4).Range("C14:U22").Value = sheets(2).Range("AC1:AU9").Value sheets(4).Range("A26:A177").Value = sheets(1).Range("A3:A154").Value sheets(4).Range("C26:C177").Value = sheets(1).Range("B3:B154").Value sheets(4).Range("E26:E177").Value = sheets(1).Range("C3:C154").Value sheets(4).Range("F26:F177").Value = sheets(1).Range("D3:D154").Value sheets(4).Range("G26:G177").Value = sheets(1).Range("E3:E154").Value sheets(4).Range("I26:I177").Value = sheets(1).Range("H3:H154").Value sheets(4).Range("J25:J177").Value = sheets(1).Range("L2:L154").Value sheets(4).Range("K25:K177").Value = sheets(1).Range("M2:M154").Value sheets(4).Range("L25:L177").Value = sheets(1).Range("N2:N154").Value sheets(4).Range("M25:M177").Value = sheets(1).Range("O2:O154").Value sheets(4).Range("N25:N177").Value = sheets(1).Range("P2:P154").Value sheets(4).Range("O25:O177").Value = sheets(1).Range("Q2:Q154").Value sheets(4).Range("P25:P26").Value = sheets(1).Range("R2:R3").Value sheets(4).Range("Q25:Q26").Value = sheets(1).Range("S2:S3").Value sheets(4).Range("F23").Value = sheets(1).Range("F1").Value sheets(4).ExportAsFixedFormat Type:=xlTypePDF, Filename:=myfile Sheet4.Visible = xlSheetHidden End Sub وإذا أردت إخفاؤه نهائيا بحيث لا يظهر فضع كلمة very Sheet4.Visible = xlSheetVeryHidden وإذا أردت إظهاره فاستخدم هذا الكود Sheet4.Visible = True تقبل تحياتي وهو منقول للأخ الراحل عماد الحسامي رحمه الله تم تعديل سبتمبر 30, 2015 بواسطه أبو محمد أشرف
وائل الاسيوطي قام بنشر سبتمبر 30, 2015 الكاتب قام بنشر سبتمبر 30, 2015 شاكر مرورك اخي ابو محمد بس الكود لما بعمله بيعطل الكود كله وبيدي خطأ او حتي لما بعمل اخفاء من غير كود نفس الكلام
أبو محمد أشرف قام بنشر سبتمبر 30, 2015 قام بنشر سبتمبر 30, 2015 انا جربت الكود شغال عندي انت بس مكان حفظ الملف في الكود اعلاه لأني عملته في السي مفيش عندي برتشن d جرب وبلغني "c:\NEW\"
وائل الاسيوطي قام بنشر سبتمبر 30, 2015 الكاتب قام بنشر سبتمبر 30, 2015 اخي ابومحمد بالطبع الكود يعمل وبالفعل اخفي الصفحه لكنه عطل الزر الخاص بالحفظ
وائل الاسيوطي قام بنشر سبتمبر 30, 2015 الكاتب قام بنشر سبتمبر 30, 2015 جرب اخي المرفق بالضغط علي زر pdf في الصفحه الولي وستفهم ما اعنيه newPDF2.rar
ياسر خليل أبو البراء قام بنشر سبتمبر 30, 2015 قام بنشر سبتمبر 30, 2015 أخي الكريم ابو جنى يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة بالمنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل جرب الكود التالي عله يفي بالغرض Sub PDF() Dim MyFile As String, lRow As Long Application.ScreenUpdating = False With Sheet4 .Visible = True MyFile = "D:\NEW\" & Sheets(2).Range("F3") & "-" & Sheets(2).Range("F2") & ".pdf" lRow = Sheets(4).Range("G" & Rows.Count).End(xlUp).Row + 1 .Range("A1:Z12").Value = Sheets(2).Range("A1:Z12").Value .Range("C14:U22").Value = Sheets(2).Range("AC1:AU9").Value .Range("A26:A177").Value = Sheets(1).Range("A3:A154").Value .Range("C26:C177").Value = Sheets(1).Range("B3:B154").Value .Range("E26:E177").Value = Sheets(1).Range("C3:C154").Value .Range("F26:F177").Value = Sheets(1).Range("D3:D154").Value .Range("G26:G177").Value = Sheets(1).Range("E3:E154").Value .Range("I26:I177").Value = Sheets(1).Range("H3:H154").Value .Range("J25:J177").Value = Sheets(1).Range("L2:L154").Value .Range("K25:K177").Value = Sheets(1).Range("M2:M154").Value .Range("L25:L177").Value = Sheets(1).Range("N2:N154").Value .Range("M25:M177").Value = Sheets(1).Range("O2:O154").Value .Range("N25:N177").Value = Sheets(1).Range("P2:P154").Value .Range("O25:O177").Value = Sheets(1).Range("Q2:Q154").Value .Range("P25:P26").Value = Sheets(1).Range("R2:R3").Value .Range("Q25:Q26").Value = Sheets(1).Range("S2:S3").Value .Range("F23").Value = Sheets(1).Range("F1").Value .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile .Visible = xlSheetHidden End With Application.ScreenUpdating = True End Sub 1
وائل الاسيوطي قام بنشر سبتمبر 30, 2015 الكاتب قام بنشر سبتمبر 30, 2015 شاكر مرورك اخي العزيز ياسر خليل والكود بالفعل يعمل لانه من ايديكم سلمت يداك وبارك الله فيك وبالنسبه لاسم الظهور هو اسم الفيسبوك لاني ادخل عن طريق الفيسبوك واذا كان يسبب اي مشكله نبهني فقط وسأقوم بتغييره مباشره واما عن التعليمات فأني قرأتها بالفعل سابقا اكثر من مره واذا كنت قد خالفت اي من التعليمات فهذا لجهلي فقط بها وارجو منك ان تضع عيني علي الخطأ لاتفاداه في المرات القادمه راجيا من الله ان تظلوا دوما في عوننا نحن اخوانكم من المبتدئين
ياسر خليل أبو البراء قام بنشر سبتمبر 30, 2015 قام بنشر سبتمبر 30, 2015 أخي الحبيب أبو جنى لم أقصد بطلبي الإطلاع على التوجيهات أنك أخطأت إنما أحببت أن ترى التوجيهات فقط تغيير اسم الظهور للغة العربية
أبو محمد أشرف قام بنشر سبتمبر 30, 2015 قام بنشر سبتمبر 30, 2015 (معدل) دائما أخي الحبيب والرائع ياسر خدوم بارك اللهفيك وفي أولادك جرب اخي المرفق بالضغط علي زر pdf في الصفحه الولي وستفهم ما اعنيه newPDF2.rar جربت الكود وشغال معي تمام ما فيه اي مشكلة تم تعديل سبتمبر 30, 2015 بواسطه أبو محمد أشرف 1
وائل الاسيوطي قام بنشر سبتمبر 30, 2015 الكاتب قام بنشر سبتمبر 30, 2015 بجرب مره اخري وبشوف ممكن تكون المشكله عندي اخي ابو محمد وشاكر لاهتمامك اخي العزيز اخي ياسر جربت اغيره وما نفع ممكن تقولي الكيفيه وانا بغيره ان شاء الله 1
ياسر خليل أبو البراء قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 الأخ الكريم أبو جنى اعتقدت أن المشكلة قد تم حلها عموماً جرب الملف المرفق التالي .. وإذا قابلتك أي مشكلة قم بالضغط على كلمة Debug وحدد السطر الملون بالأصفر والذي تظهر به المشكلة كما يرجى ذكر إصدار الأوفيس الذي تعمل عليه الملف المرفق مجرب ويعمل بشكل جيد ولا يوجد أي مشاكل ..أنا أعمل على أوفيس 2013 تقبل تحياتي newPDF2.rar 1
أبو محمد أشرف قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 أخي الحبيب أبو البراء أتوقع مقصد أبو جنى انه معرفش يغير اسمه من انجلش لعربي
وائل الاسيوطي قام بنشر أكتوبر 1, 2015 الكاتب قام بنشر أكتوبر 1, 2015 أخي الحبيب أبو البراء أتوقع مقصد أبو جنى انه معرفش يغير اسمه من انجلش لعربي بالفعل هذا ماقصدته اخي ابو محمد 1
Akram Galal قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 الأخ الكريم أبو جنى اعتقدت أن المشكلة قد تم حلها عموماً جرب الملف المرفق التالي .. وإذا قابلتك أي مشكلة قم بالضغط على كلمة Debug وحدد السطر الملون بالأصفر والذي تظهر به المشكلة كما يرجى ذكر إصدار الأوفيس الذي تعمل عليه الملف المرفق مجرب ويعمل بشكل جيد ولا يوجد أي مشاكل ..أنا أعمل على أوفيس 2013 تقبل تحياتي newPDF2.rar أ/ ياسر السطر الذي تظهر به المشكله هو .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile وانا استخدم نسخة 2010 جزاك الله خيرا
أبو محمد أشرف قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 (معدل) بعد إن الاستاذ ياسر الأخ أكرم جلال أنا نزلت الملف وجربته كله شغال تمام ووبخصوص السطر ده .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile لازم تروح على بارتشن d وتعمل ملف باسم new وهو ده اللي بيتحفظ فيه الملف بصيغة pdf تم تعديل أكتوبر 1, 2015 بواسطه أبو محمد أشرف 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.