إبراهيم ابوليله

اخى ياسر راجع الرابط الاتى مشاركة رقم 8 ستجد فيه الشرح http://www.officena.net/ib/index.php?showtopic=50606&hl=

اخى ياسر الملف يعمل بنجاح الا اذا كنت لم افهم ماذا تريد بالتحديد مثلا قم بتغير السطرالاتى فى شيت مصروفات النقل 11-11-2014 20 سيلكون النفل الى 11-11-2014 30 سيلكون النفل ثم اذهب الى شيت المجموع ستجد ان الرقم تغير من 130الى 140 تقبل تحياتى

اخى ياسر هل تقصد هكذا تقبل تحياتى Microsoft Office Excel Worksheet جديد ‫‬.rar

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

ان شاء الله يتم المحاوله تقبل تحياتى

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

اخى ابو حنين تقبل تحياتى

اخى ابوحنين استبدل الكود بالكود الاتى Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False LR = Range("A" & Rows.Count).End(xlUp).Row If Target.Column = 1 Then Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd"), "") End If LR1 = Range("n" & Rows.Count).End(xlUp).Row If Target.Column = 14 Then Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd"), "") End If Application.ScreenUpdating = True End Sub تقبل تحياتى

اخى الجموعى اسعدنى متابعتك للموضوع واتمنى لك التوفيق تقبل تحياتى

اخى الجموى انا عندى اوفيس 2010 والملف عيمل عليه نجاح تقبل تحياتى

اخى صابر الملف المرفق مفهوش غير موديول واحد وفاضى تقبل تحياتى

اخى صابر اليك شت به كود يقوم بعمل لينك بمجرد اضافة شيت تفضل تقبل تحياتى link.rar

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

اخى سلمان فقط قم بتغير الكود الاتى Private Sub com2_Change() Dim WS As Worksheet Set WS = Worksheets("Ïáíá ÇáÍÓÇÈÇÊ") WS.Select x = 5 For hma = 6 To 56 If Me.com2.Value = WS.Cells(hma, x) Then Me.cur1 = WS.Cells(hma, x).Offset(0, 1) Me.cur = WS.Cells(hma, x).Offset(0, 2) End If Next End Sub بالكود الاتى Private Sub com2_Change() Dim WS As Worksheet Set WS = Worksheets("Ïáíá ÇáÍÓÇÈÇÊ") x = 5 For hma = 6 To 56 If Me.com2.Value = WS.Cells(hma, x) Then Me.cur1 = WS.Cells(hma, x).Offset(0, 1) Me.cur = WS.Cells(hma, x).Offset(0, 2) End If Next End Sub

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

بعد اذن الفاضل ابراهيم ابو ليلة مرفق الملف لربما يفي بالغرض خالص تحياتي محاوله جيده والاجمل التنوع فى الاداء مشكورا تقبل تحياتى

بعد اذن الفاضل ابراهيم ابو ليلة مرفق الملف لربما يفي بالغرض خالص تحياتي محاوله جيده والاجمل التنوع فى الادلء مشكورا تقبل تحياتى

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

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

اخى سلمان هذه محاوله بسيطه منى ارجو ان تفى بالغرض ملحوظه تم اضافة عمودين هما fوg فى شيت دليل الحسابات -- يجب استكامل بيانات العمود للحصول على نتائج صحيحه تقبل تحياتى سندات صرف وقبض.rar

اخى الريفى مشكورا على الهديه الرائعه بارك الله فيك

اخى يؤجى الالتزام بقواعد المنتدى ومنها ان تكون اسماء الظهور باللغه العربيه تفضل ما تريده Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'اكتب هنا اسم الماكرو الذى تريد تنفيذه ' او الكود الذى تريد تنفيذه ' هذا الكود ينفذ على التكست بوكس رقم 1 'قم بتغير اسم التيكست بوكس على حسب ما تريد 'مثال MsgBox "تم الانتقال الى التيكست الاخرى" End Sub تقبل تحياتى

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

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

اخى جلال اشكرك على متابعة الموضوع واتمنى ان يكون الموضوع مفيد تقبل تحياتى