مساعدة في التاريخ التلقائي في الاكسل

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

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

 

 

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

تاريخ تلقائي.zip

تم تعديل مارس 9, 2015 بواسطه ابا اسماعيل

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

السلام عليكم

 

اشكرك استاذ سليم حاصبيا علي الاهتمام بالموضوع

 

ارجو لو سمحت تنفذ الاامر في هد الملف

لقد حاولت ولم انجح في دلك

 

جعل الله ما تفعل في ميزان حسناتك

تاريخ تلقائي.zip

تم تعديل مارس 9, 2015 بواسطه ابا اسماعيل

[سليم حاصبيا]

لك ما تريد اخي ابا اسماعيل

تاريخ تلقائي.rar

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

السلام عليكم

 

اشكرك استاذ سليم حاصبيا علي الاهتمام بالموضوع

 

ارجو لو سمحت تنفذ الاامر في هد الملف

لقد حاولت ولم انجح في دلك

[سليم حاصبيا]

 تم معالجة الأمر

تاريخ تلقائي معدل.rar

[أبو إيمان]

بعد إذن الأستاذ سليم  وإثراءا لموضوع

http://www.officena.net/ib/index.php?showtopic=53607&hl=

 

المشاركة رقم 3

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

اريد عمل كود لمسح الورقة دونا مسح اي الدلة

[سليم حاصبيا]

اخي ابا اسماعيل

اليك هذا الملف الذي يمسح كل شيئ من الورقة ويحافظ على المعادلات

keep formulas.rar

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

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

اريد ان يتم يمسح  في هد الملف من صف 10 الى صف 54

تاريخ تلقائي معدل.zip

[سليم حاصبيا]

اكتب هذا الكود:

Sub Clear_not_Formulas1()
    Dim wks As Worksheet
Set wks = ActiveSheet
  
        wks.Range("a1:z54").SpecialCells _
        (xlCellTypeConstants, 23).ClearContents
        
 Set wks = Nothing
End Sub

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

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

شكرا جزيلا أ/  على اهتمامك بالموضوع

وجعلة الله فى ميزان حسناتك

 اخي

 

لو سمحت تنفذ الاامر في هد الملف

لم افلح انا في دليك

 

اريد المسح من صف 10 لي انا الكود يمسح الورقة كميلة

2015..zip

تم تعديل مارس 10, 2015 بواسطه ابا اسماعيل

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

 المعدر تماالغلط في الملف مشاركة 11 اريد الكود يمسح من صف 10 لي  54  في هدالملف المطلوب

تاريخ تلقائي معدل.zip

تم تعديل مارس 10, 2015 بواسطه ابا اسماعيل

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

الأخ الكريم أبا اسماعيل

الموضوع بسيط

بعد إذن أخي وحبيبي في الله سليم

Sub Clear_not_Formulas()
    Dim wks As Worksheet
    Set wks = ActiveSheet
    
    wks.Rows("10:54").SpecialCells(xlCellTypeConstants, 23).ClearContents
    Set wks = Nothing
End Sub

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

السلام عليكم ورحمة الله وبركاته
شكرا جزيلا  اخي ياسرعلى تعونكم  اهتمامك بالموضوع