حمادة باشا

الأخ الكريم/طلعت محمد حسن السلام عليكم ورحمة الله وبركاته بعد محاولات عدة لم أستطع التعديل علي الفورم - هناك روابط لملفات أخري وصفحات محمية أضفت زر لحذف السطر المراد داخل صفحة " المنصرف والمبيعات " يؤدي الغرض تقبل تحياتي ابراهيم 12-11-2013.rar

الأخ الكريم/ طلعت السلام عليكم ورحمة الله وبركاته سأفعل بإذن الله

الأخ الكريم/ office 2003 السلام عليكم ورحمة الله وبركاته بعد إستئذان أخواني المشاركين قبلي - كود أخي/ أبو حنين لاغبار عليه ويظهر جميع الأعمدة المخفية ولكن المشكلة في ملفك 2003 المرفوع تستطيع حلها عن طريق التالي : أختار كامل الصفحة من المربع في الركن العلوي أو إستخدم Ctrl+A وأسحب حد أي عمود بغرض توسعته ستظهر جميع الأعمدة وينطبق القول نفسه علي الصفوف الأعمدة بالفعل ظاهرة ولكن ..... عرض الأعمدة = صفر لذلك لم تراها . تقبل تحياتي

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

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

الأخ الكريم/طلعت محمد حسن السلام عليكم ورحمة الله وبركاته لم أتدخل في تركيب الكود فقط تعديل المصطلحات Private Sub CommandButton4_Click() Sheet3.Activate Q = 0 xxx = 4 Do Until Sheet1.Cells(xxx, "A").Text = "" If Me.ComboBox1.Text = Sheet1.Cells(xxx, "A").Text Then Q = 1 kk = MsgBox("هل تريد الالغاء", vbYesNo) If kk = vbYes Then ActiveCell.EntireRow.Delete Else MsgBox ("لم يتم الالغاء") End If End If xxx = xxx + 1 Loop End Sub تقبل تحياتي

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

الأستاذ/ أحمد زعل السلام عليكم ورحمة الله وبركاته لا شكر علي وجب - وفيما يتعلق بالرسالة الأخيرة حاول حذف الملفات من داخل : C:\Program Files\Microsoft Office\Office14\XLStart C:\Users\<User Name>\AppData\Roaming\Microsoft\Excel\XLSTART أحرص علي الملف الأصلي من عملية الحذف . تقبل تحياتي

الأخ الكريم/ w7dani_hs السلام عليكم ورحمة الله وبركاته إستخدم دالة IFERROR قبل VLOOKUP لتلافي الخطأ حال عدم وجود ما تبحث عنه تقبل تحياتي استفسار.rar

الأستاذ/ أحمد زعل السلام عليكم ورحمة الله وبركاته حضرتكم أستاذ - حسنا - إذا لم يكن حسابك Admin - قم بالتالي : من Start -> Accessories بزر الماوس اليمين إفتح Command Prompt - Run As Administrator وأعد تسجيل المكتبات مرة أخري - وأخبرني بما وجدت تقبل تحياتي

الأستاذ/ أحمد زعل السلام عليكم ورحمة الله وبركاته لم أستطع تحميل الصورة - أرجو إعادة رفعها أو ذكر نص الرسالة التي تظهر . تقبل تحياتي

الأخ الكريم/ احمد زعل السلام عليكم ورحمة الله وبركاته مبدئيا حاول توحيد مستخدمي الملف علي إصدار إكسل واحد لأن إختلاف الإصدارات من مسببات الأخطاء ثانيا بدون الكود الأصلي يصبح الأمر محض إجتهادات - لذا جرب التالي : 1- أفتح الإكسل وأذهب إلي File-> Options-> Add-Ins-> Excel Add-Ins وقم بإلغاء إختيار Analysis Toolpak - VBA ثم إقفل البرنامج وأعد التشغيل ثم أفتح الملف 2- حاول أن يكون ورقة واحدة علي الأقل ظاهرة أثناء تحميل وعرض فورم البداية حيث أعتقد أن الكود يفعل أوامر داخل الأوراق قبل إكتمال تحميل المكونات تقبل تحياتي

