حمادة عمر

الاخ الحبيب / ضاحي الغريب وكل الشكر والتقدير والعرفان للقدير العلامة الخبير / عبد الله باقشير ... جزاه الله خيرا ولاثراء الموضوع اكثر ... شرح ( سطر سطر ) الاكواد المستخدمة في هذا الفورم للقدير / خبور خير ... علي الرابط http://www.officena....showtopic=46420

الاخ الكريم / nunu246 بارك الله فيك بعد اذن الاستاذ القدير / جمال عبد السميع ... جزاه الله خيرا اليك كود يعمل علي جمع الخلايا الصفراء فقط في نطاق معين ( مثلا a1:c20 ) ليتم الجمع بعد ضغط الزر في الخليه C21 ويتم ذلك بالكود التالي : Sub kh_SumCellColor() Dim Cel As Range Dim v As Double ''''''''''''''''''''''''' For Each Cel In Range("a1:c20") If Cel.Interior.ColorIndex = 6 Or _ Cel.Interior.ColorIndex = 19 Or _ Cel.Interior.ColorIndex = 36 Then v = v + Val(Cel) End If Next ''''''''''''''''''''''''' Range("C21").Value = v End Sub واليك رابط موضوع بعنوان ( جمع الخلايا الملونة ) به اكواد اخري راائعة للاساتذة الكبار http://www.officena.net/ib/index.php?showtopic=44243&hl=%2B%D8%AC%D9%85%D8%B9+%2B%D8%A7%D9%84%D8%AE%D9%84%D8%A7%D9%8A%D8%A7+%2B%D8%A7%D9%84%D9%85%D9%84%D9%88%D9%86%D8%A9 ورابط موضوع آخر للاستاذ القدير / عبد الله المجرب ... جزاه الله خيرا بعنوان ( ثلاث دوال تخص الالوان والتعامل معها ) http://www.officena.net/ib/index.php?showtopic=40658&hl=%D8%A7%D9%84%D9%84%D9%88%D9%86 جزاك الله خيرا كود لجمع الخلايا الصفراء فقط.rar

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

الاستاذ العملاق الحبيب / رجب جاويش

الاخ الحبيب / احمد فؤاد بارك الله فيك شكرا جزيلا علي كلماتك الراائعة بالفعل ملف جميل وراائع ومفيد وبه مجهود عالي جدا وجعل الله اعمالك في ميزان حسناتك يوم القيامة جزاك الله خيرا

الاخت الفاضلة / ميار التابعى بارك الله فيك شاهدي الرابط التالي به شرح (( الدالة الشرطية IF )) علي مدونة الاستاذ / معتصم محمد ... جزاه الله خيرا وبالموضوع المعلومات الإساسية للدالة IF ملاحظات على الدالة IF شرح الدالة IF في صورتها المبسطة (( فيديو )) شرح الدالة IF المتشعبة (( فيديو )) http://et3lmonline.com/office/if-function-ms-excel/ جزاكم الله خيرا

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

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك مرور طيب وكريم كالنسيم العليل جزاك الله خيرا

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

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك ولكني اختلف مع اخي / محمد ... في قوله ( واضح انه عميل جيد ... ) حيث انه بالفعل عمل ممتاز ورااائع جدا ... فهو بالفعل عمل جيد وبه مجهود جميل ولكن عذره الوحيد انه لم يري الملف ... جزاك الله خيرا

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك الحمد لله ان وجدت ضالتك وبسرعة ياعم اهه ... ولا ايه ... ههههه جزاك الله خيرا

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك مرورك دائما يسعدني جدا ولقبك غالي وعالي جزاك الله خيرا

السلام عليكم الاخ الكريم / mohamed_hamdy بارك الله فيك جرب المرفق التالي ... به طلبك ان شاء الله جزاك الله خيرا -SAMA-قائمة منسدلة مرتبطة.rar

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك وجزيل شكري وامتناني علي كلماتك الراائعة تفضل اخي المرفق 2003 به الكود ويعمل بكفاءة ويمكنك زيادة عدد الصفحات كما تريد جزاك الله خيرا كود للتنقل بين الصفحات ارتباط تشعبي.rar

