أبو صاصا

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

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

الاخت الفاضلة ام عبد الله جزاك الله خير جزاء وشكرا علي استجابة حضرتك نعم هي المعادلة ولكن لو لاحظتي حضرتك ان كل مرة يتغير التاريخ السابق فيصبح كالتاريخ الحالي اي ان التاريخ متغير وغير ثابت لو امكنك عمل ذلك (تثبت التاريخ) اكون ممنون لحضرتك جدا وان كان هذا لايقلل من مجهود حضرتك الرائع اخيك في الله فتحي

اريد من الاساتذة الفضلاءدالة(معادلة) لادراج التاريخ تلقائي في خلية ولتكون d وذلك اذا كتبت انا في خلية b او خلبة c (معادلة وليس كود لان الكود بتعارض مع اكواد اخري عندي) وذلك للاهمية وارجو ان يكون ذلك في اسرع وقت ان امكن ذلك والسرعة مصدرها ثقتي في امكانيات الاساتذة علي المنتدي وشكرا لكم سعة الصدر والحلم والصبر اخيكم فتحي

رجاءا تحويل هذا الكود لمعادلة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("c7:c10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 4) .Value = Date .EntireColumn.AutoFit End With End If End If If Not Intersect(Target, Range("d:d")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 6) = Date End If End If End Sub

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

اريد وضع هذالمعادلة في الملف المرفق في ورقة جديد في عمود المتبقي دون ان يؤثر ذلك علي عمل الاكواد داخال الاعمدة الاخري خاصة عمود التاريخ او تويله الي كود يؤدي المطلوب =IF(B7="";"";SUM(C7;E6)-D7)=IF(B7="";"";SUM(C7;E6)-D7) اوتحويل هذا الكود لمعادلة حتي يتم حل المشكلة ال من اسبوع ولم تحل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("c7:c10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 4) .Value = Date .EntireColumn.AutoFit End With End If End If If Not Intersect(Target, Range("d:d")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 6) = Date End If End If End Sub الاساتذة الافاضل ارجو المساعدة ضروري واشكر لكم سعة صدركم وصبركم عليي الدائنون.rar

اريد وضع هذالمعادلة في الملف المرفق في ورقة جديد في عمود المتبقي دون ان يؤثر ذلك علي عمل الاكواد داخال الاعمدة الاخري خاصة عمود التاريخ او تويله الي كود يؤدي المطلوب =IF(B7="";"";SUM(C7;E6)-D7)=IF(B7="";"";SUM(C7;E6)-D7) واشكر لكم سعة صدركم وصبركم عليي الدائنون.rar

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Or Target.Column = 4 And Target <> "" Then _ Cells(Target.Row, 2) = Application.WorksheetFunction.Subtotal(3, Range("$B:$B")) End Sub س.rar

ارجو من حضراتكم تحويل المعادلة التالية الي كود =IF(جديد!C7="";"";SUBTOTAL(3;جديد!$C$7:$C7)) بحيث لوكتبت ف c اوd يكتب الترقيم تلقائي في الخلية b ولكم مني وافر الاحترام وعظيم الشكر

شكرا جزيلا اخي الفاضل وجزاك الله خير جزاء

الاستاذ احمد فؤاد هذا هو الملف ال حضرتك طلبته مطلوف فيه كتابة التالريخ في b سواء كتبت في a او c اي منهما سواء وفقت الكودين يعملو مع بعضهم او كود تاني زي ماتحب وعايز ده مع الترقيم التلقائي واسف علي الاطاله ولك ولاساتذة المنتدي الافاضل عظيم شكري Book1.rar Book1.rar Book1.rar

مطلوب فيه ان التاريخ يتكتب في b سواءaاوc وعايز انفذ ده في الترقيم للتلقائي Book1.rar

عند اضافة اكثر من كود يعطي لنا رساله ان هناك تشابه في عنوان الكود اي ان الاسم مكرر فكيف يمكن التغلب علي هذه المشكلة ويتم اضافة الكود الثاني وتمكينه من اداء مهمته وكم مني جزيل الشكر

عايز اعرف ازاي اعمل حساب عميل مكون من الخانات مسلسل/ المبلغ /مدفوع /متبقي/ التاريخ كل بند في عمود بالاكواد (كود يعمل ده )وعند اضافة عميل جديد يضفيف النموزج ده من غير ما اكون عامل نموزج عندي في الورقة

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