محمد الورفلي1

السلام عليكم ...
شكراً استاذ كريم   تم التوصل لحل تغيير بسيظ في الكود الاصلي  .. تم وضعة للاستفادة 
If Val(Me.TextBox1.Value) > Val(Me.TextBox2.Value) Then MsgBox "احذر سعر البيع اقل من سعر الشراء": Exit Sub  

السلام عليكم انظر الي الروابط
 
 
 
https://www.officena.net/ib/topic/42166-مطلوب-للأهمية-_-برنامج-علي-الاكسل-لادارة-مطعم/
 
https://www.officena.net/ib/topic/54603-مطلوب-شيت-خاص-بتكاليف-المطاعم/
https://www.officena.net/ib/topic/32220-مشروعات-03-نظام-محاسبة-ومخزون-مطاعم-وفنادق/?page=2
https://www.officena.net/ib/topic/73839-هام-برنامج-لادارة-حسابات-مطعم/

السلام عليكم تم الحل بقضل الله
وضعته لتعم الفائدة وليستفيد منه شخص آخر
نضع هذا الكود في الكوماند (1)
Private Sub CommandButton1_Click() If IsDate(TextBox1.Value) Then TextBox2.Value = Format(DateAdd("m", TextBox3.Value, TextBox1.Value), "yyyy/mm/dd") End Sub  

شكراَ استاذ مختار

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

السلام عليكم اخ ياسر
اشكر صبرك
سامحني في عدم القدره في توصيل المعلومة بشكل واضح
 
يعنى اريد ان اقيد الخلية بعدم السماح بكتابة   رقم ومعه شرطة مثل 1/     او /3   او  شرطة   -    او علامة    /   او *   او -   او +  او @  او $  او #    فيكون المسوح كتابتة رقم فقط بدون اي علامات
 
 
بعد البحث وجدت معادلة صفيف للمهندس طارق بارك الله فيه
 
 
=MID(G18;MATCH(TRUE;ISNUMBER(1*MID(G18;ROW($1:$9);1));0);COUNT(1*MID(G18;ROW($1:$9);1
 
 
هذه مشاركة بها الحل لتعم الفائدة
 
ملف.rar

شكراً  استاذ ابن مصر
اخى الفاضل
 
لست خبير بالمعادلات ولكن جرب الملف المرفق لربما به طلبك
 
تحياتي
ملفات مرفقة  
 
شكراً  استاذ سليم 
مشكور يا بن مصر 
لمزيد من الاثراء اليك هذا الحل الاخر
ملفات مرفقة  
شكراً استاذ محمد
 
بعد اذن الاساتذه
واثراء للموضوع
ضع هذه المعادله لاستخراج اول حركة
=INDEX($C$9:$E$18;MATCH(SMALL(IF($C$9:$C$18=$K$6;ROW($C$9:$C$18);"");ROW(A1));IF($C$9:$C$18=$K$6;ROW($C$9:$C$18);"");0);2)
وهذه المعادله لاستخراج اخر حركة
=INDEX($C$9:$E$18;MATCH(LARGE(IF($C$9:$C$18=$K$6;ROW($C$9:$C$18);"");ROW(A1));IF($C$9:$C$18=$K$6;ROW($C$9:$C$18);"");0);2)
لاتنسى الضغط على مفتاح ctrl+shift+enter
ملفات مرفقة

شكراً اخي الفاضل علي  ونعم الاخ بارك الله فيك لقد اتعبتك معي نسأل الله ان يكون في ميزان حسناتك(( لقد ابدعت في المعادلة ))
 
واضم صوتي الي صوت ابو الآ
===================================================================
 
 
 
 
الاستاذ الشهابي ذو الطله البهيه دائماَ في اعمالك لقد جعلتني في حيره في اختيار الطريقة كذالك بارك الله فيك ونسأل الله ان يكون في ميزان حسناتك

السلام عليكم ورحمة الله وبركاتة
شكراً   علي الاهتمام والمتابع
تم بحمد الله حل الموضوع بالكواد ولكن باقي جزئية بسيطة في الموضوع التالي
 
http://www.officena.net/ib/index.php?showtopic=55757#entry352747

السلام عليكم
 
الاخ الكريم ياسر
 
 
الملف لم يكتمل بعد ارجو تصحيح ما تجده من اخطاء
هذا الكود تعبو فيه الاساتذة في المنتدي معي حتي ظهر بهذ الشكل
 
هو ثلاث اجزاء 1/ كود وضع ارقام في خلية بدل من نصوص مثل تضع رقم (( 1 )) جعلتها ترمز الي اولي  ابتداي وتستطيع تغييرها الي متشاء 
                  2/ كود وضع حرف ((  ك  )) في خلية  ترمز الي  ((  ذكر  ))) و حرف ( ن ) الي انثى
                  3/ كود ابجدة تلقائي والا نتقال الي اخر خلية فارغة عند وضع اسم الطالب
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C18:C2014")) Is Nothing Then Select Case Target Case 1 Target = "اولي ابتدائي" Case 2 Target = "ثانية ابتدائي" Case 3 Target = "ثالثة ابتدائي" Case 4 Target = "الصف الرابع" Case 5 Target = "الصف الخامس" Case 6 Target = "الصف السادس" Case 7 Target = "الصف السابع" Case 8 Target = "الصف الثامن" Case 9 Target = "الصف التاسع" End Select End If If Not Intersect(Target, Range("d18:d2014")) Is Nothing Then Select Case Target Case "ك" Target = "ذكر" Case "ن" Target = "انثى" End Select End If Application.ScreenUpdating = False If Target.Column = 4 Or Target.Column > 8 Then GoTo 1 lr = Cells(Rows.Count, 2).End(xlUp).Row If Range("B" & lr) = "" Or Range("C" & lr) = "" Or Range("d" & lr) = "" _ Or Range("e" & lr) = "" Then GoTo 1 Range("b18:e" & lr).Select Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ''''''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With '''''''''''''''''''''''''''''''''''''''''''' With Range("b20:b" & lr + 3) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True End With Range("b" & lr + 5).Select 1: Application.ScreenUpdating = True End Sub شئون بسيط.rar

مداخل بسيطة بجانب الاخ عبد الباري
 
ممكن تكون مقاربة للفكرة
ساعة ونتيجة.rar