احمد حمور-ابوعبدالله

اخي الحسامي اشتقتلك يا زلمه وين انت من زمان ما شوفنا هالطله الحلوه يا اخي انت ما الك نزله على العقبه حابيين نشوفك

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

اخي ابوعبدالسلام والله اني اصبحت انتظر منك مفاجأه كبيره لانني ارى اسلوبك في المناقشه وفي طرح تساؤلاتك وطلباتك كلها تنم عن انك ربما ستفجر لنا قنبله لم نراها من قبل ام انك ستتحفنا بعمل جميل هذا ظني بك اليك طريقه وهي بد من shift عندك ثلاث خيارات اما السهم الاعلى او السهم الاسفل او استخدام المسطره كلها ستظهر لك فورم2 New Microsoft Excel Worksheet.rar

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

بارك الله فيك اخي ابو احمد

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

http://www.officena.net/ib/index.php?showtopic=34679&st=20&p=182322&#entry182322 الرابط اعلاه هو ماقصده اخي ابو احمد

اخي ابو احمد شرح جميل وصوت اجمل

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

اخي العزيز الكود التالي هو الذي عندك ListBox1.List(V, 5) = Q.Offset(0, 5).ValueÇ ويوجد به خطأ بسيط امسح كلمة value واكتبها من اول وجديد اما بالنسبه لطلبك الثاني هذا يمكن ولكن نحتاج الى الدخول في مرحله متقدمه وهي استخدام optionbutton ان شاء الله في الدروس القادمه سيتم التطرق لها

لو افترضنا ان د = رقم الشقه ز = عدد الادوار ق = 7 ( رقم افتراضي ) ط = 23( رقم افتراضي) و =25 ج = 12 ح = 76 الحل هنا ز = ح - ج - و - ط اذا ز = 76-12-25-23 ز = 16 وهي عدد الادوار ====================== د = ز - ق د = 16 - 7 د = 9 وهي الشقه التي يسكنها =============================== عذرا على الطريقه في الحل ولكني والله ضعيف جدا في الرياضيات وهذا الحل على حسب فهمي بس انا متأكد انه ما في حدا راح يفهم الحل الا اذا عرف من اين اتيت بالقيم ( و ج ح) الشكر لاصحاب الحلول الرائعه مجدي يونس والحسامي

حلول رائعه

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

الله يكون في عونك يا اخي اول مره اشاهد مثل هذه الملاحظه اتمنى ان يكون لها حل

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

اخي السيد عبدالفتاح تفضل المرفق ========================================= اعتذر عن الكود الموجود في المشاركه رقم 26 واستبدله بالكود التالي Application.Quit Application.DisplayAlerts = False Cheque program edit2.rar

اخي السيد عبدالفتاح لا اوافقك الرأي بحكر تغيير الرقم السري للمستخدمين لانه حق لكل مستخدم ولا يجب ان يكون بصلاحيات ============================================== داخل USERFORM2 وفي حدث LISTBOX Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) اضف نفس البيانات التاليه If .Range(ahmad).Offset(0, 13).Value = "Y" Then UserForm1.CheckBox10.Value = True ElseIf .Range(ahmad).Offset(0, 13).Value = "N" Then UserForm1.CheckBox10.Value = False End If '=================================================================== ============================================================ الموضوع بسيط جدا وتستطيع اضافة كمية الصفحات التي تريدها وبنفس التعديلات التي اجريتها انت وانا

اخينا الغالي كيماس افتقدناك كثيرا مرحبا بعودتك

اخي معتصم بارك الله فيك وجزاك الله خيرا

الاخوه الكرام الاضافة التاليه مهمه, كونها تخص ظهور الرسائل التحذيريه بشكل دقيق وصحيح الرجاء حذف الكود السابق في زر امر save الموجود في userform3 واستبداله بالكود التالي Private Sub CommandButton2_Click() Dim ahmad As String, HAMOOR As Worksheet On Error GoTo 1 ahmad = TextBox1.Value Set HAMOOR = Sheets("CONTROL") With HAMOOR If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or _ TextBox4.Text = "" Or ComboBox1.Value = "" Then MsgBox "You have to fill all data", 16, "Attetion" ComboBox1.SetFocus '====================================================================== ElseIf TextBox2.Text <> .Range(ahmad).Offset(0, 1).Value Then MsgBox " The old password does not match", 16, "Attention" TextBox2.Text = "" TextBox2.SetFocus '====================================================================== ElseIf TextBox3.Text <> TextBox4.Text Then MsgBox " The new password does not correct", 16, "Attention" TextBox3.Text = "" TextBox4.Text = "" '====================================================================== Else Application.Range(ahmad).Activate .Range(ahmad).Offset(0, 1).Value = TextBox3.Text MsgBox "Editing password done succesfully", vbOKOnly, "editing msg" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ComboBox1.Value = "" ComboBox1.SetFocus '====================================================================== End If End With 1 End Sub

اخي العزيز يونس فله شمعه منوره دايما بعض الملاحظات البسيطه 123.rar

اخي الكريم جزاك الله خيرا وبارك الله فيك على ردك الجميل

بارك الله فيك

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

اخي ضي النور بارك الله فيك , وان شاء الله سنستمر اخي يونس ارفق لك الملف ولكن دون تعديل اي شئ فيه لانني اريدك انت بنفسك ان تعدل كون الموضوع الاساسي هنا هو التعلم وقد ارفقت لك في الملف الاخطاء الواجب تلاشيها حتى يعمل معك ملفك وانا متأكد بانك ستستطيع ان تتجاوز هذه المرحله وارجوك عند عمل الحل اللازم ان ترسله هنا كي نرى النتيجه سويا 123456.rar