ابو حمادة

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

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ السلام عليكم

بالظبط اخي الكريم دا هو المطلوب مع العلم ان الصفوف التي تخص التوقيعات الملونه باللون الاخضر بها دوال المفروض مش تتمسح ومعذره لتداخل المواضيع بس مش عارف اجيب الرابط للموضوع ويريت لو امكن تحاول في اقرب وقت ممكن بعد اذنك بالنسبه للملف ال شغال فيه حاليا فيه مشكله وجهتني بخصوص الملف الاول يريت تطلع عليه تاني وتشوف الخا دا علاجه ايه الخطأ في السطر دا If Me.A4.Text > Me.A1.Text = True Then لو لاحظت ان القيمه الموجوده في A1 هي 10 اذا تم كتابة عدد 2 تظهر رساله تفيد بان القيمة التى ادخلتها اكبر مع ان المفروض انها اقل من 10 يريت تلاحظ الملف دا Book1.rar

تعديل لاستدعاء البيانات.rar

الملف وصل استاذ ياسر العربي ؟ ارجو الرد

هذا رابط للملف اخي الكريم لو تكرمت القي نظرة عليه ويريت تعرفني ممكن يتعمل المطلوب ولا صعب علما ان الكود يعمل جيدا ولكن اريد ان اضيف بالكود سطر يستبعد الصفوف الملونه باللون الاخضر اسفل كل صفحة حيث ان هذه الصفوف بها دوال خاصه بالجمع والتوقيعات http://www.officena.net/ib/messenger/16454/#comment-38214 اي توضيح انا موجود

شكر ا جزيلا استاذ ياسر العربي والاستاذ عبد السلام لاهتتمامكم بالموضوع لكم مني جزيل الشكر والتقدير والاحترام هذا هو المطلوب تسلم ياغالي كدا تمام التمام لو امكن اساتذتي الكرام هناك ملف اخر اريد تعديله ان امكن

