هادى محمد المامون سالم

بسم الله الرحمن الرحيم تحياتى و تقديرى اخى احمد السلام عليكم

بسم الله الرحمن الرحيم مرفق ملف يبين لك كيفيه الترحيل راسب و ناجح فى ورقه عمل منفصله ودرجه النجاح اعتبارا من 5 و لعدد 10 اسماء و لانى ليس لى درايه كافيه بالعمليات التعليميه , اذا كان ذلك هو المطلوب يمكن التعديل على الكود بناء على طلبكم و كذلك شرحه و فتح المجال السلام عليكم كونترول.rar

بسم الله الرحمن الرحيم يارب اجعل مثواه الجنه يارب ارحمه و ارحم اموات المسلمين امين .امين .امين . السلام عليكم

بسم الله الرحمن الرحيم اذا ربطنا بين أكواد اخى أيسم و موقع المصلحه يمكن استخدام الملف الكود التالى Sub DOIT() [E5].ClearContents [F3] = Right([E3], 7) [G3] = Left([F3], 2) For i = 2 To 20 If Cells(i, "A").Text = [G3].Text Then [E5] = Cells(i, "B") End If Next i End Sub مرفق ملف السلام عليكم ID.rar

بسم الله الرحمن الرحيم اخى ابوعبدالله اخى خبور اخى ايسم اخى سالم شباني اخى abusarah73 اخى سعد عايد شاكر مروركم الكريم السلام عليكم

بسم الله الرحمن الرحيم تابع الرابط التالى http://www.officena.net/ib/index.php?showtopic=33403 السلام عليكم

بسم الله الرحمن الرحيم تابع الرابط التالى http://www.officena.net/ib/index.php?showtopic=33403 السلام عليكم

بسم الله الرحمن الرحيم رد على المشاركه مرفق ملف برنامج تكاليف سريع السلام عليكم Cost_01.rar

بسم الله الرحمن الرحيم اخى قصى انا معكم دائما لكن مشاغل الحياه السلام عليكم

بسم الله الرحمن الرحيم ربنا يبارك لك السلام عليكم

بسم الله الرحمن الرحيم اخى ابو عبدالله دائما رائع السلام عليكم

بسم الله الرحمن الرحيم ربنا يبارك لك اخى هشام السلام عليكم

بسم الله الرحمن الرحيم اخى احمدزمان اشكرك و فى انتظارك قريبا ان شاء الله اخى هشام شلبى شكرا على المرور اخى YasserKhalil اتمنى ان تكون المشكله تم حلها فى المشاركه رقم 6 اخى يحيى حسين شكرا على المرور اخى amhateb شكرا على المرور السلام عليكم

بسم الله الرحمن الرحيم فى المشاركه رقم (1) لانستطيع تغيير اسم المسار الذى تم انشاءه و سنحاول التحكم فى اسم المسار بانفسنا أو بوضع اسم للمسار الذى نريد انشاءه فى الخليه (A1) و من السهل تغييره اذا اردنا, 1 - سنضع موضع الملف غلى القرص الصلب المسار بدلا من اسم المسار السابق Hady(بين علمتى تنصيص) 2 - نضيف علامه & 3 - الخليه التى نريد استخدامها لوضع الاسم الجديد (A1) مثلا و اليكم الكود Sub Make_Folder() On Error Resume Next MkDir "C:\" & [A1].Text End Sub مرفق ملف السلام عليكم Make Folder_01.rar

بسم الله الرحمن الرحيم يارب اشفه و اشفى مرضى المسلمين امين.امين.امين.امين السلام عليكم

بسم الله الرحمن الرحيم MkDir كود بسيط لانشاء فولدر او مسار على المسار الذى يوجد به الملف أسمه Hady Sub Make_Folder() MkDir "Hady" End Sub و لانشاء فولدر او مسار على القرص C أسمه Hady بالأمر Sub Make_Folder() MkDir "C:\Hady" End Sub و حتى لا يتعطل البرنامج اذا تكرر الاسم يمكن اضافه السطر On Error Resume Next مرفق ملف السلام عليكم Make Folder.rar

بسم الله الرحمن الرحيم ربنا يبارك لك استاذنا الغالى السلام عليكم

بسم الله الرحمن الرحيم اخى زياد موضوع رائع ربنا يبارك لك السلام عليكم

بسم الله الرحمن الرحيم روعه اخى ابو عبدالله السلام عليكم

بسم الله الرحمن الرحيم و اليك كود اخر مختصر Sub DOIT() ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path _ & "\" & ActiveWorkbook.Name, CreateBackup:=True End Sub مرفق ملف السلام عليكم Backup.rar

بسم الله الرحمن الرحيم اتفق مع اخى فى النصف الاول و اعتقد انه الرد المقنع و لكن لا اتفق معه فى لاننا من الممكن ان اجبد استخدام الاداه و من السهل الربط بين الاكسيل و الاكسيس خاصه ان الاكسيس له امكانيات طباعه رائعه , و للعلم من يتعلم الاكسيل و الاكواد يستطيع ان يتعلم اى لغه برمجه اخرى بسهوله . السلام عليكم

بسم الله الرحمن الرحيم ربنا يبارك لك اخى ابو عبدالله السلام عليكم

بسم الله الرحمن الرحيم مرحبا بك بين اخوتك مره اخرى السلام عليكم

بسم الله الرحمن الرحيم الله يبارك لك اخى ابو عبدالله اكسلجى السلام عليكم

بسم الله الرحمن الرحيم احب اوفيسنا و الجميع السلام عليكم