تكرار كود فيجوال الى مالانهاية (كامل العمود)؟

[الخليفي]

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

 

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

 

قمت بعمل فورميلا تقوم بإضافة التاريخ التلقائي في الخلية اف 1 وذألك عند الكتابة في الخلية اتش 1

=IF(H3="","",(TODAY()))

ولكن المشكلة انه في اليوم التالي يتغير التاريخ تلقائيا ولا يبقى على حالة, أي انه يحدث نفسة تلقائيا. ولذألك قمت بوضع الكود فيجوال بيسك في الأسفل وذألك لوقف التحديث التلقائي للتاريخ أي انه يسمح للتاريخ بالتحديث مرة فقط وذألك حسب الشرط وهو الكتابة في الخلية اتش 1.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [H1]) Is Nothing Then
[F1] = Date
End If

End Sub

 

المطلوب: هو اني اريد الكود ان ينطبق على كامل العمود اتش 1 واف 1 وليس فقط لصف واحد.

 

 

شكرا جزيلا

Test 2.rar

[ياسر خليل أبو البراء]

اخي الكريم

يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل

إليك الكود التالي يوضع في حدث ورقة العمل عله يفي بالغرض

توضع الأكواد بين أقواس الكود وليس كما فعلت في مشاركتك الأولى

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Columns("H:H")) Is Nothing Then
        Target.Offset(, -2).Value = Date
        If IsEmpty(Target) Then Target.Offset(, -2).Value = ""
    End If
End Sub

تقبل تحياتي

 

[الخليفي]

شكرا جزيلا اخي الكريم وملاحظاتك على العين والراس

[ياسر خليل أبو البراء]

أخي العزيز

أفضل من الشكر قولك "جزاكم الله خيراً"

وفي انتظار تغيير اسم الظهور وفي انتظار موضوعات جديدة لك واستفسارات جديدة .. لا تتوقف فأنت في أوفيسنا منارة المنتديات في الوطن العربي

[الخليفي]

جزاك الله خيراً

بالنسبة لاسم الدخول لم اعرف من اين يتم تغييرة ولا زلت أحاول

[ياسر خليل أبو البراء]

أخي الكريم قم بالإطلاع على الرابط التالي التوجيه العاشر ...أضفت صور توضيحية

 

[الخليفي]

جزاك الله خيراً على صبرك وشرحك الميسر 

هناك استفسار بسيط

عند وضع الماوس داخل أي خلية في نطاق العمود اتش التاريخ يتحدث تلقائيا

هل استطيع إيقاف التحديث لتاريخ ولا يُحدث الا في حالت انه طراء تغيير فعلي في الخلية اتش (حذف نص او إضافة).  ويجب ان لا يتم التحديث في حالة نسخ نص او كلمة من داخل الخلية.

 

جزاك الله خيراً

[ياسر خليل أبو البراء]

هناك موضوع في المنتدى قم بالبحث عنه يمكن أن يساهم في حل المشكلة وهو منع خاصية النسخ واللصق .. ابحث في المنتدى عن الموضوع لعله يفيدك ..

 

[الخليفي]

بارك الله فيك اخي ياسر خليل أبو البراء

ولكن المطلوب ليس منع النسخ واللصق ولكن منع تحديث الخلية التي تحتوي على التاريخ التلقائي في حالة النسخ  من الخلية (H) . والسماح لها بالتحديث في حالة تم اظافة نص وا حذف حرف من محتوى الخلية (H)