حفظ الشيت BDF باسم العميل فى بارتشن D

[ابوحمزه المصرى]

السلام عليكم ورحمة الله وبركاته حفظكم الله اخوانى أعضاء أوفيسنا الرائع ارجوا المساعده فى حفظ شيت كشف الحساب بصيغة BDF باسم العميل فى بارتشن D بطريقة كود  الطباعة  الموجود بالشيت 

اليكم المرفق 

Hide Blank Rows Using AutoFilter.rar

[بن علية حاجي]

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

 

أخي الكريم، تم تطويع كود للطباعة بصيغة PDF من موضوع سابق لأخي الحبيب أبو حنين (وأستسمحه في ذلك) مع بعض التعديلات عليه وإضافة تسميات ضرورية لعمل هذا الكود... وأيضا تم مسح خاصية دمج المراسلات من بعض الخلايا (الخلايا التي تحوي كلمتي "كشف الحساب" و "الاجمالي") واستبدال الدمج باستعمال خاصية "توسيط عبر التحديد"... أرجو أن يكون هذا جزء من المطلوب... ولم أستعمل في الكود خاصية AutoFilter بل استعملت خاصية "الإخفاء"...

 

أخوك بن علية

 

 

Hide Blank Rows Using AutoFilter.rar

[مختار حسين محمود]

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

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

أخى صلاح جرب هذا المرفق تم فيه استعمال خاصية الفلترة ثم عمل الـ  pdf كما طلبت فى مشاركتك

الكود

Sub FilterthenPDFcellvalue()

Dim Rng As Range
Dim fName As String

fName = "D:\" & ActiveSheet.[E2].Value

    Application.ScreenUpdating = False
      
        With Sheets("كشف الحساب ")
            .AutoFilterMode = False
            .Range("D4:S5").AutoFilter Field:=1, Criteria1:="<>"
            Set Rng = Sheets("كشف الحساب ").Range(Cells(1, 4), Cells(Rows.Count, 19))
            Rng.Activate
            Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            .Select
            .Cells.AutoFilter
            Range("d2").Select
        End With
     
    Application.ScreenUpdating = True
    
End Sub

المرفق

Hide Blank Rows Using AutoFilter then pdf mokhtar .rar

[ابوحمزه المصرى]

 اشكرأخى الكريم بن علية والاخ الفاضل مختار حسين على الحلول الاكثر من رائعه .. بارك الله فيكم وجعله بميزان الحسنات .. واطمع فى شرح الاكواد ولتعم الفائده لكل أعضاء أوفيسنا .   

[مختار حسين محمود]

Sub FilterthenPDFcellvalue()
' التصريحات
Dim Rng As Range
Dim fName As String
' اسم ومسار الملف المتوقع انشاؤه
fName = "D:\" & ActiveSheet.[E2].Value
'الغاء خاصية اهتزاز الشاشة
    Application.ScreenUpdating = False
     
        With Sheets("كشف الحساب ")
            'فلترة للنطاق
            .AutoFilterMode = False
            '
            .Range("D4:S5").AutoFilter Field:=1, Criteria1:="<>"
            ' تحديد النطاق المستخدم فى الشيت كشف الحساب والذى سيتم تحويله الى بى دى اف
            Set Rng = Sheets("كشف الحساب ").Range(Cells(1, 4), Cells(Rows.Count, 19))
           'تنشيط النطاق
            Rng.Activate
            'تحويل النطاق المفلتر الى بى دى اف
            Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            'نحديد شيت كشف الحساب
            .Select
            ' الغاء الفلترة واظهار كل النطاقات المعبئة بالبيانات والفارغة
            .Cells.AutoFilter
            ' الغاء تحديد أى نطاق باختيار الخلية D2
            Range("d2").Select
        End With
    'تشغيل خاصية اهتزاز الشاشة
    Application.ScreenUpdating = True
    
End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الجليل .... اخى الحبيب بن علية حاجى ... اولا كل عام وانت بكل خير وعافيه  ارجو من الله ان تكون بكل خير وعافيه

جميل جدا اخفاء الصفوف الفارغه عند حفظ الملف PDF

وارجو شرح الكود ان تيسر لك الوقت

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

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

كود جميل جدا سلمت يداك

[ابوحمزه المصرى]

الاخ الكريم مختار حسين

سلمت يداك و بارك الله فيك

 

تم تعديل يوليو 25, 2015 بواسطه صلاح الدين الأيوبى

[ابوحمزه المصرى]

 أخى الفاضل بن علية حاجى   

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