ابوحمزه المصرى قام بنشر يوليو 22, 2015 مشاركة قام بنشر يوليو 22, 2015 السلام عليكم ورحمة الله وبركاته حفظكم الله اخوانى أعضاء أوفيسنا الرائع ارجوا المساعده فى حفظ شيت كشف الحساب بصيغة BDF باسم العميل فى بارتشن D بطريقة كود الطباعة الموجود بالشيت اليكم المرفق Hide Blank Rows Using AutoFilter.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 22, 2015 مشاركة قام بنشر يوليو 22, 2015 السلام عليكم ورحمة الله أخي الكريم، تم تطويع كود للطباعة بصيغة PDF من موضوع سابق لأخي الحبيب أبو حنين (وأستسمحه في ذلك) مع بعض التعديلات عليه وإضافة تسميات ضرورية لعمل هذا الكود... وأيضا تم مسح خاصية دمج المراسلات من بعض الخلايا (الخلايا التي تحوي كلمتي "كشف الحساب" و "الاجمالي") واستبدال الدمج باستعمال خاصية "توسيط عبر التحديد"... أرجو أن يكون هذا جزء من المطلوب... ولم أستعمل في الكود خاصية AutoFilter بل استعملت خاصية "الإخفاء"... أخوك بن علية Hide Blank Rows Using AutoFilter.rar 1 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر يوليو 22, 2015 مشاركة قام بنشر يوليو 22, 2015 السلام عليكم ورحمة الله أستاذى الفاضل بن عليه حاجى كل سنة وحضرتك طيب حل رائع من أستاذ أروع أخى صلاح جرب هذا المرفق تم فيه استعمال خاصية الفلترة ثم عمل الـ 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 1 رابط هذا التعليق شارك More sharing options...
ابوحمزه المصرى قام بنشر يوليو 23, 2015 الكاتب مشاركة قام بنشر يوليو 23, 2015 اشكرأخى الكريم بن علية والاخ الفاضل مختار حسين على الحلول الاكثر من رائعه .. بارك الله فيكم وجعله بميزان الحسنات .. واطمع فى شرح الاكواد ولتعم الفائده لكل أعضاء أوفيسنا . رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر يوليو 23, 2015 مشاركة قام بنشر يوليو 23, 2015 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 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر يوليو 23, 2015 مشاركة قام بنشر يوليو 23, 2015 السلام عليكم الاخ الجليل .... اخى الحبيب بن علية حاجى ... اولا كل عام وانت بكل خير وعافيه ارجو من الله ان تكون بكل خير وعافيه جميل جدا اخفاء الصفوف الفارغه عند حفظ الملف PDF وارجو شرح الكود ان تيسر لك الوقت رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر يوليو 23, 2015 مشاركة قام بنشر يوليو 23, 2015 السلام عليكم الاخ الجليل مختار حسين كل عام وانت بكل خير وعافيه كود جميل جدا سلمت يداك 1 رابط هذا التعليق شارك More sharing options...
ابوحمزه المصرى قام بنشر يوليو 25, 2015 الكاتب مشاركة قام بنشر يوليو 25, 2015 (معدل) الاخ الكريم مختار حسين سلمت يداك و بارك الله فيك تم تعديل يوليو 25, 2015 بواسطه صلاح الدين الأيوبى رابط هذا التعليق شارك More sharing options...
ابوحمزه المصرى قام بنشر يوليو 27, 2015 الكاتب مشاركة قام بنشر يوليو 27, 2015 أخى الفاضل بن علية حاجى أرجو شرح الكود فهو المطلوب تماما ولتعم الفائده بارك الله فيك واتمنى ان لا اكون مثقل فى طلبى هذا .. جزاك الله كل خير . رابط هذا التعليق شارك 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.