محمد يوسف ابو يوسف

اسأل الله العلي القدير ان يرحم والدك ويرحم امواتنا جميعاً اللهم امين

وعليكم السلام ورحمة الله وبركاتة يمكنك كتابة الشرط والنتيجة المتوقعه لتسهيل فهم المطلوب !!!

السلام عليكم ورحمة الله وبركاتة اخي mahmoud nasr alhasany ان كان فهمي صحيح فهذا طلبك تفضل sum-listbox1 (1).xlsm

اخي sabah2023 ضع المعادلة هذه في اي خلية تحددها واكتب رقم القائمة في F12 ..... واكتب الشيء المراد البحث عنه في F13 ... وستجد النتيجة =IF(F12=1;COUNTIF($A$2:$D$16;F13);IF(F12=2;COUNTIF($A$22:$D$36;F13)))

وعليكم السلام ورحمة الله وبركاتة تفض =COUNTIF($A$2:$D$36;$F$12)

وعليكم السلام ورحمة الله وبركاتة اخي احمد الطرفاوي تفضل Sub tast() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") ss = ws.Cells(Rows.Count, 1).End(xlUp).Row k = 0 For Each C In ws.Range("A2:A" & ss) If C > 1 Then ws.Cells(C.Row, 2).Value = "ضع المعادلة هنا" k = k + 1 End If Next C End Sub

اخي الفارس محمد رجب تفضلنسخة من البحث بالليست بوكس (1).xlsm

السلام عليكم ورحمة الله وبركاتة تفضلنسخة من البحث بالليست بوكس (1).xlsm

السلام عليكم ورحمة الله ممكن ارفاق ملف ليتم عمل اللازم

السلام عليكم ورحمة الله وبركاتة بالفعل ماتقوله صحيح تفضل المحترف - 2023-9-م.xlsm

وعليكم السلام ورحمة الله وبركاتة اخي مصطفى العراقي1988 يمكنك استخدام اله البحث بالمنتدي جرب هذا امر تسليمCBS ان لم يكن طلبك ..... يرجي رفع ملف لتسهيل فهم المطلوب

السلام عليكم ورحمة الله وبركاتة تفضل المحترف - 2023م.xlsm

اخي عماني عماني تفضلتجديد 2024 (1).xlsm

السلام عليكم ورحمة الله وبركاتة بعد اذن اساتذتي واحبابي في الله اخي عماني عماني تفضل ما طلبت بالكود طلبك الاولاني تجديد حركة السير.xlsm تفضل طلبك الاخير بلاكود ايصاُ تفضل تجديد 2024.xlsm

بسم الله ما شاء الله جميل جداً احسنت.... استاذ /حسونة حسين .... جزاك الله خيراً اسأل الله العلي القدير ان يجزيك خير الجزاء في الدنيا والاخرة