شكر وثناء واستفسار

[سلطـان الاول]

بسم الله الرحمن الرحيم

اخوكم في الله  عضو جديد

استفاد من هذا المنتدى المميز والرائع باعضائه الكرام

اسال الله العظيم رب العرش العظيم ان يجزاكم خير الجزاء

وان يرزقكم من فضله وان يكثر من امثالكم المحبين لفعل الخير

ما شاء الله ولا قوة الا بالله
ارجوا ان تتقبلوا فائق احترامي وتقديري

 

 

 

ولدي استفسار بسيط موضح في الصورة المرفقة

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / سلطـان الاول

 

بارك الله فيك

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

حيث قمت بمحاولة فتح او تحميل الصورة المرفقة ولم يمكنني ذلك

ولا اعلم ان كان احد الاخوة قد رأي الصورة وامكنها تحميلها ام لا

قم بوضعها في المرفقات لسهولة تحميلها والاطلاع علي المشكلة

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

[سلطـان الاول]

السلام عليكم

الاخ الكريم / سلطـان الاول

 

بارك الله فيك

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

حيث قمت بمحاولة فتح او تحميل الصورة المرفقة ولم يمكنني ذلك

ولا اعلم ان كان احد الاخوة قد رأي الصورة وامكنها تحميلها ام لا

قم بوضعها في المرفقات لسهولة تحميلها والاطلاع علي المشكلة

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

اولا اشكر تفضلك بالرد السريع

جزاك الله خير بارك الله فيك 

وابشر لقد ارفقتها

[حمادة عمر]

السلام عليكم

الاخ الكريم / سلطـان الاول

بارك الله فيك

اخي الكريم ... علي حسب علمي لايمكن عمل ذلك بالمعادلات حيث ان المعادلة ستكون دائما مربوطة بتاريخ الحاسب

واليك الكود التالي ... يعمل علي اضافة تاريخ اليوم ... وعند تغغير تاريخ اليوم لا يتغير التاريخ في الخلية الموجود بها التاريخ

وذلك بناءا علي قيمة العمود C كما هو موضح بالطلب

شاهد المرفق ....

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
         Target(1, -1).ClearContents
    Else
         With Target(1, -1)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
End Sub

اضافة تاريخ في عمود بناءا علي عمود.rar

 

[سلطـان الاول]

السلام عليكم

الاخ الكريم / سلطـان الاول

بارك الله فيك

اخي الكريم ... علي حسب علمي لايمكن عمل ذلك بالمعادلات حيث ان المعادلة ستكون دائما مربوطة بتاريخ الحاسب

واليك الكود التالي ... يعمل علي اضافة تاريخ اليوم ... وعند تغغير تاريخ اليوم لا يتغير التاريخ في الخلية الموجود بها التاريخ

وذلك بناءا علي قيمة العمود C كما هو موضح بالطلب

شاهد المرفق ....

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
         Target(1, -1).ClearContents
    Else
         With Target(1, -1)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
End Sub

اضافة تاريخ في عمود بناءا علي عمود.rar

اشكر ايه الامير باخلاقك

وروحك ونفسك الزكية الطيبة

سوف يتم التجريب ولو ان الكود يعقد الملف بالامن

[سلطـان الاول]

السلام عليكم

الاخ الكريم / سلطـان الاول

بارك الله فيك

اخي الكريم ... علي حسب علمي لايمكن عمل ذلك بالمعادلات حيث ان المعادلة ستكون دائما مربوطة بتاريخ الحاسب

واليك الكود التالي ... يعمل علي اضافة تاريخ اليوم ... وعند تغغير تاريخ اليوم لا يتغير التاريخ في الخلية الموجود بها التاريخ

وذلك بناءا علي قيمة العمود C كما هو موضح بالطلب

شاهد المرفق ....

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
         Target(1, -1).ClearContents
    Else
         With Target(1, -1)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
End Sub

اضافة تاريخ في عمود بناءا علي عمود.rar

ما شاء الله تبارك الله 100%

تقبل فائق احترامي وقديري لشخصك اكريم

[حمادة عمر]

السلام عليكم

الاخ الكريم / سلطـان الاول

 

بارك الله فيك اخي الكريم

وجزيل شكري لكلماتك الاكثر من راائعة

وستسعد كثيرا ( ان شاء الله ) بالانضمام الي اسرة اوفيسنا

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

[ضاحي الغريب]

اخي حمادة عمر

دائما وابدا سباق لفعل الخيرات 

بارك الله فيك وزادك من علمه

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

 

بارك الله فيك

جزيل شكري وامتناني لمرورك وثناءك الكريم

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