كيف يمكن عند اضافة كلمة او رقم في خلية معينة يطبع في الخلية التى اخترتها تاريخ اليوم

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير

لي استفسار

 

كيف يمكن عند اضافة كلمة او رقم في خلية معينة يطبع في الخلية التى اخترتها تاريخ اليوم

 

 

تاريخ متغير.rar

[محمود_الشريف]

أخى فى الله

الأستاذ / محمد 

اليكم الملف بعد تنفيذ المطلوب

وتقبلوا منى وافر الاحترام والتقدير

 

تاريخ متغير1.rar

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

السلام عليكم

شكراً اخي الفاضل محمود

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

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Last As Integer
If Target.Address = Range("l3").Address Then
If Target.Value = "" Then GoTo 1
    Last = Range("u1").End(xlUp).Row + 1
    Cells(Last, "u") = Target.Value
    Target.ClearContents
    Target.Select
End If
1 End Sub

[محمود_الشريف]

شرح الكود المستخدم

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 Then
Cells(Target.Row, 6).Value = Date


End If
End Sub

If Target.Column = 12 Then

رقم 12 يعنى رقم العمود L

Cells(Target.Row, 6).Value = Date

رقم 6 يعنى رقم العمود F

فكلما كتبت أى شىء فى أى خليه بالعمود L

يتم تسجيل التاريخ تلقائيا بالعمود F فى نفس السطر

[محمود_الشريف]

أخى الكريم

لم أفهم المقصود بالكود الذى قمتم بذكره أعلاه

يرجى التوضيح أو رفع نموذج 

وتقبل منى وافر الاحترام والتقدير

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

نعم اخي لم يعمل مع الكود نظراً لوجود كود اخر في نفس الصفحة لمعادلة اخري فهو يحمل نفس العنوان

 

Private Sub Worksheet_Change(ByVal Target As Range

 

 

[محمود_الشريف]

ضع كلمة Selection قبل Change

بالكود الخاص بالتاريخ

أى يصبح الكود هكذا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 12 Then
Cells(Target.Row, 6).Value = Date


End If
End Sub

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

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

 

فسامحن لقد اثقلت عليك

[محمود_الشريف]

جرب هكذا الكود  

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Last As Integer
If Target.Address = Range("l3").Address Then
If Target.Value = "" Then GoTo 1
    Last = Range("u1").End(xlUp).Row + 1
    Cells(Last, "u") = Target.Value
    Target.ClearContents
    Target.Select
    Else
    If Target.Column = 12 Then
Cells(Target.Row, 6).Value = Date
End If

End If


1 End Sub

تاريخ متغير11.rar

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

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

 شكرا لك اخي محمود وبارك الله فيك

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

 

الفورم موجود في الملف المرفق

 

 

تاريخ متغير14.rar

 

وسامحنا علي تعبك معاي

تم تعديل يوليو 7, 2014 بواسطه محمد الخازمي

[محمود_الشريف]

أخى فى الله

لا عليك .. 

جرب المرفق التالى

وتقبل منى وافر الاحترام والتقدير

تاريخ متغير114.rar

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

السلام عليكم  اخي محمود

المشكلة عند الادخال عن طريق الفورم في خانة ادخال

 

وشكراَ

[عيسى العامري]

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

تاريخ متغير115.rar

تم تعديل يوليو 8, 2014 بواسطه عيسى العامري

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

الاخ عيسي العامري

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

 المشكلة عند الادخال عن طريق الفورم في خانة ادخال

ثم حفظ سجل تظهر رسالة في الصورة

 

ارجو المساعدة وشكراً

 

 

[عيسى العامري]

يمكنك الاستعانة بالاصدار الرابع من برنامج الاستاذ عبدالله باقشير وهو بهذا الرابط:
http://www.officena.net/ib/index.php?showtopic=52482