Ali Mohamed Ali

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

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

وعليكم السلام -اهلا وسهلا بك اخ كريم فى المنتدى تفضل ترحيل.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) بارك الله فيك وجزاك الله كل خير

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم اليوم برنامج مجانى وجاهز لعمل الجمعيات الخيرية وهذه صور من البرنامج بعد التسطيب : ونظرا لحجم البرنامج الكبير اذ يصل الى 30 جيجا فقد تم رفعه على موقع خارجى واليكم الموقع : http://www.mediafire.com/file/r14tesnbmkckkae/setupJmayat-برنامج+مجانى+للجمعيات+الخيرية.exe

السلام عليكم اهل المنتدى الكرام اقدم لحضراتكم اليوم لعبة التساؤلات والأجوبة الشهيرة والأصلية وهى لعبة من سيربح المليون -وهذا فيديو لشرح اللعبة : وهذه هى اللعبة جزاكم الله كل خير mullioneer-لعبة_من_سيربح_المليون.rar

أخى الكريم قم بضبط اللغة العربية فى جهازك وذلك عن طريق الذهاب الى قائمة التحكم -Control Panal ثم بعد ذلك اختار Region and Language وبعدين Adminstrative ثم Change System Locale واختار Arabic (Egypt) واتبع الصورتين

تفضل اخى الكريم جرب هذا الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 16 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 17 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 20 And Target.Row > 7 Then If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub Cancel = True Target.Value = Now() End If If Target.Column = 21 And Target.Row > 7 Then If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub Cancel = True Target.Value = Now() End If Target = Format(Time, "hh:mm AM/PM") End Sub

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