Ali Mohamed Ali

تمام أستاذى سليم بارك الله فيك

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

بارك الله فيك وجزيت خيرا كثيرا

تفضل أخى الفيديو موجود hh.rar

السلام عليكم أخى جرح- هل هذا طلبك ؟ لقد تم بوضع هذا الكود بعد عمل الكمبوبوكس Private Sub ComboBox1_Change() Dim arr As Variant, i As Long Dim Sh As Worksheet For Each Sh In Worksheets If ComboBox1.Value = Sh.Name Then Sh.Activate End If Next End Sub Private Sub ComboBox1_Click() End Sub Private Sub ComboBox1_GotFocus() Dim arr As Variant, i As Long Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name <> "TOC" Then i = i + 1 ReDim arr(i, 1) arr(i, 1) = Sh.Name ComboBox1.AddItem arr(i, 1) End If Next End Sub

السلام عليكم أخى محمد أما باقى المعادلات من غير if هل أدت معك الغرض ؟ أما بالنسبة لمعادلة if فهى معادلة صفيف -أى بعد كتابتها لابد من الضغط على Ctrl+Shift+Enter وبارك الله فيكم

جرب هذا كما تريد مكافأة ترك الخدمة.xlsx

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

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

ممكن تتبع شرح هذا الفيديو لعله يفيدك

شكرا لك أستاذ عادل وبارك الله فيك هل هذا الحل أدى لك الغرض ؟

السلام عليكم أخى هو المفروض من الول أن ترسل ملف ليتم التعامله معه ولكنى عملت لك ملف أتمنى أن يفى بالغرض ايجاد أصغر رقم فى عدة خلايا متفرقة.xlsx

السلام عليكم تحياتى لأستاذى ومعلمى زيزو دائما سباق للخير ان شاء الله ولإثراء الموضوع اليك هذا الملف ادراج تاريخ.xlsm

السلام عليكم بعد اذن أستاذى سليم ممكن أخ عادل تجرب هذا مطلوب داله حساب مكافأة ترك الخدمة طبقا لما يلى - Copy.xlsx

وعليكم السلام ممكن تجرب البرنامج المرفوع هنا : https://up.top4top.net/downloadf-801soio31-rar.html

بارك الله فيك أستاذى وجزيت خيرا جربت ولم يضبط معى

السلام عليكم أستاذ جرح هل تقصد هكذا البحث بأسم الشيت.xlsm

وعليكم السلام أخى تفضل لقد تم التعديل Hotel Calculate.xlsm

السلام عليكم لقد تم الرد وارسال الحل على مشاركتك الأخرى

وأخيرا وهذا هو التعديل النهائى كما تريد ذر منفرد لإخفاء الصفوف واخر لإخفاء الأعمدة والأخير لإظهار الأعمدة والصفوف معا تقبل تحياتى جزاك الله خيرا وبارك الله فيك اخفاء الصفوف والأعمدة ثم إظهارها.xlsm

تفضل أخى وقد تم ايضا اخفاء الصفوف الفارغة بمجرد ضغط على الشيت أو كتابة أى شيى ثم انتر سوف تختفى الصفوف الفارغة -وهى مختفية الأن فى الشيت المرسل لك وهناك ايضا طريقة بدون أكواد ولكن لحذف الصفوف والأعمدة الفارغة وهى : أولاً تقوم بتحديد نطاق خلايا الجدول التى تريد أن تحذف منها الصفوف والأعمدة الفارغة والباقى فى الشرح مع الصور المرفقة New ظˆط±ظ‚ط© ط¹ظ…ظ„ Microsoft Excel.xlsm الخطوة الأولى تذهب الى علامة النظارة وتختار.docx

كان هناك مشكلة فى وضعك للكود -عدلته ,وأثناء فتحك للملف يعمل العداد ولكن عندما تريد أن تغلق وتحفظ الملف فهناك يتوقف العداد فما عليك عند اعادة تشغيل الملف الا أن التقوم بالضغط على Alt F8 ثم RUN المصنف1.xlsm

جزاك الله كل خير أخى نبيل المفروض ان العداد شغال مباشرة دون الضغط على أى شيئ ولا يتوقف

ممكن تجرب هذا time.xlsm

وعليكم السلام تفضل أخى هذا كود أحد الإخوة الكرام طھطµط­ظٹط­ ظƒظˆط¯ ط§ظ„طھط±ط­ظٹظ„ ط¨ط§ظ„ظپظ„طھط±ط© ط§ظ„ظ…طھظ‚ط¯ظ…ط©.xlsm