Ali Mohamed Ali

تفضل لك ما طلبت تنسيق شرطى بشرط.xlsx

بارك الله فيك أستاذ سليم كود ممتاز جعله الله في ميزان حسناتك وبعد اذن حضرتك طبعا -ولإثراء الموضوع هذا حل أخر Masry.xlsm

احسنت أستاذ عبد اللطيف بارك الله فيك

السلام عليكم طالما انك لم تقم برفع ملف فيمكنك رؤية هذا الرابط ففيه ما تطلب https://www.officena.net/ib/topic/91345-سؤال-بخصوص-النسخ-واللصق-؟/

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

احسنت أستاذ عبد اللطيف بارك الله فيك

بارك الله فيك أستاذ أحمد ولكن اعتقد ان تكون المعادلة في الخلية bb7 هكذا =IF(AT7="Turkish Lira","Peaches",IF(AT7="USD DOLLARS","Cents"))

وعليكم السلام-تفضل ترحيل pdf.xlsm

بارك الله فيكم جميعا كلها حلول ممتازة

وعليكم السلام -بعد اذن الأستاذ مصطفى ولإثراء الموضوع 1ملف العملاء.xlsx

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

وعليكم السلام تفضل اخى الكريم عليك مشاهدة هذه الصورة لمعرفة سبب توقف المعادلة عن العمل Copy of Bank Statement _ 2019.xlsm

هذا هو الكود المستخدم فى حدث الصفحة وموجود بالفعل داخل الملف Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then VBA.Calendar = vbCalGreg If Len(Target.Cells(1).Value2) <> 0 Then Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = Date Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = Now Else Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = vbNullString Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = vbNullString End If End If If Not Application.Intersect(Target, Range("H2:H1000")) Is Nothing Then VBA.Calendar = vbCalGreg If Len(Target.Cells(1).Value2) <> 0 Then Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = Date Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = Now Else Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = vbNullString Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = vbNullString End If End If End Sub

أظن أستاذ Cobone انك لم ترى الملف الأخير المرسل لك !!!!!!!

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

تفضل جدول سير قضايا.xlsm

احسنت أستاذ سليم كود ممتاز بارك الله فيك

احسنت استاذنا الكبير بارك الله فيك

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

او يمكنك تجربة هذا الملف أيضا بريك.xlsx

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

أحسنت أستاذ سليم كود رائع جعله الله في ميزان حسناتك أخى الكريم dodo لا يمكنك التعلم الا اذا استجبت لكل هذه النصائح من اساتذتنا الكبار أمثال الأستاذ الكبير سليم حاصبيا له منا كل المحبة والإحترام

وعليكم السلام وكل عام وانتم بخير -نورت المنتدى اهلا بك جرب هذا تم ضبط وتعديل الملف , كل ما عليك اختيار كود الموظف من القائمة المنسدلة الموجودة بعمود كود الموظف ثم بعد ذلك كتابة الحضور والإنصراف وسيب الباقى على الإكسيل Attendance.xlsx

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

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