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

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

وردة النرجس وكيف لا يصعب علي استاذ وانت غير ملتزم بقواعد المنتدي لا يمكن العمل علي التخمين... يجب ارسال ملف حضرتك مستخسر شوية توضيح وارسال ملف مدعوم بشرح لمساعدتك !!!! يرجي قرأة قواعد المنتدي اولاً

السلام عليكم تم اصلاح الخطأ .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:="=CountryCitys" & Trim(Str(i - 1)) اما بالنسبة لباقي طلبك غير واضح لكي يتم المساعده يرجي التوضيح بشرح داخل الملف المرفق نسخة من منسدلة ديناميكة لمناديب دول وفروعها الاخير).xlsm

يتم تخزين الفاتورة مكان تواجد الملف الرئيسي تفضل بيات توزيع المواد الغذائية.xlsm بيات توزيع المواد الغذائية (2).xlsm

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

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

السلام عليم اخي جرب المرفق Test.xlsm

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

وعليكم السلام اخي alsihran لا تنتظر مساعدة دون ارسال ملف مدعوم بشرح ربما يكون هذا هو المطلوب =COUNTIFS($B$5:$B$146;$O$4)

اخي الملف محمي بكلمة سر

اضغط الملف و ارفعه وان شاء الله يتم اكتشاف المشكلة

احسنت استاذ /وجيه جزاك الله خيراً

السلام عليكم ورحمة الله ارسل ملف المطلوب العمل عليه

...الملف المرسل يعمل لدي جيداً اذ كنت تستخدم ملف اخر فعليك ارسالة ليتم عمل الازم عليه

اخي وليد المصرى 1 قمت بالتعديل علي الكود السابق والان يعمل بكفائه مثلما تريد تفضل -1تطابق ارقام.xlsm يسمح لك بكتابة الجمل في عمود (g) اذا لم يتم تطابق بين العمودين الكود بعد النعديل Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim w As Integer w = 7 'Application.ScreenUpdating = False ' Do While Cells(w, "h") <> "" Set ws = Sheets("Sheet1") If Not ws.Cells(w, 2) = ws.Cells(w, 8) Then Else Cells(w, "g") = "DONE" End If w = w + 1 Loop ' Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاتة اين الملف !!!!!!ِ

وعليكم السلام ورحمة الله وبركاتة تفضل Sub run() Application.ScreenUpdating = False ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=1 '''عمود رقم 1 في الجدول ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=2 '''عمود رقم 2 في الجدول ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=3 '''عمود رقم 3 في الجدول Application.ScreenUpdating = True ''' ملحوظة اذا ارت اكثر من ثلاث عمود فيك تنسخ وتعدل رقم اللعمود المراد كما تشاء End Sub

ممكن نخلي الشرط في عمود f

وعليكم السلام ورحمة الله وبركاتة من فضلك ما هي مهمة الدالة المراد كتابتها ... هل تريد البخث ام تريد الترحيل من فضلك وضح طلبك غير واضح

اخي وليد المصرى 1 كيف يتم ذالك اسناء وجود شرط اذا كنت تريد كتابة كلمة اخري فيجب علي الكود يقوم بكتابتها

اخي وليد المصرى 1 اسف علي التأخير تفضل تطابق ارقام.xlsm هذا الكود المستخدم Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim m As Integer m = 7 Do While Cells(m, "b") & Cells(m, "h") <> "" If Cells(m, "b") & Cells(m, "h") >= 1 Then Application.ScreenUpdating = False ' Cells(m, "g") = _ "=IF(RC[-5]&RC[1]="""",""No "",IF(RC[-5]-RC[1],""Can Extension"",""DONE""))" Cells(m, "g") = Cells(m, "g").Value Else Cells(m, "K") = "" End If m = m + 1 Loop Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله اخي وليد المصرى 1 تفضل تطابق ارقام (1).xlsx

السلام عليكم تفضل كشف حضور مميز.xlsx

وعليكم السلام ورحمة الله وبركاتة اخي Mohamed Hamada22 لا تنتظر مساعدة دون ارفاق ملف مدعوم بشرح

وعليكم السلام ورحمة الله تفضل Sub taxt() Range("a1:H20") = "0" End Sub