Ali Mohamed Ali

أعمال ممتازة استاذ أحمد جزاك الله كل خير

بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذ محي ولإثراء الموضوع يمكنك استخدام هذه المعادلة المعرفة وهذا هو كودها Function Evals(t As String) As Double Dim c As String, i As Long For i = 1 To Len(t) If Asc(Mid(t, i, 1)) < 58 And Asc(Mid(t, i, 1)) > 41 Then c = c & Mid(t, i, 1) Next Evals = Evaluate(c) End Function ثم تكتب المعادلة بالخلية B2 على النحو التالى : =Evals(A2) سليم1.xlsm

وعليكم السلام يمكنك هذا ,بوضع ذلك الكود بحدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("d:d")) Is Nothing Then Range("d1").Sort Key1:=Range("d2"), _ Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom End If End Sub فرز حسب 1الاكبر.xlsm

جرب هذا Book1.xlsm

من فضلك عليك الإنتباه من هذه الأخطاء ... فهذا الخطأ منك انت لأنك قمت بذكر صفحة Data بأكواد الفورم على الرغم انها غير موجودة بالملف المرفوع فعندما قمت بإضافة هذه الصفحة تم ظهور الفورم بكل كفاءة حل مشكلة1.xlsm

من فضلك اخى الكريم لا تبخل بنجاح المشاركة فليس هناك وجود لأى مشاركة الا بعد تدعيمها بملف مشروح فيه كل المطلوب بكل دقة والا فكان عليك لزاماً استخدام خاصية البحث بالمنتدى قبل رفع هذه المشاركة طالما انك لم تقم برفع ملف !!! ولا تقول ان المشاركة بسيطة لا تحتاج لكل هذا ... فان كان طلبك بسيط لأستطعت انت بنفسك حله ولا احتجت لمساعدة الأخرين فى حل مشكلتك وتفريج كربتك تفضل هذا الكود Sub Unhide_All_Sheets() Dim ws As Worksheet ActiveWorkbook.Unprotect For Each ws In Worksheets ws.Visible = xlSheetVisible Next End Sub وهذا كود أخر Sub Unhide_All_Sheets_Count

تفضل -يمكنك استخدام هذه المعادلة =COUNTIFS($B$4:$B$28,I$4,$C$4:$C$28,"*"&$H5&"*") SAME1.xlsx

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

وعليكم السلام -طبعاً ما تطلبينه لابد ان يكون فقط بمقابل مادى وليس مجانى.... ولكن يمكنك تجربة هذا , وهذا فيديو للشرح برنامج شئون الموظفين مع ارشيف للمستندات والصور وملفاتPdf تحميل مجانى لبرنامج إدارة شؤون الموظفين لإدارة الموارد البشرية في الشركات والهيئات والمؤسسات برنامج شؤون الموظفين مجاني برنامج شئون الموظفين مع اضافة السلف قاعدة بيانات كاملة للموظفين بنظام اليوزرفورم...مجانا برنامج قاعدة بيانات الموظفين وهذه برامج بمقابل مادى برنامج ادارة شؤون الموظفين برنامج ادارة الموارد البشرية dexefHR برنامج شئون العاملين والموظفين نسخة مجانية مفعلة لأبو ي

وعليكم السلام-تفضلى goto the page with pass1.xls

وعليكم السلام -يمكنك استخدام هذه المعادلة لذلك ... وأيضاً بالملف يوجد أربعة معادلات أخرى =LOOKUP(1,0/('1'!$A$3:$A$600=$A3)/('1'!$B$3:$B$600=$B3),'1'!$C$3:$C$600) test match price1.xlsx

وعليكم السلام-لكى يتحقق ما تريد عليك بإستخدام هذه المعادلة =(INT(A2)+(A2-INT(A2))*100/60)*C2 الأضافى1.xls

وعليكم السلام-لك ما طلبت test search1.xlsx

جرب كده أعتقد لا يوجد مشكلة الأن SHAIMA1 H.xlsm