الصـقر

يبقى حضرتك لازم تحول الملف الى صيغه 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 وشغل الكود شاهد ماذا يحدث ستجد ان عرض الفورم بعد انتهاء الكود لم يتم عرض الفورم بالكامل

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

تقبل تحياتى

اخى الكريم احمد الفلاحجى

جزاكم الله خيرا على مرورك العطر

تقبل تحياتى 

حبيبى يا ابوالبراء

تسمح لى ان احجز مقعد ام الباب مغلق  

بصراحه شروحات ولا اروع من كدا 

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

جزاكم الله خيرا الجزاء وجعل اعمالك فى ميزان حسناتك

تقبل منى وافر الاحترام والتقدير