Ali Mohamed Ali

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

أحسنت استاذ منير جزاك الله كل خير

مجهود ممتاز استاذ منير بارك الله فيك

تفضل هذا هو السريال K5EMR-57HK7-4BADS-6XG2B-TU645-ZZW29-SQ5ZY-EL9T3 وهنا يوجد البرنامج كاملا بالكراك... يمكنك تحميله بكل بساطة Passware Passware Kit Forensic.v13.5.8557.x32-BRD

عمل ممتاز بارك الله فيك ووفقك الله دائما

اصبر استاذ منير أحسنت عمل رائع بارك الله فيك

بارك الله فيك وجزاك الله كل خير

وعليكم السلام-يمكنك الإستعانة بهذا Trasted Location .. إنشاء موقع أمان لملفات الأكسيس توماتيكى

يمكنك هذا من خلال متابعتك لهذا الفيديو الجزء الأول عمل فورم الادخال في اكسل بتفاصيل رائعة مع الاستاذ الرائع اسلام رجب

أحسنت استاذ ابراهيم الحداد فأبدعت كود ممتاز بارك الله فيك وجزاك الله خير الثواب

وعليكم السلام-يمكنك دراسة الأكواد جيدا بالملف ومعرفة كل شيء لمعرفة الأخطاء التى قمت بها اولا : لم تقم بوضع الأكواد فى حدث الفورم , بل وضعتها فى حدث صفحة الإكسيل ثانيا :لم تقم بربط مسميات وادوات الفورم جيدا مع اكوادها وتشمل تيكست بوكس والليبل والكوماند . مثال ذلك فلابد من كتابة الكود ب TextBox1 وليس Text1 .كما قمت انت لأنك قمت بتصميم الكود وتسمية هذا Textbox1 وليس Text1 تم تعديل كل شيء , من فضلك اطلع على الملف مع ضبط وربط الأكواد بالفورم example.xls

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

تفضل يمكنك استخدام احدى المعادلتين حسب رغبتك =SUMPRODUCT(1/COUNTIF($C$5:$C$16,$C$5:$C$16)) أو هذه المعادلة =SUMPRODUCT(($C$5:$C$160<>"")/COUNTIF(C5:C160,C5:C160&""))

بارك الله فيك استاذ حسين وبعد اذن حضرتك ولإثراء الموضوع ,يمكنك ايضا استخدام هذا الكود فى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c4")) Is Nothing Then For Each opb In ActiveSheet.OptionButtons If opb.Caption = [C4].Value Then opb.Value = 1 opb.Interior.Color = RGB(255, 204, 153) Else If opb.Caption <> [C4].Value Then opb.Interior.Color = xlNone End If Next opb End If End Sub ربط القائمة المنسدلة مع زر الاوبشن.xlsm

أحسنت استاذ سليم -عمل ممتاز ,دائما مبدع بارك الله فيك وزادك الله من فضله ووسع الله فى رزقك

تفضل لك ما طلبت واعلم ان المعادلة ليس بها أخطاء ولكن المشكلة من عندك عند تنفيذ المعادلة .... فهذه معادلة صفيف فلابد من الضغط على Ctrol+Shift+Enter وليس Enter فقط كباقى المعادلات تكاليف عملاء1.xlsx

وعليكم السلام-تفضل لك ما طلبت SOA Yahya1.xlsx

وعليكم السلام-لا يمكن هذا الا بهذه المعادلة =IF(OR(TRUNC(A60-R60,2)-TRUNC(A60-R60,1)>=0.05,TRUNC(A60-R60,-1)-TRUNC(A60-R60,0)>=0.5),TRUNC(A60-R60,0)+1,TRUNC(A60-R60,0)) abc1.xlsx

وعليكم السلام-اهلا بك بالمنتدى تفضل لك ما طلبت بارك الله فيك اخى الكريم بالنسبة لكيفية وضع التاريخ والوقت , تم عمل كود لذلك حتى لا يتغير .... كل ما عليك هو تقوم بعمل كليك يمين على اسم الصفحة VisitDetails ثم بعد ذلك تختار View Code وبعد كده تقوم بلصق هذا الكود فى النافذة التى ظهرت لك Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 1 Then If Target = "" Then Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 2) = Now End If End If End Sub أما بالنسبة للعمود الثانى B الخاص بالترقيم فتم فقط استعمال ووضع هذه المعادلة بداية من الخلية B11 والسحب للأسفل =IF(A11="","",SUBTOTAL(3,$A$11:A11)) وشكرا لك Date & Timing.xlsm

يمكنك استخدام معادلة الصفيف هذه ولابد من الضغط على ctrol+Shift+Enter =IFERROR(INDEX($B:$B,SMALL(IF($A:$A=$K$5,ROW(A$3:A$5000)-ROW(A$3)+1),ROWS($L$5:L5))),"") البحث لاكثر من شرط1.xlsx

وعليكم السلام-تفضل 2021 IN المشتريات.xlsx

أحسنت استاذ منير بارك الله فيك

وعليكم السلام-فقط يمكنك استخدام هذا الكود بحدث الصفحة وكلمة السر عند الحاجة هى 123 Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("C6:G8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub اقتراح موعد لاجتماع شرح التقرير الشهري1.xlsm

تفضل هذا هو المطلوب بالفعل-جرب بنفسك الكمبوبوكس1.xlsm

وعليكم السلام-تفضل دالة dcountA شرح الدالة DCOUNT