حمادة عمر

مجهود ونشاط اكثر من ممتاز

كعادتك دائما مبدع في كل شئ في افكارك وطريقة تنفيذها وتصميمها تقبل خالص تحياتي

السلام عليكم الاخ الكريم / mahmoudafefy بارك الله فيك تفضل اخي الكريم ... قم بوضع الكود التالي في حدث زر الادخال في الفورم Private Sub CommandButton1_Click() Dim iRow1, iRow2, iRow3 As Long Dim ws As Worksheet Set ws = Worksheets("Sheet2") iRow1 = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row iRow2 = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row iRow3 = ws.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row ws.Cells(iRow1, 1).Value = Me.TextBox1.Value ws.Cells(iRow2, 2).Value = Me.TextBox2.Value ws.Cells(iRow3, 3).Value = Me.TextBox3.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox1.SetFocus Hide Show End Sub واليك الملف بالمرفقات ارجو ان يفي ذلك بطلبك اخي الكريم سنترال-sama.rar

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

السلام عليكم الاخ الكريم / hussam alhamadani علي حسب فهمي للطلب .. وع السريع كده ... حيث عذرا لا يمكنني الجلوس امام الكمبيوتر هذه الايام والدخول للمنتدي لوقت كاف قم بتغيير السطر التالي في الكود الخاص بزر التعديل وتغيير الرقم من 19 الي ما شئت مثلا 20000 حيث يمثل هذا الرقم رقم الصف الذي تريد الكود يعمل الي هذا المدي For i = 1 To 19 ليكون هذا السطر بعد التعديل For i = 1 To 20000 جزاك الله خيرا

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

بارك الله فيكي تقبلي خالص شكري جزاكي الله خيرا

بارك الله فيك جزاك الله خيرا

الاخ الكريم اليك هذا الكود ايضا لتنفيذ طلبك علي حسب فهمي بطريقة اخري ... لمنغ فتح الشت الا بعد استخدام الباسورد المحدد لذلك Sub Oval4_Click() Dim pwd As String: pwd = "123" Cells(Rows.Count, Columns.Count).Activate If Application.InputBox("ÈÑÌÇÁ ÅÏÎÇá ßáãÉ ÇáãÑæÑ ááÏÎæá ", "ÊÕÑíÍ ÏÎæá ", "???") <> pwd Then Sheets("control").Activate MsgBox " ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ !! ãä ÝÖáß ÑÇÌÚ Ðáß ", 0, "ÚÝæÇð ÇáÏÎæá ãÍÙæÑ" Else MsgBox "ãÑÍÈÇð Èß !! ßáãÉ ÇáãÑæÑ ÕÍíÍÉ !! ÊÝÖá ÈÇáÏÎæá ......", 32, "ÏÎæá äÇÌÍ" Sheets("Msheet").Activate Range("A1").Activate End If End Sub واليك في الملف المرفق مثالان بالكود الاول والكود الثاني ارجو ان يتناسبا مع طلبك جزاك الله خيرا password-sama.rar

اجمل ما في الموضوع هو وجود كبيرين في الموضوع القدير / عبد الله المجرب والخبير / عباد - ابو نصار لكم مني افضل وارق التحيات كنت قد جهزت ملف آخر ولكن الملف المرفق من القدير / عباد يفي بكل الاغراض ولكن بعد اذن قمت بالتعديل الطفيف علي الكود لعدم ظهور رساله لاغلاق الملف كما تقصد الاخت الفاضلة جزاكما الله خيرا A1_ne.rar

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / nasersaeed بارك الله فيك تقبل خالص تحياتي جزاك الله خيرا

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

رمضـــان كـــريـــم

الاخ الكريم / commandos1975 بارك الله فيك من الافضل اخي الكريم ان ترفق ملف به طلبك ليتم العمل عليه حيث ان الطلب بدون مرفق وبدون شرح يصبح مبهم بعض الشئ واليك اخي الكريم الكود التالي لا يقوم بتنفيذ الماكرو او الكود الا بعد وضع الباسورد الصحيح الباسورد هو : 123 Public ss As Byte Private Sub CommandButton1_Click() pass = "123" sama = InputBox("إدخل الباسورد لتنفيذ الماكرو") If sama <> pass Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") ss = ss + 1 If ss> 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If Range("a3").Value = "صرح اوفيسنا العملاق" MsgBox ("تم تنفيذ الماكرو") End Sub جزاك الله خيرا عدم تنفيذ الكود الا بعد استخدام باسورد.rar

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / zmzm بارك الله فيك بالفعل موقع جميل وبه مجموعة اكواد جميله ودسمه ويحتاجها الجميع جزاك الله خيرا

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / احمد مجدى بارك الله فيك انت اخي الكريم بحكمك هذا علي هذا المنتدي واعضاؤه تظلم الجميع والاهم والذي يجب ان يعرفه الجميع ان الكل الكبير والصغير العضو والخبير ... الخ يساعد ابتغاء مرضاه الله فقط لا يطلب اجرا ولا اي شئ كان ويساعد علي حسب وقته ... حيث ان لكل منهم مشغولياته بالتأكيد وانت اخي الكريم / احمد مجدى من اكثر الناس الذي قمت انا علي وجه الخصوص بالاشتراك في مساعدتهم بطريقة اظن انها تكفي لتعلم ان اعضاء هذا المنتدي يخدمون لوجه الله تعالي وعلي سبيل المثال لا الحصر هناك موضوعان لك بعنوان (( كود ترحيل الفاتورة )) عدد 75 رد علي استفساراتك http://www.officena.net/ib/index.php?showtopic=45215&hl= وبعنوان (( برنامج ايصالات استلام وصرف النقدية )) عدد 155 رد http://www.officena.net/ib/index.php?showtopic=45468&hl= والمؤكد انه عند رؤية احد لموضوع ما اما ان يكون ليس لديه الخبرة الكافية لحل هذا الطلب وتقديم المساعدة فيتركه لغيره او يكون لديه الخبرة ويمكنه تقديم الحل ولكن ينقصه الوقت فقط فيتركه ايضا لمن يتوفير لديه الوقت اما اذا توفر الاثنين معا لديه وقت مشاهدته الموضوع اكاد اجزم انه لن يتواني عن المساعدة وعلي العموم اخ احمد مجدي .... كل الشكر الموضوع ليس بالعلاقات والاصحاب فلا يغرف احد غي هذا المنتدي الآخر معرفة شخصية كله ابتغاء مرضاه الله فقط

رمضـــان كـــريـــم

جزاكي الله خير اختي الفاضلة

رمضـــان كـــريـــم