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

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

اخي سعد العابد بارك الله فيك على هذه التحفه الجميله جزاك الله كل خير

عميدنا الحبيب الغالي انا عندي ملف اكسيل اعمل عليه وقد حددت له 5 ازرار واخترت لها مختصرات محجوزه للاكسيل مثل F1 F2 F3 F4 F5 ولم تحدث اي مشاكل

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

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

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

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

بارك الله فيك يا اخي الكريم

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

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

الاحبه الكرام كل عام وانتم بالف بالف خير فقد اخترت اللون الاحمر لاكتب به ردي كون الموضوع يحمل نوع من الخطوره ويتعلق في شبيه للفيروس وليس فيروس بحد ذاته قرأت الردود وسعدت كثيرا في اختلاف الردود من المؤيد والمعارض وكلا الردين مسموح ومشروع بهما . وبما ان الموضوع يقبل باختلاف الرأي فاني والله ميال الى بقاء الموضوع وبقاء الملف وعدم الحذف واعللها بالاتي: اخونا وحبيبنا يحياوي ذكر في بداية طرحه للملف بانه قد اشهد الله انه لا يريد ان يضر احدا. كما انه تبرأ امام الله من ان يستخدمه شخص اخر للضرر بالاخرين. اما عن اسبابي انا فهو ان اخونا يحياوي ذكر الخطر واعطانا الحل له اذا لماذا الخوف من النظر الى الملف ومعرفة محتواه فانا كلي ثقه برواد المنتدى وكما عهدونا وعهدناهم دائما بحبهم لفعل الخير فلا اعتقد ان احد سوف يخسر هذه العلاقه الحميمه التي جمعتنا سويا . وطالما ان الحل موجود ويمكن حذفه دون اي ضرر بأي ملف فلما لا........ الموضوع كله وبرمته راجع الى ادراة الموقع الكريمه فكلنا ثقة بما تختاره ولها منا السمع والطاعه وقد اعطيناها العهد ، ولكن هذا كان من ابداء الرأي والرأي الاخر تحيه الى الاحبه الكرام مره اخرى مع تحيه خاصه اليك ايها اليحياوي العفيف

كل عام والامة الاسلامية بالخير واليمن والبركات

ايها اليحياوي الكبير احسنت صنعا

عمل جميل اخي جمال الفار في تقدم دائما والى الامام

اخي ابومريم تقبل الله طاعتكم بارك الله فيكم

الف الف مبروك اخي ابوياسر والى الامام ان شاء الله

اللهم امين

ابن بلادي نارت الف الف مبروك

تقبل الله طاعاتكم جميعا

الساده الافاضل السلام عليكم ورحمة الله وبركاته بداية اود ان اوجه الشكر الكامل الى اخي محمد طاهر على منحي انا واخي المعتصم هذا الوسام الذي اسأل الله ان يعيننا على تحمله =============================================================================== الاخوه الاحبه مع حفظ الالقاب المعتصم نارت عبدالله المجرب الحسامي سعد العابد هشام شلبي ياسر الحافظ نادر وطفه يحياوي جمال الفار محمد ابو عبدالله هانكوك MHRRD EGYPTION_EG (كل عام وانتم بالف خير)

اخي مودي يعني لاحظ الاكواد التي باللون الاخضر وهي مثال لاضافة صفحتين جديدتين باسم 1 و 2 فقط طبق على الكود باضافة اسماء صفحات الفعليه مهما كانت كثيره بنفس مكان الكود الذي باللون الاخضر Private Sub CommandButton1_Click() Dim AHMAD As String, HAMOOR As Worksheet, DADA As Integer, MYSH As Worksheet On Error GoTo 1 If ComboBox1.Value = "" Or TextBox2.Text = "" Then MsgBox " ÍÇæá ÇáÏÎæá ÈÔßá ÕÍÍÍ ", 16, "ÊÍÐÍÑ" ComboBox1.Value = "" TextBox1.Text = "" TextBox2.Text = "" ComboBox2.Value = "" Else Set MYSH = Sheets("DATA") DADA = MYSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row AHMAD = TextBox3.Value Set HAMOOR = Sheets("CONTROL") With HAMOOR Application.Range(AHMAD).Activate If TextBox2.Text <> .Range(AHMAD).Offset(0, 1).Value Then MsgBox "ÇáÑÞã ÇáÓÑÍ ÛÍÑ ÕÍÍÍ", 16, "ÑÓÇáÉ ÊäÈÍå" TextBox2.Text = "" TextBox2.SetFocus Else If TextBox1.Text = .Range(AHMAD).Value And TextBox2.Text = .Range(AHMAD).Offset(0, 1).Value Then If ComboBox2.Value = "ADMINSTRATIVE" Then .Visible = xlSheetVisible .Application.Sheets("DATA").Visible = xlSheetVisible '.Application.Sheets("1").Visible = xlSheetVisible '.Application.Sheets("2").Visible = xlSheetVisible Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("SHEET2").Activate MsgBox "Úáì ÈÑßÉ Çááå ", vbOKOnly, "ÇáÊÑÍÍÈ" ElseIf ComboBox2.Value = "USER" Then .Visible = xlSheetVeryHidden .Application.Sheets("DATA").Visible = xlSheetVeryHidden '.Application.Sheets("1").Visible = xlSheetVeryHidden '.Application.Sheets("2").Visible = xlSheetVeryHidden Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("SHEET2").Activate MsgBox "Úáì ÈÑßÉ Çááå ", vbOKOnly, "ÇáÊÑÍÍÈ" End If End If End If End With End If 1 End Sub معلش اخي وجد لون اخضر كثير اتبع التغيير في الاسطر التاليه '.Application.Sheets("1").Visible = xlSheetVisible '.Application.Sheets("2").Visible = xlSheetVisible وايضا هذا '.Application.Sheets("1").Visible = xlSheetVeryHidden '.Application.Sheets("2").Visible = xlSheetVeryHidden

اخي وحبيبي ابو عبدالله ( الجزيره) بارك الله فيك على هذه الكلمات الجميله ============================================ اخي الكريم وائل هل اطلعت على المشاركه رقم 2 او رقم 9 ؟؟؟؟؟؟؟؟؟؟؟؟ ستجد الملف بالمشاركه 2 بدون الشرح اما بالمشاركه رقم 9 ستجدها مع الشرح ================================================= اخي مودي الموضوع بسيط جدا ولكن يجب عليك الدخول الى صفحة الاكواد واضافة الصفحات الجديده التي لديك ومن ثم التعامل مها يعني بالبلدي مينفعش تعملها من غير كده لاني مفصل الملف على ثلاث صفحات وهي محدده باسماءها فلا اعلم مامدى درايتك بالاكواد هل تستطيع عملها ام لا فان كان نعم فهذا خير وبركه وان كان لا يمكنك ارسال الملف والتعديل عليه من قبلنا

اخي الكريم ذيب رابط جميل وممتع بارك الله فيك واسأل الله ان يبلغنا الحج

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

الله محيي النشمي ابن النشمي كفو والله وقدها