الصـقر

يبقى حضرتك لازم تحول الملف الى صيغه EXE تقبل تحياتى

اخى الكريم جرب ايضا هذا الكود يفى بالغرض Sub Delete_Zero() Application.ScreenUpdating = False lc = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row For i = lc To 3 Step -1 If Application.WorksheetFunction.Sum(Sheet1.Range(Cells(3, i), Cells(lr, i))) = 0 Then Columns(i).Delete Shift:=xlToLeft End If Next i Application.ScreenUpdating = True End Sub وبهذا الكود انت لا تحتاج الى الصف رقم 284 اللى فيه مجموع الاعمده فانت فى غنى عنه تقبل تحياتى

اخى الحبيب الاستاذ محمد الريفى والله القلوب عند بعضها ادام الله علينا نعمه المحبه فى الله هذا رابط فيديو لشرح الداله للعلامه الكبير محمد جادالله ( علم من اعلام الاكسيل اتمنى يكون بينا فى اوفيسنا ) تقبلوا جميعا تحياتى

جزاكم الله خيرا يا ابوالبراء كنت لسه ارفق لك الرابط لقيتك وصلت له جزاكم الله خيرا تقبل تحياتى

اخى الحبيب ابوالبراء الداله موجوده فى اوفيس 2016 وليست معرفه اعمل تحديث يا ابوالبراء من خيارات الاكسيل تقبل تحياتى

تفضل اخى الكريم جرب المعادله بهذا الشكل ( على حسب ما فهمت من طلبك =IF(AND(C6>=50;C6<=60);"Mahmoud";"") تقبل تحياتى

وين المرفق اخى الكريم ؟

اخى واستاذى الحبيب محمد الريفى جزاكم الله خيرا على كل ما تقدمه خدمه لاخوانك فى الوطن العربى وبخصوص الموضوع فى داله جديده من دوال اوفيس 2016 وهى TextJoin هى داله حديثه يمكن من خلالها عمل ذالك لكن للاسف ما عندى نسخه 2016م معرفه على جهازى لكى ارفق لك مثال تطبيقى اعتقد الداله هتكون بهذا الشكل =textjoin( "/";;A1:E1) ارجوا من الاخوة اللى عندهم 2016 يجرب ويعلمنى بالنتائج تقبلوا تحياتى

اخى الكريم فى شيت البحث وفى الخلية A3 َع المعادله التاليه ثم اكتب الاسم فى الخليه B3 =INDEX(السجل!A3:B14;MATCH(B3;السجل!B3:B14;0);1) تقبل تحياتى

اخى الكريم فى شيت البحث وفى الخليه B3 ضع هذه المعادله =VLOOKUP(A3;السجل!A3:B14;2;0) تقبل تحياتى

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

اخى الفاضل قم بتحديد التكست بوكس واحد ( الخاص بالبحث من خلال الاسم ) واضغط دبل كليك ستيدخلك محرر الاكود الخاص بحدث التغيير هتلاقى السطر ده Set Q = .Range("A2:A" & LastRow).Find(M) كل ما عليك فعله تغيير A2 بــ A1 كالتالى Set Q = .Range("A1:A" & LastRow).Find(M) تقبل تحياتى

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

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

جزاكم الله خيرا

جزاكم الله خيرا

جزاكم الله خيرا استاذ خالد على مرورك العطر تقبل تحياتى

جزاكم الله خيرا

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

جزاكم الله خيرا

الاخ الغالى ابوالبراء جزاكم الله خيرا على كل ما تقدمه تقبل تحياتى

الاخ الكريم / الزبارى الاروع هو مرورك اخى الكريم وجزاكم الله خيرا -------------- الاخ الكريم / اخوكم فى الله ما شاء الله عليك روعه تستحق انت تكون عضو خبير بالمنتدى ياريت ابوالبراء يبحث الامر جزاكم الله خيرا اخى الكريم وتقبلوا جميعا تحياتى

اخى فى الله جزاكم الله خيرا وياريت تحاول تظبط الكود بحيث يتناسب مع اى فورم فى العرض والارتفاع بمعنى اعمل مثلا فورم عرضه 600 وارتفاعه 150 وشغل الكود شاهد ماذا يحدث ستجد ان عرض الفورم بعد انتهاء الكود لم يتم عرض الفورم بالكامل اذا كان عندى متسع من الوقت ساراجع الكود واحاول فيه تظبيطه ليناسب اى فورم تقبل تحياتى

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

حبيبى يا ابوالبراء تسمح لى ان احجز مقعد ام الباب مغلق بصراحه شروحات ولا اروع من كدا بس انا منتظر الدخول فى منطقه الغريق يعنى توصل بالشروحات الى ابعد مدى انا بجد عايز استفيد جزاكم الله خيرا الجزاء وجعل اعمالك فى ميزان حسناتك تقبل منى وافر الاحترام والتقدير