الأخ الكريم/ احمد زعل السلام عليكم ورحمة الله وبركاته وكما أسلف أخي العزيز/ محمود - هناك مكتبة غير متوفرة علي الجهاز العبء يكمن في ضرورة تحديد هذا "الكائن" - هل الفورم يحتوي علي مكونات مختلفة عن المتاح في برنامج الإكسل ؟ - نتيجة - ساعة بشكل معين ؟ الحل الذي أراه هو حذف كائن في كل مرة وإحفظ بإسم وجرب الملف حين تختفي الرسالة ستعرف أن آخر كائن محذوف هو المطلوب . قبلها يمكنك تسجيل التالي ( إن كان لك خبرة في تسجيل المكتبات ) : من المفترض وجود الملفات التالية في مجلد System32 وقد تجد بعضها تحت مجلد Microsoft Office\Office12 COMDLG32.OCX - REFEDIT.DLL - MSCOMCT2.OCX للتسجيل ضع الملفات السابقة داخل C:\windows\system32 أو حسب مكان وجود الويندوز لديك ثم من نافذة Run أكتب الأمر التالي : regsvr32 %Systemroot%\System32\comdlg32.ocx وغير أسم الملف في كل مرة أتمني أن أكون قد أفدتك

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

الأخ الكريم/ هاني السلام عليكم ورحمة الله وبركاته قبل أي إقتراح للحل - فضلا قم بالتالي : أذهب إلي محرر الأكواد بالضغط من داخل الإكسل علي Alt+F11 ثم من القائمة بالأعلي أختر - Tools -References ثم في النافذة التي ستظهر هل تجد سطر يبدأ بعبارة Missing وأمامه علامة صح ؟ هل السطر به "MISSING: Ref Edit Control" ؟ في إنتظار الرد - تقبل تحياتي

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

الأخ الكريم/محمد قدومي السلام عليكم ورحمة الله وبركاته بعد إستئذان أساتذتي وأخواني المشاركين قبلي جرب هذا الطرح عله يفي بالغرض تقبل تحياتي Book1-Large Cell View.rar

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

الأخ الكريم/ياسر فتحى البنا لم ألحظ إدراج الملف في المشاركة السابقة هذا التعديل لن يظهر الرسالة لديك بإذن الله وبدون إخفاء الرسائل التحذيرية New Microsoft Excel Worksheet.rar

الأخ الكريم/ياسر فتحى البنا السلام عليكم ورحمة الله وبركاته الحل كما ذكر الأستاذ الفاضل/ YasserKhalil يوجد في إلغاء خيار Remove Personal Information from file properties on Save ولكن رجاء أعد خيارات الماكرو وال AcitveX إلي سابق عهدها من عدم التمكين للكل مع الإشعار برسالة حيث تركها مفتوحة قد يلحق الضرر بجهازك - تقبل تحياتي

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

الأخ الكريم/أبو ليمونه السلام عليكم ورحمة الله وبركاته إذا كانت القائمة المنسدلة من أدوات الفورم Form Control لا يمكن تكبير الخط بها وإذا كانت من نوع AciveX Control يمكن التحكم بحجم الخط من خلال الخصائص النوع الأول قصاري ما يمكن فعله تكبير حجم الصفحة Zoom تقبل تحياتي

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

الأخ الكريم/ ۩◊۩ أبو حنين ۩◊۩ السلام عليكم ورحمة الله وبركاته الفكرة بإستخدام دالة OFFSET التي ترجع خلية الهدف بمعلومية رقم الصف والعمود العمود ثابت والصف تم تحديده إبتداء من الخلية رقم 3 في العمود المطلوب وآلية القفز إلي الخلايا المطلوبة تمت عن طريق الجزئية التالية (ROWS(Card!$1:1)-ROW(Card!$1:1))*23 ناتج المعادلة في السطر الأول = ( 1 - 1 ) * 23 = 0 ( سيظل في السطر 3 ) وفي السطر التالي (ROWS(Card!$1:2)-ROW(Card!$1:2))*23 ناتج المعادلة في السطر الثاني = ( 2 - 1 ) * 23 = 23 ( 23 + 3 = 26 ) وهكذا - أرجو أن أكون قد أفدتك تقبل تحياتي

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