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

[abouelhassan]

الاخوة الاساتذة الافاضل

احب ان اتقدم بالشكر للاستاذ ابو احمد المحترم لتعبه الشديد معى

برجاء التكرم

اريد ان يتم كتابة التاريخ بشكل تلقائيا 20/11/2011 بالون الاحمر فى العمودA بمجرد ان يتم الكتابة فى العمود Bولايتغير ويظل ثابت حتى ان تم حذف البيان فى العمود B وكذلك ان لايتكرر الرقم فى العمود C وذلك فى كل اوراق العمل مهما كان عددها بمعنى كل شيت اقوم بأضافته فى ورقة العمل تتم هذه العملية

اخيكم باحترام شديد

التاريخ تلقائيا وعدم التكرار.rar

[abouelhassan]

الاخوة الافاضل للرد

اخيكم

[عبدالله المجرب]

اخي ابو حسن

هل تقصد تاريخ اليوم ام تاريخ ثابت

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

والله اعلم

[abouelhassan]

نعم اخى اشكرك

تاريخ اليوم لكل اوراق العمل حتى لو اضفت اوراق جديدة

ولايتغير بتغير التاريخ

بارك الله فيك

[عبدالله المجرب]

اخي ابو الحسن

ضع هذا الكود في حدث اي ورقة تريد ان يتم تنفيذ المطلوب فيها

Private Sub Worksheet_Change(ByVal Target As Range)

LR = Range("B" & Rows.Count).End(xlUp).Row

If Target.Column <> 2 Then Exit Sub

If Target.Row > LR Then Exit Sub

For i = 2 To LR

If Cells(i, 2).Value <> "" Then

Cells(i, 1).Value = Date

End If

Next i

End Sub

وان شاء الله يفي بالغرض

[ياسر الحافظ]

الاخوة الاساتذة الافاضل

احب ان اتقدم بالشكر للاستاذ ابو احمد المحترم لتعبه الشديد معى

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

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

وجزاك الله كل الخير اخي ابو احمد

ابو الحارث

[abouelhassan]

الله يبارك لك اخى على كل ما تفعله جعله الله بميزان حسناتك

اخيك بمنتهى الاحترام والتقدير

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ عبدالله المجرب

وهذا كود اخر يقوم بنفس العمل

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

	    If Not Intersect(Target, Range("b2:b100")) Is Nothing Then

		    With Target(1, 0)

			    .NumberFormat = "[$-1010000]yyyy/mm/dd;@"

			    .Value = Date

			    .EntireColumn.AutoFit

		    End With

	    End If

End Sub