مشكلة في ادراج التاريخ التلقائي

[معين (أبو دواس)]

السلام عليكم اخباركم عساكم طيبين

 

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

نفترض ان لدي عمودين A  و B

 

العمود A فيها الاسماء والعمود الاخر فيه التاريخ التلقائي

بحيث لو كتبت اي شي في العمود A يظهر تاريخ اليوم بعمود B

 

واذا لم اكتب شي في العمود A  لا يظهر التاريخ في العمود B

 

ولقيت الاجابة من ام عبدالله الله يعطيه الصحة والعافية وكان الجواب كالتالي

 

كتابة الامر في العمود التاريخ وهو وغيرت بعض الشي في الكود من today الى Now

 

=IF(A2935<>"";NOW();"")

 

وتم كتابة التاريخ لخمسة صفوف ولكن في اليوم التالي تغير التاريخ بالكامل الي التاريخ اليوم لا ادري ماهو السبب الرجاء افادتي وشكرا

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

استاذ معين

اليك ما طلبت (التاريخ لا يتغيّر)

ليعمل الكود يجب ان تملأ كل الخانات المطلوبة

و تأكد قبل اقفال الملف

ان تكون اخر خلية في اخر سطر عندك مشغولة بأي شيء حتى ولو نقطة حتى لا يتغير التاريخ في اليوم التالي

const.date.rar

[حمادة عمر]

ولاثراء الموضوع اخي الكريم

جرب الكود التالي ...

يقوم باضافة التاريخ في العمود B اذا كان الخلية في العمود A ليست فارغة

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then
         Cells(Target.Row, 2) = Now()
     End If
End If
End Sub





شاهد المرفق 2003

 

Book1-sama.rar

[محمد ابو البـراء]

استاذى واخي الحبيب //  حمادة عمر

بارك الله فيك

بصراحة كود مميز جدا

ولي سؤال أخي الحبيب؟!

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

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

استاذ محمد

في العنوان التالي تجد الاجابة على سؤالك(مواصفات الملف بين يديك)

http://www.officena.net/ib/index.php?showtopic=53059

[معين (أبو دواس)]

استاذ معين

اليك ما طلبت (التاريخ لا يتغيّر)

ليعمل الكود يجب ان تملأ كل الخانات المطلوبة

و تأكد قبل اقفال الملف

ان تكون اخر خلية في اخر سطر عندك مشغولة بأي شيء حتى ولو نقطة حتى لا يتغير التاريخ في اليوم التالي

 

يعطيك الف عافية اخوي سليم ومشكور على جهودك...

ولاثراء الموضوع اخي الكريم

جرب الكود التالي ...

يقوم باضافة التاريخ في العمود B اذا كان الخلية في العمود A ليست فارغة

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then
         Cells(Target.Row, 2) = Now()
     End If
End If
End Sub





شاهد المرفق 2003

 

Book1-sama.rar

يعطيك الف عافية اخوي حمادة عمر وومشكور على مجهودك

______________________________________|

 

الحل ممتاز جدا لكلكما وبيض الله وجيهكم ولكن ياشباب عندما اقوم بمسح شي من العمود A  لا ينمسح شي من العمود B واللي هو عمود التاريخ المرتبط مع العمود A  ...

[أبو حنــــين]

السلام عليكم

يصبح الكود كالتالي في حالة مسح قيمة من العمود A

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then
         Cells(Target.Row, 2) = Now()
         Else
     End If
End If
If Target = "" Then Target.Offset(0, 1) = ""
End Sub

[ahmad zeiad]

كيف بدي اعمل كووود  متل هاااااد ؟؟؟؟؟؟؟؟؟؟؟؟

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

اخي احمد 

ادخل على الكود وانسخه

هذا كل شيء

[معين (أبو دواس)]

 

السلام عليكم

يصبح الكود كالتالي في حالة مسح قيمة من العمود A

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then
         Cells(Target.Row, 2) = Now()
         Else
     End If
End If
If Target = "" Then Target.Offset(0, 1) = ""
End Sub

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

وكذالك اذا جيت احذف صف كامل يطلع لي مسج error  

كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج

تم تعديل أبريل 14, 2014 بواسطه moyen77

[AOOFA]

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

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

تم تعديل أبريل 15, 2014 بواسطه AOOFA

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

يمكنك فعل ذلك  كما يلي

اضغط باستمرار على    Ctrl     و بعدها مباشرة على حرف  ك  باللغة العربية

 

و لادراج الوقت 

اضغط باستمرار على     Shift +Ctrl     و بعدها مباشرة على حرف  ك  باللغة العربية

[معين (أبو دواس)]

الكود جدا ممتاز وكل اجابة الاعضاء جدا مميزة ومفيدة

 

 

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

[عبدالله باقشير]

 

كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج

 

 

 

ضع هذا السطر بداية الكود

On Error Resume Next

[معين (أبو دواس)]

 

 

كيف اجعل الكود يعالج اخطاءة او يخفيها بدون مايطلع لي مسج

 

 

 

ضع هذا السطر بداية الكود

On Error Resume Next

يعطيك الف عافية على الاضافة الجميلة ياعبدالله باقشير .،،، نعم الكود صحيح جدا ولكن صادفتني مشكلة اخرى وهي:

عندنا كود جاهز للتاريخ التلقائي في حالة كتبنا شي في العمود A  ينكتب التاريخ تلقائيا في العمود B وحلينا جميع المشاكل

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

ولكن المشكلة اذا جيت تكتب مرة اخرى في نفس الخلية او الخلية التي تاليها في العمود A  لا يظهر التاريخ في العمود B .....  

 

ماهو الحل ...؟؟؟؟؟؟