حمادة باشا

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

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

الأستاذ/ عبدالله باقشير الحل مبتكر وفكرة رائعة - جزاكم الله خيرا الأخت الفاضلة/ أم عبدالله وجزاكم الله خيرا - شكرا علي مروركم الكريم الأخ الكريم/ عطاء الله أشكر لكم إطراءكم الجميل - تقبل تحياتي

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

الأخ/ محمد هذة مقاربة للأمر حسب فهمي والملاحظات ضمن الملف والسلام عليكم ورحمة الله وبركاته رصد الغيابات.rar

الأخ/ محمد السلام عليكم ورحمة الله وبركاته هل المطلوب يختلف عما طرحه الأستاذ/ أحمد زمان من حل وما معني العمل السابق مربوط بآخر - فحسب مافهمت من شرحك داخل الملف فأنت تريد الآتي : 1- ظهور قائمة الطلاب التابعين لفوج معين عند إختياره من القائمة 2- أن يتم إختيار أسماء الطلاب والأفواج من صفحة القوائم حيث صفحة السابق القوائم بها متراصة أفقيا وليست طولية هل هذا الفهم صحيح ؟ أم هل تريد الحل بشكل آخر ؟ وهل هناك مطلوب مغاير - في إنتظار رد حضرتكم تقبل تحياتي

الأخ الفاضل/ ابوحنين ضع الماوس علي أول عمود ترغب بإخفائه ( في المثال المذكور سيكون عمود L ) ثم إستخدم Ctrl+Shift مع السهم الأيسر في حالة إتجاه الصفحة من اليمين لليسار والعكس صحيح - ثم في قائمة زر الماوس اليمين أختار Hide - ولإستكمال إظهار الشكل كما في الفاتورة تجد ايقونات صغيرة أسفل الشاشة خاصة بشكل الصفحة إختر Page Break Preview - علما بانني لم أقم بتصميم الفاتورة المذكورة جاءت من الأخ/ هاني علي هذا النحو - تقبل تحياتي

الأخ الكريم/ هاني السلام عليكم ورحمة الله وبركاته كما يقول المثل - أول الغيث قطرة - مرفق أول جزئية تمت في البرنامج فضلا أقرأ داخل الملف تفاصيل الإجزاء المنفذة - ودون الملاحظات والتعديلات المطلوبة في المكان المخصص وسنواصل تباعا بحول الله وقوته صافى الكمية - تحت التعديل.rar

الأستاذ الفاضل/ حمادة عمر السلام عليكم ورحمة الله وبركاته أدركتنا بالحل - حيث أنه هو عين طلب أخونا/ رائد ولم يتمكن من مراسلتك علي النحو الذي أوضحه تقبل تحياتي الأخ الكريم/ رائد السلام عليكم ورحمة الله وبركاته لم أكن أعرف أن الإصدار لديك 2003 - ومرفق لك نفس الملف محفوظ كإصدار 2003 ولا أعلم إن كان سيعمل أم لا - حيث تختلف المكونات والمراجع من إصدار إلي آخر تقبل تحياتي Book1_Del_module.rar

الأستاذ/ رائد السلام عليكم ورحمة الله وبركاته تفضل - مع بعض الملاحظات : 1- يقوم الكود بحذف جميع محتويات Module1 وللتغيير إلي Module2 غير الأسم في الكود 2- لابد من وضع علامة صح أمام الخيار الأخير في أمان الماكرو - إصدار 2007 - أو مايقابله في الإصدارات الأخري نص الخيار (Trust access to the VBA project object model) 3- قد يتطلب الأمر إدراج بعض المراجع - ولكن جرب وأخبرني بالنتيجة . Book1_Del_module.rar

الأخت الفاضلة/ أم عبدالله ماشاء الله عمل رائع - والرد سريع وجاهز بالتوفيق وإلي الأمام

أستاذنا/ عبدالله باقشير ماشاء الله تبارك الله - جزاك الله خيرا

الأخ الكريم/ عطاء الله لا شكر علي واجب - تقبل تحياتي

أستاذنا الكبير/ عبدالله باقشير السلام عليكم ورحمة الله وبركاته شرفني مروركم الكريم تقبل تحياتي

الأخ العزيز/ البروفسير ألف مبروك وإلي الأمام وبالتوفيق دائما

الأخ الكريم/ dah_med السلام عليكم ورحمة الله وبركاته فتحت الملف وقرأت طلب حضرتكم ولم أستوعب المطلوب بشكل جديد فبرجاء الشرح بتفصيل أكثر وياحبذا لوكان مدعوم بمثال عملي علنا نستطيع المساعدة تقبل تحياتي

أخي/ نايف - م السلام عليكم ورحمة الله وبركاته مبدئيا لم أعرف آلية العمل في الملف - ولكن جربت الإختيارات وقد وجدتها تنفذ وما أردت قوله أنه لا يوجد رسالة خطأ - وزر Enter لايعطي أي تأثير - وربما يكون السبب من إصدار إكسل فعندي 2007 فبرجاء أرفاق صورة لنتبين الأمر - مركز تحميل الصور هنا : http://www.officena.net/ib/index.php?app=gallery&category=2 بعد تحميل الصورة إنسخ الرابط وضعه في مشاركتك - ولا تنسي ذكر إصدار الإكسل تقبل تحياتي

