أحمد فؤاد

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

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

بارك الله فيك معلومات ثمينة رائع

أستاذي / شوقي ربيع أعمالك كلها بعا إبداع في الأكواد مبدددددددددددددددددددددددددع جزاك الله خيرا

تفضل ياأخي Book1.rar

بسم الله ماشاء الله إبداع ليس له مثيل

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

تفضل ياأخي هل تقصد كما في المرفق Book1.rar

السلام عليكم ورحمة الله وبركاته أساتذتي وزملائي أرجو مساعدتي في كود الجمع الموضح أدناه Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me. TextBox1.Value = Val(Me. TextBox2.Value) + Val(Me. TextBox3.Value) + Val(Me. TextBox4.Value) + Val(Me. TextBox5.Value) + Val(Me. TextBox6.Value) + Val(Me. TextBox7.Value) TextBox1.Value = Format(Val(TextBox1), "#,##0.00") End Sub هذا الكود يجمع تلقائي داخل تكست بوكس رقم 1 بس الكود يصبح ثقيل مع كثرة البيانات هل يوجد كود أسرع وأفضل من هذا وجزاكم الله خيرا

بسم الله ماشاء الله إبداع ليس له حدود بارك الله فيك وجعله في ميزان حسناتك

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a2:a10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 2) .Value = Date .EntireColumn.AutoFit End With End If End If If Not Intersect(Target, Range("c:c")) Is Nothing Then If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then Cells(Target.Row, 5) = Date End If End If End Sub

بارك الله فيك أخي / محمود الشريف مجهود رائع وأرشفة للموضوع بإتقان

أرجو إرفاق ملف لكي نعرف تساعدك

أخي إبراهيم جزاك الله خيرا كل هذا ما تعلمناه من أساتذتنا

أخي / وليد فتحي جزاك الله خيرا

أخي / lovefoxer ندعوك لتغير إسمك لكي يسهل علينا التواصل معك تفضل رابط لتعلم الفورم http://www.officena.net/ib/index.php?showtopic=47476 وكذلك http://www.officena.net/ib/index.php?showtopic=49561 ولو بحثت في المنتدي ستجد الكثير

أستاذي الفاضل / عبد الله باقشير شرف لي الرد علي عملي جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته لا ننكر فضل الله علينا في كل أمور حياتنا الحمد لله علي كل حال نبدأ بالصلاة والسلام علي أشرف خلق الله سيدنا محمد صلى الله عليه وسلم أساتذتي وإخواني أقدم لكم اليوم عمل من أعمال أستاذنا ومعلمنا ضاحي الغريب ده رابط موضوع أستاذنا / ضاحي الغريب http://www.officena.net/ib/index.php?showtopic=48783&p=296067 بس أنا عملت فيه شويت تعديلات وفنيات لأحد الزملاء حسب عمله ورغبته وقررت أن أرفعه علي المنتدى حتى تعم الفائدة لأن الهدف الرئيسي هو التعلم والإفادة ونوجه الشكر لمعلمنا القدير / عبد الله باقشير " اللي لازم أستعمل فنياته وأعماله داخل ملفي " وأوجه الشكر لأستاذي / رجب جاويش وحبيبي وأستاذي / حمادة عمر وملك المعادلات / جمال عبد السميع وأخي / إبراهيم أبو ليلة وأعضاء كثيرون لا نستطيع أن ننكر مجهودهم وفضلهم علي المنتدي كلمة المرور 123 سندات V.2.2.rar

تفضل ياأخي Book1.rar

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

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

أستاذنا / أبو حنين بالفعل عمل رائع يعني لو كنت محاسب كنت بدعت بارك الله فيك

أضم صوتي إلي صوت أخي إبراهيم الفكرة كلها لو يوجد فورم

أخي الحبيب / إبراهيم إنتظرني غدا سأرفق لك ملف أعمل عليه حاليا أرجو أن يفي غرضك وشكرا

أساتذتي الأعزاء هل يوجد لطلبي الأول طريقة أو كود جزاكم الله خيرا