عند كتابة كلمة ؟ يكتب التاريخ واليوم

[ابو نبأ]

السلام عليكم

 

سؤالي موضح بالملف المرفق 

وفقكم الله وسلمكم من كل مكروه

 

السلام عليكم

كتابة التاريخ واليوم عند كتابة كلمة.rar

[ياسر خليل أبو البراء]

أخي الحبيب أبو نبأ ...

أفضل أن يكون شرح المطلوب بالموضوع وليس داخل الملف المرفق ..

عموما جرب الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 10 Then
        If Target.Value = "صرفت" Then
            Target.Offset(, 1).Value = Date
            Target.Offset(, 2).Value = Format(Date, "ddd")
        End If
    End If
End Sub

كتابة التاريخ واليوم عند كتابة كلمة.rar

[سليم حاصبيا]

عسى ان ينال اعجابك

في حال ذلك اضغط اعجبني

ملاحظة :التاريخ لا يتغير اذا (لا يتحدث) اذا تم الكتابة مرة ثانية في الخلية Target  الا اذا تم مسحة اولاً

كتابة التاريخ واليوم عند كتابة كلمة salim.rar

[KHMB]

السلام عليكم ورحمة الله

تفضل اخي

عند كتابة كلمة صرفت في العمود J يتم كتابة التاريخ مقابلة في العمود K واليوم في العمود L تلقائيا

كتابة التاريخ واليوم عند كتابة كلمة صرفت.rar

[ابو نبأ]

السلام عليكم ورحمة الله

تفضل اخي

عند كتابة كلمة صرفت في العمود J يتم كتابة التاريخ مقابلة في العمود K واليوم في العمود L تلقائيا

بارك الله فيك وحفظكم

النتيجة التاريخ والشهر - اخي الحيب اريد التاريخ واليوم

اشكرك وبارك الله فيك

[ابو نبأ]

عسى ان ينال اعجابك

في حال ذلك اضغط اعجبني

ملاحظة :التاريخ لا يتغير اذا (لا يتحدث) اذا تم الكتابة مرة ثانية في الخلية Target  الا اذا تم مسحة اولاً

السلام عليكم

ممنون وشكراً ، فقط ملاحظة : عند كتابة كلمة صرفت التاريخ مضبوط ، بس اكو مشكلة في حقل اليوم

السلام عليكم

[ابو نبأ]

 

أخي الحبيب أبو نبأ ...

أفضل أن يكون شرح المطلوب بالموضوع وليس داخل الملف المرفق ..

عموما جرب الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 10 Then
        If Target.Value = "صرفت" Then
            Target.Offset(, 1).Value = Date
            Target.Offset(, 2).Value = Format(Date, "ddd")
        End If
    End If
End Sub

سلمكم الله وزادك علما وحفظكم الله من كل مكروه