طلب ادراج تاريخ

[naguib_3778]

// ارغب فى زر (او اى حاجه )عند الضغط علية يقوم بادراج تاريخ اليوم فى عمود التاريخ - وذلك فى حاله عدم تحديد الخلية.

(وعند الضغط عليه ثانيا يضع تاريخ اليوم مرة اخرى فى الخانه التالية ................. وهكذا )

2// اظهار اسم الشهر فى عمود الشهر

(شرط ان يكتب اسم الشهر وليس ان يكون مجرد تنسيقا )تاريخ.zipتاريخ.zip

[رجب جاويش]

تفضل

تاريخ1.rar

[جمال عبد السميع]

ماشاء الله أستاذي الرائع منتهي الروعة والجمال والبساطة بارك الله فيك

[رجب جاويش]

شكرا جزيلا أخى الحبيب محمود

جزاك الله كل خير على هذا المرور العطر

[naguib_3778]

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

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

شكرا مرة اخرى

[رجب جاويش]

لا شكر على واجب أخى الفاضل

[أبو حنــــين]

السلام عليكم

بعد إذن أخي الحبيب رجب جاويش

و إثراءا للفكرة

هذه طريقة أخرى لادراج التاريخ

تاريخ2.rar

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

الأخ الغالي رجب جاويش

الكود :

Dim LR As Integer

LR = [c1000].End(xlUp).Row + 1

Cells(LR, 3) = Date

Cells(LR, 2) = Month(Cells(LR, 3))

Cells(LR, 2) = Format(Date, "mmm")

ألا ترى أنه يمكن الاستغناء عن هذا السطر

Cells(LR, 2) = Month(Cells(LR, 3))

تم تعديل يونيو 9, 2012 بواسطه YasserKhalil

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل رجب جاويش حفظك الله

أنت عنوان الاحتراف ونبل الأخلاق.

اللهم نور بصره وبصيرته ويسر له سبل الخير كلها.

الدعاء موصول لأستاذي وسيدي أبا حنين وسيدي وأستاذي محمود.

أبو أنس

[أبو أنس حاجب]

عذراً أستاذي وسيدي الفاضل ياسر خليل حفظك الله

ولك مثل هذا الدعاء وزيادة أسال الله العظيم أن تستظل بعرشه يوم القيامه.

أبو أنس

[رجب جاويش]

أخى الفاضل / أبو حنين

تسلم ايديك وتسلم أفكارك

أخى الفاضل / ياسر خليل

معك كل الحق أخى الحبيب

أخى الفاضل / أبو أنس حاجب

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

وجعل الله لك من دعائك لى بمثلة وأكثر