Ali Mohamed Ali

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

وعليكم السلام -اهلا بك اخ كريم فى المنتدى عليك أولا قبل طرح سؤالك ان تستخدم خاصية البحث فى المنتدى -فربما يكون سؤالك قد عرض مسبقا فإليك هذا الرابط يمكنك تتبعه بارك الله فيك :

تفضل اخى الكريم إضافة وبحث.xlsm

وعليكم السلام اخى الكريم-واهلا بك فى المنتدى الكريم حاول اولا بنفسك تصميم الفورم الذى تريده وان شاء الله ستلقى المساعدة من الأساتذة والخبراء

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

تمام لا يوجد سوى هذا الصف ولكن هذه ليست بيانات ماذا تريد بالتفصيل من هذا الصف واين البيانات المدخلة ؟

وعليكم السلام اخى الكريم ان لا أجد اى بيانات فى ملفك

وعليكم السلام -اهلا وسهلا بك اخ كريم فى المنتدى تفضل ترحيل.xlsx

هل تقصد هذا مطابقة الاسم مع الرقم دون اختلاف بينهم-1.xlsx

أهلا وسهلا بك فى منتدانا الكريم هل هذا ما تقصده قيمة موزعة على خانات حسب معطيات متغيرة.xlsx

وعليكم السلام لماذا لا تقومى بعمل معادلة تجنبا من إختلاف الأرقام معادلة لربط الإسم برقمه بارك الله فيكم

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

بارك الله فيكم جميعا وأشكركم على مروركم الذى أسعدنى

تفضل اخى الكريم رواتب ترحيل بدل إجازة-1.xlsx

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم اليوم برنامج مجانى وجاهز لمعرفة أوقات الصلاة فى مدينتك ونظرا لحجم البرنامج الكبير اذ يصل الى أكثر من 14 ميجا فقد تم رفعه على موقع خارجى واليكم الموقع : http://www.mediafire.com/file/8pbu4jeuhpdj35w/Alburden-برنامج+البردين+لمعرفة+أوقات+الصلاة.rar وهذا ملف للشرح وصور البرنامج شرح وصور البرنامج.docx

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم اليوم برنامج مجانى وجاهز لحساب قيمة الزكاة وهذه صور من البرنامج بعد التسطيب : ونظرا لحجم البرنامج الكبير اذ يصل الى أكثر من 3 ميجا فقد تم رفعه على موقع خارجى واليكم الموقع : http://www.mediafire.com/file/53c1m7q405bn3y5/Raboa-برنامج+ربوة+لحساب+الزكاة.rar وهذا ملف للشرح وصور البرنامج شرح وصور البرنامج.docx

وعليكم السلام اذا تريد الحل بالقائمة المنسدلة -فعليك برفع ملفك لعمل القائمة عليه والحل عن طريق عمل قائمة بأربع رغبات ويمكنك الإختيار من بينهم بالماوس دون الكتابة بارك الله فيك

لك ما طلبت deff globale2018-2.xlsx

تفضل deff globale2018-1.xlsx

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

أستاذى الكريم لماذا تظهر هذه المشكلة عند الضغط على الملف لتحميله ؟

ممكن توضيح اكثر لو سمحت واعطاء نتيجة لما تريد

بارك الله فيك استاذ سليم وجزاك الله كل خير ولكن اين الملف ؟

تفضل اخى الكريم هذا الكود من ابداعات استاذنا الكبير ياسر خليل أبو البراء,له منا كل الحب والإحترام وجزاه الله عنا خير الجزاء وبارك الله فيه Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo t_time If Target.Column = 2 And IsEmpty(Cells(Target.Row, 12)) Then Application.EnableEvents = False Cells(Target.Row, 12).Value = Date Cells(Target.Row, 3).Value = Time If Application.WorksheetFunction.CountIf(Range("L2:L500"), Cells(Target.Row, 12).Value) > 1 And Application.WorksheetFunction.CountIf(Range("B2:B500"), Cells(Target.Row, 2).Value) > 1 Then Cells(Target.Row, 12).Value = "" Cells(Target.Row, 3).Value = "" Target.Value = "" GoTo t_time End If t_time: Application.EnableEvents = True Application.ScreenUpdating = False End If Range("l:l").EntireColumn.AutoFit End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Row > 2 Then If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 10 Then If Cells(Target.Row, 2) = "" Or Application.WorksheetFunction.CountIf(Range("B2:B500"), Cells(Target.Row, 2).Value) > 1 Then Exit Sub Target.Value = Now() End If End If If Target.Column = 10 And Target.Row > 2 Then Target = Format(Time, "hh:mm AM/PM") End If End Sub

أخى الكريم بعد وضع الكود فى ملف اكسيل جديد قم بحفظ الملف بهذه الصيغة : Excel Macro-Enable Workbook(*.xlsm) بارك الله فيك وجزاك الله كل خير