كيف ربط الخلية بالتاريخ اليومي

[عيسى العامري]

السلام عليكم يا اخوان عندي جدول اكتب فية اسماء يومية وربطت التاريخ بمعادلة بخلية الاسماء يعني اذا كانت اكبر من صفر يعطيني تاريخ اليوم 
ولكن صادفتني مشكلة عويصة وهو ان التاريخ يتحدث يوميا في دالة TODAY فعجزت ان اجد حل لتثبيت التواريخ السابقة 
اتمنى من لدية فكرة او يعرف لها ان يفيدنا لانني فكرت الين صدع راسي وما خرجت بنتيجة ........وشكرا
الملف موجود في المرفقات .

عمولة التحويلات المالية.zip

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

اخي الكريم

بالمرفقات

جرب الملف لتثبيت تاريخ اليوم

عمولة التحويلات الماليةB.rar

[عيسى العامري]

اخي الكريم لم يتغير شي شفت انها اضيفت خاصية الماكرو هل ممكن توضيح كيف سويت .........وشكرا

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

أخي الكريم 

اذا كنت تريد تثبيت التاريخ بطريقة سهلة 

عند أدخال تاريخ اليوم قم بالضغط 

Ctrl + ك
بالترتيب
كنترول قم مفتاح (ك) من لوحة المفاتيح سوف يقوم بادراج تاريخ اليوم 

أو عن طريق الكود السابق لتثبيت تاريخ ادخال اليوم باستخدام

=Today()

ر

[عيسى العامري]

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

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

انا سوف احاول وان شاء الله نصل لطريقة بالكود

[ابو القبطان]

اخي 

قد تجد اجابة سؤالك في الرابط المرفق

http://www.officena.net/ib/index.php?showtopic=44406&hl=%2B%D8%AA%D8%BA%D9%8A%D8%B1+%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE#entry258729

 

بالتوفيق إن شاء الله

[حمادة عمر]

السلام عليكم

الاخ الكريم / essa_alamre

بارك الله فيك

بعد اذن الاخ الحبيب / ضاحي غريب .... جزاه الله خيرا

وبعد اذن اخي الحبيب / ابو القبطان ... حسن علي ... جزاه الله خيرا

ولاثراء الموضوع ... جرب استخدام الكود التالي ... قم بالتسجيل في العمود D وشاهد النتيجة

ثم قم بتغيير التاريخ وستلاحظ الفرق ... ارجو ان يكون هذا هو طلبك

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("d2:d20000")) 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

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

 

عمولة التحويلات المالية1.rar

 

[عيسى العامري]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / essa_alamre

 

بارك الله فيك

وجزيل شكري علي كلماتك الجميله

والاهم انك توصلت لما تريد

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

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

اخي الحبيب // حمادة عمر

الله لا يحرمنا من روائعك

اخي الخبيب ابوالقبطان

بارك الله فيك

[حمادة عمر]

السلام عليكم

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

 

بارك الله فيك

الشكر في البداية لك انت

فأنت دائما سباق للخير ومساعدة الجميع

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

[عيسى العامري]

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

 

عمولة التحويلات المالية الرئيسية.zip

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

بعد اذن اخي الحبيب / حمادة عمر        (روح المنتدي)

تم نقل كود الأستاذ // حمادة  عمر لملفك الجديد (اليومية الرئيسية) 

عمولة التحويلات المالية الرئيسية.zip

[عيسى العامري]

كلكم فيكم الخير الله يوفقكم جميعا 

[حمادة عمر]

بارك الله فيك

اخي الحبيب / ابو عمرو

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / asdawy

بارك الله فيك

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

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

 

شاهد المشاركة رقم 14# للاخ الحبيب / ضاحي الغريب .. جزاه الله خيرا

وستجد الملف في المرفقات

حاول تغيير المتصفح لديك !!

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