اختيار مكان الحفظ

[وائل الاسيوطي]

الحمد لله بفضل الله ثم بفضلكم اخواني اكملت الترحيل لكن هناك بعض المشاكل التي واجهتني

الاولي اريد ان تظهر شاشه اختيار مكان الحفظ لاختيار المجلد عند كل مره 

الثانيه الصفحه تظهر صغيره جدا في بي دي اف فياتري هناك طريقه لتكبيره لتملا الصفحه 

ثالثا اود اخفاء الصفحه الاخيره التي يتم الترحيل اليها 

newPDF.rar

[أبو محمد أشرف]

أخي الحبيب بالنسبة لإخفاء صفحة الترحيل اليي هي 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 بواسطه أبو محمد أشرف

[وائل الاسيوطي]

شاكر مرورك اخي ابو محمد بس الكود لما بعمله بيعطل الكود كله وبيدي خطأ

او حتي لما بعمل اخفاء من غير كود نفس الكلام

[أبو محمد أشرف]

انا جربت الكود شغال عندي انت بس مكان حفظ الملف في الكود اعلاه لأني عملته في السي مفيش عندي برتشن d جرب وبلغني

"c:\NEW\"

[وائل الاسيوطي]

اخي ابومحمد بالطبع الكود يعمل وبالفعل اخفي الصفحه لكنه عطل الزر الخاص بالحفظ 

[أبو محمد أشرف]

ما فهمتك ؟!

[وائل الاسيوطي]

جرب اخي المرفق بالضغط علي زر pdf في الصفحه الولي وستفهم ما اعنيه

newPDF2.rar

[ياسر خليل أبو البراء]

أخي الكريم ابو جنى

يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة بالمنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل

جرب الكود التالي عله يفي بالغرض

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

 

[وائل الاسيوطي]

شاكر مرورك اخي العزيز  ياسر خليل والكود بالفعل يعمل لانه من ايديكم سلمت يداك وبارك الله فيك وبالنسبه لاسم الظهور هو اسم الفيسبوك لاني ادخل عن طريق الفيسبوك واذا كان يسبب اي مشكله نبهني فقط وسأقوم بتغييره مباشره واما عن التعليمات فأني قرأتها بالفعل سابقا اكثر من مره واذا كنت قد خالفت اي من التعليمات فهذا لجهلي فقط بها وارجو منك ان تضع عيني علي الخطأ لاتفاداه في المرات القادمه راجيا من الله ان تظلوا دوما في عوننا نحن اخوانكم من المبتدئين 

[ياسر خليل أبو البراء]

أخي الحبيب أبو جنى

لم أقصد بطلبي الإطلاع على التوجيهات أنك أخطأت إنما أحببت أن ترى التوجيهات

فقط تغيير اسم الظهور للغة العربية

[أبو محمد أشرف]

دائما أخي الحبيب والرائع ياسر خدوم بارك اللهفيك وفي أولادك

 

جرب اخي المرفق بالضغط علي زر pdf في الصفحه الولي وستفهم ما اعنيه

newPDF2.rar

جربت الكود وشغال معي تمام ما فيه اي مشكلة

تم تعديل سبتمبر 30, 2015 بواسطه أبو محمد أشرف

[وائل الاسيوطي]

بجرب مره اخري وبشوف ممكن تكون المشكله عندي اخي ابو محمد وشاكر لاهتمامك اخي العزيز

اخي ياسر جربت اغيره وما نفع ممكن تقولي الكيفيه وانا بغيره ان شاء الله

[ياسر خليل أبو البراء]

الأخ الكريم أبو جنى اعتقدت أن المشكلة قد تم حلها

عموماً جرب الملف المرفق التالي .. وإذا قابلتك أي مشكلة قم بالضغط على كلمة Debug وحدد السطر الملون بالأصفر والذي تظهر به المشكلة كما يرجى ذكر إصدار الأوفيس الذي تعمل عليه

الملف المرفق مجرب ويعمل بشكل جيد ولا يوجد أي مشاكل ..أنا أعمل على أوفيس 2013

تقبل تحياتي

newPDF2.rar

[أبو محمد أشرف]

أخي الحبيب أبو البراء أتوقع مقصد أبو جنى انه معرفش يغير اسمه من انجلش لعربي 

[وائل الاسيوطي]

أخي الحبيب أبو البراء أتوقع مقصد أبو جنى انه معرفش يغير اسمه من انجلش لعربي 

بالفعل هذا ماقصدته اخي ابو محمد

[Akram Galal]

الأخ الكريم أبو جنى اعتقدت أن المشكلة قد تم حلها

عموماً جرب الملف المرفق التالي .. وإذا قابلتك أي مشكلة قم بالضغط على كلمة Debug وحدد السطر الملون بالأصفر والذي تظهر به المشكلة كما يرجى ذكر إصدار الأوفيس الذي تعمل عليه

الملف المرفق مجرب ويعمل بشكل جيد ولا يوجد أي مشاكل ..أنا أعمل على أوفيس 2013

تقبل تحياتي

newPDF2.rar

أ/ ياسر

السطر الذي تظهر به المشكله هو

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile

وانا استخدم نسخة 2010

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

[أبو محمد أشرف]

بعد إن الاستاذ ياسر

الأخ أكرم جلال أنا نزلت الملف وجربته كله شغال تمام ووبخصوص السطر ده  .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile

لازم تروح على بارتشن d وتعمل ملف باسم new وهو ده اللي بيتحفظ فيه الملف بصيغة pdf

تم تعديل أكتوبر 1, 2015 بواسطه أبو محمد أشرف

[Akram Galal]

جزاك الله خيرا يا ابو محمد