عبدللرحيم

للتجربة OK filter-function-excel.xlsb

منقول ()Sub xlStdFooter ActiveSheet.PageSetup.LeftFooter = _ "File: " & ActiveWorkbook.Name & vbLf & _ "Tab: " & ActiveSheet.Name ActiveSheet.PageSetup.CenterFooter = _ "Date Printed: " & Format(Date, "dd-mmm-yyyy") & vbLf & _ "Time Printed: " & Format(Time, "hhmm") & " hrs" ActiveSheet.PageSetup.RightFooter = _ "Page #: " & "&P" & vbLf & _ "Total Pages: " + "&N" End Sub

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

حفظكم الله وجميع اهلك واحبابك ويصبركم واهل المفرب حميعا على ما اصابهم ويرحم جميع الشهداء

السلام عليكم أ. محمد هشام في البداية كل التعازي والمواساة في مصابكم الجليل لك وللشعب المغربي الشقيق نسأل الله العلى القدير أن يتغمد من وافته المنية في هذا الزلزال بعظيم الرحمة والمغفرة وأن ينزلهم منازل الشهداء وأن ينعم ويتم الشفاء على المصابين .. آمين .. .. بارك الله فيكم واهل واحبابك وكل التحية والاحترام

تم تعديل المعادلات مقتبسة من أستاذنا الفاضل / ياسر خليل أبو البراء خبير أوفسينا OK OK للرفع.xlsx

للتجربة OK للرفع.xlsx

(إنا لله وإنا إليه راجعون) اللهم إرحمه برحمتك الواسعة وأدخله فسيح جناتك

(إنا لله وإنا إليه راجعون) اللهم إرحمه برحمتك الواسعة وأدخله فسيح جناتك بفضلك وكرمك رب العالمين

تغضل للمراجعة لعله المطلوب OK RTM Assessment.xlsx

جرب هذا الحل للاستاذ الكبير الخبير ابراهيم الحداد السلام عليكم ورحمة الله ضع هذه الدالة " PtrSafe " بين كلمتى "Declare" و "Function" فى كل سطر تجد فيه هاتين الكلمتين

مشكلة فى user32

مرفق ملف مُعدل معدل شيت بيع.xlsm

جرب ملفك بكود الخبير lionheart TW.xlsm

الحمد لله عدل مدى rang (MyStream) إلى 1012 وليس 2012 بالتوفيق إن شاء الله كل عام وانتم بخير

صعوبة التنفيذ لوجود دمج للخلايا سيتم تغيير تصميم الملف ؟؟؟؟؟

الأخ / 2saad جرب غير اسماء الشيتات أتجليزى

تفضل جرب الملف المرفق OK غياب.zip

نفضل جرب الملف OK الحد الأقصى.xls

ارفع ملف

تفضل جرب المرفق الخاص بك ملف جديد (2).xlsm

يجب تعديل مدى TABLE ARRAY مثال / formuals / name manager price7 =الاسعار!$D$2:$K$95

إتفضل جرب المرفق OK ايمن.zip

تفضل هذا الكود للخبير الفاضل بن علية حاجي Sub SortData() Range("b10:t1000").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("b10:t1000").Sort Key1:=Range("L5"), Order1:=xlAscending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ' xlDescending End Sub

تفضل مجمع البيانات للخبير/ محمد طاهر