احمدزمان

السلام عليكم و رحمة الله وبركاته الأستاذ الفاضل ابو الذهب و الأستاذ الحبيب ياسر خليل جزاكما الله خيرا استفدت من الأكواد المرفقة

السلام عليكم و رحمة الله وبركاته اخي وليد شكرا لك على مرورك الكريم

السلام عليكم و رحمة الله وبركاته استاذ ياسر موضوع رائع جزاك الله خيرا وانا خايف اجي ايد ورا وايد قدام وتقولي ليه ايدك فاضية منشان هيك ياحبيب البي ================================== كود كل الخيارات المطلوبة للطباعة طباعة ورقة اكسل With ActiveSheet.PageSetup ' الصفوف المكررة الى الأعلى .PrintTitleRows = "$3:$3" .PrintTitleColumns = "$A:$A" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "رأس يسار Up Lift" .CenterHeader = "UpMidel رأس وسط" .RightHeader = "رأس - يمين up Right" .LeftFooter = "DownLift اسفل يمين" .CenterFooter = "اسفل وسط DownMidel" .RightFooter = "DownRight اسفل يمين" 'حجم الهوامش .LeftMargin = Application.InchesToPoints(0.748031496062992) .RightMargin = Application.InchesToPoints(0.748031496062992) .TopMargin = Application.InchesToPoints(0.78740157480315) .BottomMargin = Application.InchesToPoints(0.984251968503937) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.511811023622047) ' طباعة رئوس الصفوف و الأعمدة .PrintHeadings = True .PrintGridlines = True .PrintComments = xlPrintNoComments ' توسيط الى عرض الصفحة .CenterHorizontally = False ' توسيط الى ارتفاع الصفحة .CenterVertically = False ' طباعة طولية .Orientation = xlPortrait ' طباعة عرضية .Orientation = xlLandscape ' حجم الورق .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver ' طباعة اسود و ابيض .BlackAndWhite = True .Zoom = 100 ' ملائمة الى عرض الصفحة .FitToPagesWide = 1 .FitToPagesTall = False End With آمل ان يكون به الفائدة للجميع

السلام عليكم و رحمة الله وبركاته اخي حمزة شكرا لك على مرورك الكريم

تم حذف 3 مشاركات للعضو

اخي man2222sa بارك الله فيك و شكرا على مرورك الكريم

و عليكم السلام ورحمة الله وبركاته 1- تمكين وحدات الماكرو 2- في الخانة الحمراء يمين الورقة في الأعلى احذف كلمة السر و اكتب مكانها كلمة "عبدالله" ثم ابدأ استخدام الملف 3- بيانات العملاء يمكنك الغاء حمايتها باستخدام كلمة السر "123" مع التحية

وعليكم السلام و رحمة الله وبركاته شوف هذه الدالة انا باستخدمها مع التاريخ اي تاريخ هجري او ميلادي تحوله الى رقم في اكسل يمثل تاريخ =IF(ISNUMBER($E$5);SUM($E$5);IF(ISERROR(VALUE("a"&$E$5));FALSE;VALUE("a"&$E$5)))

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

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

بارك الله فيك اخي الكريم هذا على قدر امكانياتي ومن قال لا ادري فقد افتى لاادري جزاك الله خيرا

السلام عليكم و رحمة الله وبركاته اضغط زر فرز Sub ماكرو1() ' If Range("M1") = "1" Then Range("B6:F280").SORT Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("D6") _ , Order2:=xlAscending, Key3:=Range("E6"), Order3:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _ xlSortNormal Range("M1") = "2" Else Range("B6:F280").SORT Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("M1") = "1" End If End Sub tist.rar

السلام عليكم و رحمة الله وبركاته تم عمل اللونين الأخضر و الأحمر تنسيق ش.rar

جزاك الله خيرا استاذنا و اخونا الحبيب ياسر خليل

السلام عليكم في المرفق قبل انتهاء الجواز ب 30 يوما تظهر كلمة للتجديد =IF((SUM(IF(ISNUMBER($H6);SUM($H6);IF(ISERROR(VALUE("a"&$H6));FALSE;VALUE("a"&$H6))))-TODAY())<30;"للتجديد";"صالح") وسوف يتعامل مع التاريخ الهجري او الميلادي -- كلاهما

السلام عليكم اخي الكريم اذا اردت تنفيذ الكود على جميع اوراق الملف ايا كان اسم الورقة قم بحذف جزء من IF الى THEN هذا الجزء If Sh.Name Like "ÑãÖÇä 1" Or Sh.Name Like "ÑãÖÇä 2" Or Sh.Name Like "ÑãÖÇä 3" _ Or Sh.Name Like "ÑãÖÇä 4" Or Sh.Name Like "ÑãÖÇä " _ Then

السلام عليكم تفضل نموزج فاتورة+بحث3.rar

السلام عليكم شاهد http://www.officena.net/ib/index.php?showtopic=52050

السلام عليكم اخفاء الأسطر الفارغة عند الطباعة نموزج فاتورة+بحث2_2.rar

السلام عليكم شاهد http://www.officena.net/ib/index.php?showtopic=30498

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

و عليكم السلام و رحمة الله وبركاته شكرا لك على كلماتك الطيبة نموزج فاتورة+بحث3.rar

و عليكم السلام و رحمة الله وبركاته اخي الكريم آمل مراعات التالي لاحقا جزاك الله خيرا

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

السلام عليكم و رحمة الله وبركاته 1- انا اأيد وجهة نظر الأخ عبدالله 2- واضح من ردك انك لم تفهم الشرح السابق لي تم تعديل الكود ليعمل على 18 صف 9 منها قبل الصف الذي تكتب فيه حاليا ايا كان رقمه و الصف الذي تكتب فيه حاليا ايا كان رقمه و 8 منها اسفل الصف الذي تكتب فيه حاليا ايا كان رقمه ولا يعمل الكود على نطاق واحد محدد بحد ذاته فقط آمل ان تكون وصلت الفكرة تحياتي