كيفية كتابة التاريخ في خلية تلقائيا بمجرد الكتابة في خلية أخرى

[obad65]

آمل من الجميع مساعدتي في

كيفية كتابة التاريخ في خلية تلقائيا بمجرد الكتابة في خلية أخرى

مع خالص شكري وتقديري

[طارق محمود]

السلام عليكم

تفضل الملف المرفق

الخلية A1 تحتوي علي تاريخ اليوم للجهاز

بمجرد كتابة أي بيان في أية خلية من خلايا العمود B سينسخ التاريخ (قيمة الخلية A1 ) في الخلية المجاورة (العمود C)

جرب وأخبرني

ssss.rar

[ابو اسامة العينبوسي]

السلام عليكم

ممتاز اخى طارق

ممكن بدون ربطه مع الخلية A1

CL = Target.Column
RW = Target.Row
If CL = 2 Then
    If Target > "" Then Cells(RW, CL + 1).Value = Now()
End If

[طارق محمود]

جزاك الله خيرا أخي أبو أسامة

للعلم أنا فقط أحاول أتعلم منكم

ولاأعلم كثيرا من أوامر وصيغ الفيجيوال بيسيك

[عاشق ترابها]

السلام عليكم

ممتاز اخى طارق

ممكن بدون ربطه مع الخلية A1

CL = Target.Column
RW = Target.Row
If CL = 2 Then
    If Target > "" Then Cells(RW, CL + 1).Value = Now()
End If

هل هذا الكود يكتب التاريخ بالهجري وشاكر لك

[طارق محمود]

السلام عليكم

موضوع الهجري والميلادي يرجع لتنسيق الخلايا

الكود ليس له علاقة بهذا

ودمتم بود

أنظر الصورة

[ابو اسامة العينبوسي]

السلام عليكم

اخى طارق ممكن هكذا

Private Sub Worksheet_Change(ByVal Target As Range)
CL = Target.Column
RW = Target.Row
If CL = 2 Then
    If Target > "" Then
    Cells(RW, CL + 1).Value = Now()
    Cells(RW, CL + 1).NumberFormat = "B2m/d/yyyy"
End If
End If
End Sub

[محمدويس]

ممممممممممممشششششششششششششششششششششششششششششششششششششششششششششششششششكوررر يا معلم يسلمو ايديك يارب

[obad65]

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

[dayslife]

الف شكر للجميع على هذه المعلومات الرائعة

[طارق محمود]

السلام عليكم

جزاك الله خيرا أخي أبو أسامة

وزادك من علمه العظيم