الأخ الكريم/ ossimi السلام عليكم ورحمة الله وبركاته الحل ما جاء به أخونا الحبيب/ محمود الاسيوطى لابد من إضافة عمود للجدول يحدد منصب الموظف ومن ثم التقييم المقابل له فهذا العمود يعتبر من أهم بنود الجدول - ولا يمكنك الإستعاضة عنه بالبحث داخل المسميات عن كلمة " مدير عام " أو جزء منها بحث كهذا وباللغة العربية ستكون نتيجته " مخيبة للآمال " تماما - وكما ذكرت البيانات ضخمة وإضافة عمود لتلافي الخطأ هو عين الصواب هذا رأيي الشخصي يحتمل الخطأ قبل الصواب - ولعلك تجد من الشباب من يجد حلا أفضل . تقبل تحياتي

الأخ الكريم/ عطاء الله السلام عليكم ورحمة الله وبركاته كنت أعتقد أن الأمر من السهولة بمكان حتي بدأت في التنفيذ .... تفضل - لكن إحرص علي وضع مجلد Flag في نفس مسار ملف إكسل حتي يمكن للكود إيجاد الصورة تقبل تحياتي المصنف1.rar

الأخ الكريم/ rameee السلام عليكم ورحمة الله وبركاته أظنك علمت الآن لماذا أطلقت علي المنتدي " منتدانا العامر " لأنه عامر بالخبراء المحترفين ومحبي الخير والمساعدة أستاذنا/ الشهابي جزاك الله خير علي الحل الرائع - تقبل تحياتي أختنا الفاضلة/ أم عبدالله جزاك الله كل خير علي المعادلة الجميلة - السهل الممتنع

الأخ الكريم/ هاني السلام عليكم ورحمة الله وبركاته في البداية أعتذر عن التأخير الغير متعمد وفي معظمه خارج عن إرادتي بالفعل أعمل في برنامجك وأردت الرد قبلك لأطمئنك علي إلتزامي بهذا العمل أمهلني يومين أجهز لك جزء معقول ونأخذ رأيك فيه تقبل تحياتي

الأستاذ/ ريان الكود مرفق في الأسفل نعم هو بالأساس مصمم لإصدار 2003 استاذ حماده عندما شغلت الكود ظهرت لي رسالة خطأ بالكود الأستاذ/ وليد نعم الرسالة تظهر ولكن بعد أداء الكود مهمته في حذف عناوين النطاقات الفارغة - يمكنك التغاضي عنها فليس لها تأثير عموما قمت بالتعديل حتي لاتظهر الرسالة - تفضل الكود الجديد : '========== Reduce File Size & Fix Blank UsedRange By Excel ============== Sub ExcelDiet() Dim j As Long Dim k As Long Dim LastRow As Long Dim LastCol As Long Dim ColFormula As Range Dim RowFormula As Range Dim ColValue As Range Dim RowValue As Range Dim Shp As Shape Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each ws In Worksheets With ws 'Find the last used cell with a formula and value 'Search by Columns and Rows On Error Resume Next Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) 'Determine the last column If ColFormula Is Nothing Then LastCol = 0 Else LastCol = ColFormula.Column End If If Not ColValue Is Nothing Then LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column) End If 'Determine the last row If RowFormula Is Nothing Then LastRow = 0 Else LastRow = RowFormula.Row End If If Not RowValue Is Nothing Then LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row) End If 'Determine if any shapes are beyond the last row and last column For Each Shp In .Shapes j = 0 k = 0 j = Shp.TopLeftCell.Row k = Shp.TopLeftCell.Column If j > 0 And k > 0 Then Do Until .Cells(j, k).Top > Shp.Top + Shp.Height j = j + 1 Loop If j > LastRow Then LastRow = j End If Do Until .Cells(j, k).Left > Shp.Left + Shp.Width k = k + 1 Loop If k > LastCol Then LastCol = k End If End If Next Shp .Range(Cells(1, LastCol + 1).Address & ":IV65536").Delete .Range(Cells(LastRow + 1, 1).Address & ":IV65536").Delete End With Next ws Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub تقبل تحياتي

الأخت الفاضلة/ أم عبداالله السلام عليكم ورحمة الله وبركاته شاكر وممتن لكم إن شاء الله أكون عند حسن الظن - وفقك الله ومن نجاح لنجاحات بإذن الله

أخي الكريم/ السلام عليكم ورحمة الله وبركاته أهلا وسهلا بك في منتدانا العامر - الكل مرحب ومستعد لأي إستفسار أو طلب مساعدة لطفا أرفق ملف إكسل كمثال يدعم سؤالك بشكل عملي ويسهل الرد علي نفس الملف المنتدي يقبل إرفاق الملفات المضغوطة دون الملفات العادية تقبل تحياتي

الأخ الكريم/ ريان أحمد السلام عليكم ورحمة الله وبركاته كما أفاد أستاذنا/ جمال عبد السميع لب المشكل هو تنسيق الأرقام فهو الذي يحدد لإكسل كيفية التعامل مع البيانات وحسب وصفك هي أكواد غير متسلسلة أي لا يجري عليها عمليات حسابية كالجمع مثلا - فإذا كانت كذلك حسنا أقول لك التالي : حدد عمود الأكواد بالكامل بالماوس أختر - تنسيق الخلايا - أرقام - أختر نص - تخصيص - صفر ( أي نص في صورة رقم ) بعد ذلك قم بتعديل بسيط علي معادلة البحث ستجد Vlookup تعمل بكل كفاءة بإذن الله ولايهم بعد ذلك سواء بحثت عن الرقم كاملا أم أنقصت منه رقمين كما تريد - مرفق مثال test.rar