الاخ ولاستاذ الحبيب / سعيد بيرم بارك الله فيك اخي الحبيب / ابو عبد الرحمن جعله الله في ميزان حسناتك الاخت الفاضلة / ميار التابعى بارك الله فيك يعجبني كثيرا اصرارك علي التعلم ولكن يجب ملاحظة عناوين مواضيعك ... حيث انها مخالفة لقواعد المنتدي وتعرض الموضوع للحذف او الاغلاق من ادارة المنتدي فيجب الالتزام بالقواعد العامة للمشاركات وكان من الافضل ان يكون عنوان الموضوع معبرا عن الموضوع نفسه فمثلا ( طلب شرح دالة IF من البداية للنهاية ) ... وهكذا ومع ذلك هنيئا لك شرح اخي / سعيد بيرم جزاكم الله خيرا

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك جرب هذا الكود وقم بوضعه في حدث الصفحة الاولي التي تريد اظهار قائمة اسماء الشيتات فيها Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim l As Long l = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = "قائمة بأسماء الصفحات" .Cells(1, 1).Name = "Index" End With For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then l = l + 1 With wSheet .Range("A1").Name = "Start" & wSheet.Index .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _ "Index", TextToDisplay:="عودة للصفحة الرئيسية" End With Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _ SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name End If Next wSheet End Sub ارجو ان يفي بطلبك وشاهد اخي الكريم هذا الرابط عله يفيدك http://www.officena.net/ib/index.php?showtopic=37316&hl=%2B%D8%A7%D8%B2%D8%B1%D8%A7%D8%B1+%2B%D9%84%D9%83%D9%84+%2B%D8%A7%D9%84%D8%B5%D9%81%D8%AD%D8%A7%D8%AA جزاك الله خيرا

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

السلام عليكم الاخ الحبيب / refaat yousry hammed بارك الله فيك ولكن بخصوص مشاركتك الموجود بها روابط للقرآن الكريم اقترح عليك ان تقوم بوضعها كموضوع منفصل في المنتدي المفتوح ... لتعم الفائدة للجميع ولتصبح في مكانها الصحيح جزاك الله خيرا

السلام عليكم الاخ الكريم / دكتور محمود ربيع الاخ الكريم / عبد الغني(aspiran) الاخ الكريم / خالد الشاعر بارك الله فيكم يجب معرفة ان التغيير في ايقونة الاكسيل لايتم في ايقونة الملف في المجلدات لديكم ولكن يتم التغيير في شريط العنوان اعلي صفحة الاكسيل بعد فتحها .... كما في الصورة التاليه ... بدلا من ايقونة الاكسيل العادية شاهدوا الصورة ... وفي انتظار ردكم جزاكم الله خيرا

السلام عليكم الاخ الكريم / viraaboras بارك الله فيك فالموضوع موضوعك ولكني احب التسهيل علي الجميع جزاك الله خيرا

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

السلام عليكم الاخ الكريم / أبو شرف بارك الله فيك وجزيل شكري وامتناني علي كلماتك الراائعة التي لا يساويها اي شئ جمعنا الله واياكم في الفردوس الاعلي يوم القيامة ضع الكود التالي في زر الترحيل CommandButton3 Private Sub CommandButton3_Click() Dim LR As Long ActiveCell.EntireRow.Copy If Not Cmb_NameSheet.Text = "" Then Sheets(Cmb_NameSheet.Text).Select End If LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Cells(LR, 1).Select ActiveSheet.Paste Sheets("الحساب الرئيسي").Select MsgBox ("تم ترحيل الحساب المحدد ... بحمد الله") ActiveCell.Select ActiveCell.Offset(0, 3) = "تم الترحيل" ActiveCell.Offset(0, 3).Select End End Sub وفي انتظار ردك .. ليكتمل عملك باذن الله واليك ملف مرفق 2003 جزاك الله خيرا كشف حساب-SAMA+.rar