تمام كدا اساذ ياسر ولي استفسار بالنسبة للرساله التي تفي بان القيمة اكبر هل من الممكن ان يتم كتابة الرقم الموجود في الJكست بوكس (A1 ) بمعني لو فرض ان الرقم المكتوب في A1 =10 تظهر الرساله بنفس النص ( عفوا هذا العدد اكبر من القيمة الموجودة ( القيمة الموجودة هي 10 )

اريد عند كتابة الرقم اذا كان الشيك بوكس فارغ تظهر الرساله ولكن بهذه الطريقه لا تظهر الرساله غير اروح اختار يبقا ملهاش لزوم لكني اريدها في الحدث ان امكن وهي تعمل جيدا ولكن تظهر مرتين ولا اعلم السبب

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

هذا الملف المرفق به الكود المطلوب Book1.rar

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

شكرا استاذ عبدالسلام ابوالعوافي لاهتمامك بس ممكن اعرف اضفها فين بعد اذنك انا بضفها بتعمل خطأ في تطبيق الكود

السلام عليكم ورحمة الله وبركاته اتمني من خبراء الاكسل مساعدتي في تصحيح هذا الكود حيث انه يعمل جيدا ولكن الرساله تطهر مرتين ورا بعض MsgBox "هذه الرساله عند تشغيل الكود تظهر مرتين ورا بعض اريدها تظهر مره واحده فقط" Private Sub A5_Change() Dim ws As Worksheet Set ws = Worksheets("Archives_Bill") If ComboBox2.Text = "" Then MsgBox ("ÇáÑÌÇÁ ÇÎÊíÇÑ ÇÓã ÇáÚãíá") A5.Text = "" Else With Me If Me.A5.Text > Me.A1.Text = True Then MsgBox "هذه الرساله عند تشغيل الكود تظهر مرتين ورا بعض اريدها تظهر مره واحده فقط" A5.Text = "" Else End If: End With If ComboBox2.Text = "ÈÇáßÑÊæäÉ" Or ComboBox2.Text = "ÈÇáÚáÈÉ" Or ComboBox2.Text = "ÈÇáÚÈæÉ" = True Then ws.Cells(3, 2).Value = "" ws.Cells(3, 1).Value = Me.A5.Value Else If ComboBox2.Text = "ÈÇáÞØÚÉ" Or ComboBox2.Text = "ÈÇáãÊÑ" Or ComboBox2.Text = "ÈÇáßíáæ" Or ComboBox2.Text = "ÈÇáÚÏÏ" = True Then ws.Cells(3, 1).Value = "" ws.Cells(3, 2).Value = Me.A5.Value End If End If End If End Sub

شكرا لاهتمامكم تم حل المشكله جزاكم الله خيرا ولي استفسار هل هناك اي وسيله لظهور الارقام بالعربي في التكست بوكس

السلام عليكم ورحمة الله الي خبراء الاكواد ارجو تصحيح هذا الكود ومعرفة الخطأ وتصحيح الكود يوجد في الفورم TextBox1 و TextBox2 محتاج الاتى عند كتابة اي رقم في TextBox2 لو كان الرقم الذي تمت كتابتة اكبر من الرقم الموجود في TextBox1 يتم اظهار رسالة للمستخدم تفيد بانه ( لا يوجد رصيد كافي ) وان كان الرقم اقل او يساوي يتم عمل الكود عادي Private Sub TextBox2_Change() Dim WS As Worksheet Set WS = Worksheets("Bill") With Me If Me.TextBox2.Text < Me.TextBox1.Text = True Then MsgBox "لا يوجد رصيد كافي" Else WS.Cells(12, 2).Value = Me.TextBox2.Value TextBox2 = WS.Range("U12").Text End If: End With End Sub

ارجو الاهتمام استاذ صقر الموضوع مهم جدا جدا عايز اطبق الكود علي هذا الملف مع مراعاه الصفوف الملونه باللون الاخضر ارجوك ولك مني جزيل الشكر والاحترام تعديل لاستدعاء البيانات.rar اتمني لو الموضوع صعب عرفني اشوف اي بديل للكود

ربنا يعزك الامتحانات هاتنتهي اخر الاسبوع ان شاء الله

اتمني يكون ادي الغرض وظبط معاك الفورم ان شاء الله اخي الغالي بس الايام دي في امتحانات اخلص منها وال تحتاجه تحت امرك

يوزر فورم يناسب اي جهاز كمبيوتر نسخة.rar

شكرا لردك استاذي الفاضل بالفعل استاذ ياسر انا بعتذر بشده حيث انني راجعت الملف وتاكدت فعلا حصل لابس بين الاكواد بعتذر هذا الملف بعد المراجعه بالكود الصحيح وهذا هو الكود الذي اريد التعديل عليه Sub Find_All() Dim date1 As Double, date2 As Double Dim a, b, c As String a = Range("t2").Value: b = Range("u3").Value: c = Range("u2").Value d = Application.Match(c, Sheets("add").Range("A2:R2"), 0) Range("B6:R31").ClearContents Range("B37:R61").ClearContents date1 = Range("w2").Value2 date2 = Range("w3").Value2 Set Sh = Sheets("add") x = 6 With Sh For i = 1 To 65000 If b = CStr(.Cells(i, d)) And a = "الكل" Then Select Case .Cells(i, "o").Value2 Case date1 To date2 R = R + 1 If R = 26 Then R = 30 Cells(R + 5, "B").Resize(1, 18).Value = .Cells(i, "B").Resize(1, 18).Value End Select GoTo 1 End If If a = CStr(.Cells(i, "b")) And b = CStr(.Cells(i, d)) Then Select Case .Cells(i, "o").Value2 Case date1 To date2 R = R + 1 If R = 26 Then R = 30 Cells(R + 5, "B").Resize(1, 18).Value = .Cells(i, "B").Resize(1, 18).Value End Select End If 1: Next End With End Sub وهذا ملف اخر استدعاء بيانات.rar

الكود من عمل الاستاذ الصقر اتمني ان اجد ما اريده الملف به كود استدعاء بيانات والكود يعمل بنسبة 100% ولكننى اريد تعديله ليتم ترك الصفوف الملونه باللون الاخضر اسفل كل صفحة حيث ان هذه الصفوف بها دالة جمع وتوقيع هذا ملف مرفق ولكم مني تحياتي استدعاء بيانات.rar

ماهو للاسف انا مش بفهم في الاكواد وخبرتي محدوده جدا جدا جدا مش بقدر افهم الكود غير مع التطبيق امامي وعموما هو كدا شغال معقول ومش مهم الرساله مدام يادي الغرض وشكرا ليك بجد وذادك الله علما

تمام اخي الفاضل مع انى كنت اريد ظهور رساله عند اختيار الاوبشن تفيد بانه لازم يتم تحديد احد ( CheckBox ) ولكن جزاك الله خيرا

استاذ عبد السلام الملف هو ال انا باعته لم يوجد به اي تعديل ولا اي شئ