Ali Mohamed Ali

الأمر في غاية البساطة ,عليك بتعديل تنسيق خلية ظهور التاريخ لكى يظهر اليوم كما تريد

جرب الشرح والخطوات التى داخل هذا الرابط http://www.torkymax.com/2010/10/run-time-error-13-type-mismatch.html

أحسنت جزاك الله كل خير

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

جزاك الله كل خير وزادك الله من فضله

بارك الله فيك

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

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

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

أحسنت أستاذ سليم معادلة ممتازة جعله الله في ميزان حسناتك

احسنت أستاذ منير كده تمام

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

تفضل تم عمل قائمة منسدلة بجميع الأسماء فى الخلية J2 ,فعند اختيار اى اسم سيظهر رقمه فى الخلية I2 ولكم منى جزيل الشكر 11.xlsm

تفضل 11.xlsm

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

أستاذى الكريم لو النسخة عندك 32 بت هذا البرنامج لا يعمل الا على 64 بت لو غير ذلك ستكون المشكلة عندك فالبرنامج يعمل تمام

وعليكم السلام-اهلا بك في المنتدى تم عمل كود في الملف رقم 1 لتظليل الصف الذى به الخلية النشطة بدون الغاء لون الخلية القديمة ان وجدت اما بالنسبة للملف الثانى تم انشاء صفحة أخرى بداخل الملف Report لعمل اللازم بالمعادلات Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False If Cells(1040000, 1) <> "" Then Rows(1040000).Copy Rows(Cells(1040000, 1).Value).PasteSpecial Paste:=xlPasteFormats End If Rows(Target.Row).Copy Rows(1040000).PasteSpecial Paste:=xlPasteFormats Cells(1040000, 1) = Target.Row With Target .EntireRow.Interior.ColorIndex = 8 End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub 1.xlsm 2.xlsx

يمكنك التغيير قى البرنامج كما تشاء بالنسبة للعملة

يمكنك استخدام هذه المعادلة فلو كان الرقم المطلوب معالجته وتقريبه مثلا في الخلية A2 , فتصبح المعادلة كالتالى =ROUNDUP(A2,2)

ديه كده مشكلتك انت فلا احد يستطيع مساعدتك بهذه الطريقة فلابد من رفع الملف

وعليكم السلام-اهلا بك في المنتدى -تفضل https://www.officena.net/ib/topic/49929-برنامج-لادارة-الأشتراكات-الشهرية-ضاحي-الغريب/page/5/?tab=comments#comment-457788

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

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

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

يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(99^99,--RIGHT(LEFT(B1,SEARCH(" عاماً",B1)-1),ROW($1:$15))),"") أو هذه =0+(SUBSTITUTE(RIGHT(SUBSTITUTE(LEFT(B1,FIND(" عاماً",B1)-1)," ",REPT(" ",99)),99),",","")) وهذه معادلة ثالثة أيضا يمكنك استخدامها =--TRIM(RIGHT(SUBSTITUTE(RIGHT(LEFT(B1,SEARCH(" عاماً",B1)-1),15)," ",REPT(" ",15)),15)) وهذه معادلة رابعة =LOOKUP(99^99,--("0"&MID(B1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},B1&"0123456789")),ROW($1:$10000)))) استخراج العمر 2.xlsx