طلب تعديل بسيط علي كود ( ادخال التاريخ في خليه بناء علي قيمة خليه اخري )

[محمد_عبد_الوهاب]

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

كل عام وانتم بخير .. رمضان كريم .. تقبل الله صيامكم

احتاج للتعديل في الكود التالي ... حيث أنني اقوم بالعمل عليه كالتالي اذا قمت بالادخال في خلايا

العمود A يقوم الكود بدوره في وضع تاريخ اليوم في العمود B

والتعديل المطلوب عليه

** انه ان قمت بالادخال مثلاً في A1 يكتب التاريخ في الخليه B1

واذا قمت بحذف القيمة او الكلمة الموجودة في A1 لايتم حذف التاريخ

فاحتاج الي تعديل الكود ليكون ان كان بخلايا العمود A قيم او كلمات

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

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

ولايتم حماية الخلايا الفارغة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

	 If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then

	  VBA.Calendar = vbCalGreg

	   With Target(1, 2)

			   .Value = Date

			   .EntireColumn.AutoFit

		   End With

	   End If

End Sub

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

السلام عليكم

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

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then

    VBA.Calendar = vbCalGreg

    If IsEmpty(Target) Then

        Target(1, 2).ClearContents

    Else

        With Target(1, 2)

            .Value = Date

            .EntireColumn.AutoFit

        End With

    End If

End If

End Sub

[يوسف عطا]

أستاذنا الغالى خبور خير

هل ممكن تعديل بسيط كالتالى

جميع الأعمدة من A إلى CZ عدد ( 104) عمود إذا وضعت بها بيانات يتم وضع الوقت والتاريخ فى الأعمدة من DA إلى GZ عدد ( 104) عمود التالية

ولنقل أن هذا الإجراء ينفذ فى الصفوف من 1 إلى 5000

على أن يكون هناك فى الكود خياران الأول يحافظ على بقاء الأوقات والتواريخ فى الخلايا الهدف حتى لو حذفنا البيانات التى كتبت فى خلايا الأعمدة الـ 104 الأولى

والثانى يحذف الأوقات التواريخ لو حذفنا البيانات فى خلايا الأعمدة الـ 104 الأولى

الف شكر يا الغالى

وعشمى ألا أكون قد أثقلت عليك

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

أستاذنا الغالى خبور خير

هل ممكن تعديل بسيط كالتالى

جميع الأعمدة من A إلى CZ عدد ( 104) عمود إذا وضعت بها بيانات يتم وضع الوقت والتاريخ فى الأعمدة من DA إلى GZ عدد ( 104) عمود التالية

ولنقل أن هذا الإجراء ينفذ فى الصفوف من 1 إلى 5000

على أن يكون هناك فى الكود خياران الأول يحافظ على بقاء الأوقات والتواريخ فى الخلايا الهدف حتى لو حذفنا البيانات التى كتبت فى خلايا الأعمدة الـ 104 الأولى

والثانى يحذف الأوقات التواريخ لو حذفنا البيانات فى خلايا الأعمدة الـ 104 الأولى

الف شكر يا الغالى

وعشمى ألا أكون قد أثقلت عليك

تفضل جرب الكود التالي:

' عدد الصفوف التي تريدها

Private Const ContRow As Long = 20

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("a2").Resize(ContRow, 104)) Is Nothing Then

If IsEmpty(Target) Then

If Me.CheckBox1.Value Then Target.Offset(0, 104).ClearContents

Else

With Target.Offset(0, 104)

.Value = Date

.EntireColumn.AutoFit

End With

End If

End If

End Sub

المرفق 2003

test.rar

[يوسف عطا]

الله ينور يا استاذى الغالى

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

[طائع]

اخوانى الأعزاء اريد عدم اظهار هذه الرسالة

انظر المرفق

عدم اظهار هذه الرسالة.rar

[محمد_عبد_الوهاب]

الاستاذ القدير العلامة / عبد الله باقشير

السلام عليكم

كم انت كبير جداً . . استاذي الفاضل

الف الف الف مليون شكر ... وجزاك الله عنا خيراً وجعله في ميزان حسناتك يوم القيامة

اما بخصوص طلب الاخ ابوادهم فالحل بالمرفق

تفضل اخيBook77.rar