حمادة عمر

قمت بعمل موضوع علي الاكسيل عندما قرآت موضوع مشابهه هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل http://www.officena....showtopic=46651

قمت بعمل موضوع علي الاكسيل عندما قرآت موضوع مشابهه هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل http://www.officena....showtopic=46651

قصة جميله حقا ويوجد مثل مصري يقول (( آخر المعروف الضرب بالكفوف ))

اللهم انا نسألك رضاك والجنة - ونعوذ بك من سخطك و النار

اللهم انا نسألك رضاك والجنة - ونعوذ بك من سخطك و النار

اللهم آمين آمين آمين

اللهم آمين آمين آمين

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

اللهم فرج كرب المسلمين اجمعين في كل ارجاء الدنيا يا رب العالمين

رحم الله والديك

رحم الله والديك

سبحان الله والحمد لله والله اكبر ولا حول ولا قوة الا بالله

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

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

السلام عليكم الاخ الكريم / sarab1618 بارك الله فيك جزاك الله خيرا

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

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

السلام عليكم الاخ الكريم / sarab1618 بارك الله فيك تم اضافة زر للفورم الخاص بك باسم ( الذهاب للسجل المحدد ) وتم اضافة جزء بسيط للاكواد لمسح بيانات الفورم عند الظهور للقيام بعمليه بحث جديدة .. وهو هذا الجزء Private Sub UserForm_Activate() TextBox33.Value = "" TextBox35.Value = "" End Sub وتم استخدام كود لتنفيذ طلبك ... كما تريد مع ظهور رساله للتأكيد علي الذهاب للسجل المحدد ام لا ... واي تعديلات معك باذن الله دائما واليك الكود : Private Sub CommandButton18_Click() Dim i As Integer For i = 3 To 100 If Val(TextBox1.Value) = Cells(i, 1) Then Cells(i, 1).Select Next sama = MsgBox("هل تريد الذهاب للاسم المحدد الذي قمت باختياره", vbYesNo, "رسالة تأكيد") If sama = vbYes Then UserForm1.Hide Else Exit Sub End If End Sub ارجو ان يفي بطلبك جزاك الله خيرا البحث بجزئ من11 الاسم.rar

السلام عليكم الاخ الكريم / helmy nawar بارك الله فيك وشاكر جدا مرورك العطر الكريم وما يوقفني عند تقديم موضوع للشرح هو فقط انني ابحث عن موضوع مناسب لتقديمه جزاك الله خيرا

السلام عليكم الاخ الكريم / Alalawi9 بارك الله فيك جزيل شكري لمرورك الكريم جزاك الله خيرا

الاخ الكريم / Alalawi9 بارك الله فيك من الواضح ان الاخ / asdawy لديه مشكلة في المتصفح لديه ولاتظهر لديه المرفقات الحمد لله انك اهتديت لما تريد جزاك الله خيرا

الاخ الكريم / AL-ZEER بارك الله فيك وجزاك الله خيرا

السلام عليكم الاخ الكريم / حسام مصطفي بارك الله فيك مرور طيب وكريم من اخ كريم جزاك الله خيرا

السلام عليكم الاخ الكريم / حسام مصطفي بارك الله فيك مرور طيب وكريم من اخ كريم جزاك الله خيرا

تم اضافة المشاركة بطريق الخطأ .. فكانت تخص موضوع آخر اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين