حمادة عمر

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

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

السلام عليكم الاخ الكريم / ابو يحيى بارك الله فيك بعد اذن الاخ والاستاذ الحبيب / زيزو العجوز .. جزاه الله خيرا وبنفس اكواده الراائعة قم باستبدال الكود الخاص بالنسخ بالكود التالي بزيادة سطر واحد فقط وهو Call SheetColors55 ليكون الكود كالتالي : Sub Copy_AddSheet() Dim x As String Sheet1.Unprotect Sheet1.Range("A2:E" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Copy x = WorksheetFunction.Text(Now(), Format("dd-mm-yyyy")) For i = 1 To Sheets.Count If Sheets(i).Name = x Then Exit Sub If Sheets(i).Name <> "form" Then Sheets(i).Visible = xlSheetHidden End If Next i Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = x With ActiveSheet .Range("A2").PasteSpecial xlPasteValues .Range("A2").PasteSpecial xlPasteFormats .Range("A2").PasteSpecial xlPasteColumnWidths .DisplayRightToLeft = False .Range("A2").Select .Protect End With '=================================== Call SheetColors55 '=================================== Sheet1.Protect Application.CutCopyMode = False End Sub وذلك بعد اضافة الكود التالي في موديل ( هو نفس كود الاستاذ / زيزو العجوز .. والخاص بالتلوين ولكن بتعديل بسيط جدا ) ليصبح التلوين للشيت في نفس خطوة وامر النسخ بضغطة زر واحدة Sub SheetColors55() Dim x, y, z As Integer x = WorksheetFunction.RandBetween(0, 255) y = WorksheetFunction.RandBetween(0, 255) z = WorksheetFunction.RandBetween(0, 255) colr = VBA.RGB(x, y, z) On Error Resume Next ActiveSheet.Select ActiveSheet.Tab.Color = colr End Sub تقبلوا خالص تحياتي وجزاكم الله خيرا

السلام عليكم الاخ الكريم / محمد الخازمي بارك الله فيك وبعد اذن اخي وحبيبي القدير الرائع دائما /شوقي ربيع .. جزاه الله خيرا ضع الكود التالي في زر ليتم تنفيذ امر الحذف .. وعذرا لعدم ارفاق ملف لبطئ شديد بالنت لدي Private Sub CommandButton1_Click() Dim i As Integer TextBox1.Enabled = True For i = 3 To 2000 If Val(TextBox1.Value) = Cells(i, 1) Then Cells(i, 1).Select ActiveCell.EntireRow.Delete MsgBox "!! done" End If Next End Sub جزاكم الله خيرا

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

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

جزاكم الله خيرا وتقبلوا خالص تحياتي

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

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

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

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

بعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا هل هذا هو المقصود اخي الكريم ma7mon.rar

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

السلام عليكم الاستاذ / سعيد بيرم بارك الله فيك نحن في انتظار الشكل النهائي لملف الاخ الكريم / ناصر وان شاء الله سيتم العمل عليه كما يريد وتنفيذ طلبه باذن الله .. وفقنا الله لما فيه الخير تقبل خالص تحياتي

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

السلام عليكم الاستاذ القدير و الاخ الحبيب / مجدى يونس بارك الله فيك ويارب الشرح يعجبك وينال رضاك .. وفي انتظار رأيك بعد الاطلاع علي الملفات ويارب واكون عند حسن ظنكم ... وفقني الله وايكم لما فيه الخير وجزاك الله خيرا علي كلماتك الرائعة تقبل خالص تحياتي السلام عليكم الاخ الكريم/ عبد الغني1 بارك الله فيك وجزاك الله خيرا علي كلماتك الرائعة ودعائك الاكثر من راائع وبالفعل احسست بصفاء نيتك في دعائك .. وفقنا الله واياكم لما فيه الخير والهداية تقبل خالص تحياتي السلام عليكم الاخ الكريم/ محمد عزت امار بارك الله فيك وجزاك الله خيرا تقبل خالص تحياتي لسلام عليكم الاخ الكريم/ EL_Kashef بارك الله فيك بالنسبة لموضوعك اتذكر ان الاخ الحبيب / سليم حاصبيا قد قام بالرد عليك واظن ان كوده كان يفي بالغرض ام ان هناك طلب آخر .. والكل هنا اخي الكريم يشارك ويرد تبعا لوقته وامكاناته فالكل يشارك لوجه الله ابتغاء مرضاته فقط وجزاك الله خيرا تقبل خالص تحياتي

موضوع اكثر من راااااااائع جزاك الله خيرا

السلام عليكم الاخ الحبيب / حسين مامون بارك الله فيك ويارب اكون قدرت اوصل المعلومة في الجزء اللي فات ويستفيد منه اي حد واكون عند حسن ظنكم ... وفقني الله وايكم لما فيه الخير وجزاك الله خيرا علي كلماتك الرائعة تقبل خالص تحياتي

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

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

جميييييييييييل جزاك الله خيرا

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

معلومة جميلة وشرح وافي جزاك الله خيرا

يمكنك التقسيم عن طريق اختيار Borders ثم اختيار Diagonal Down Border او Diagonal Up Border علي حسب اختياركم

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