حمادة عمر

السلام عليكم

اخي وحبيبي / شوقي ربيع .. ملك الحركات

بارك الله فيك

والله بجد فكرتنا بايام جميلة جمعتنا في هذا الصرح العملاق وادام الله المحبة في الله

والاحساس الموجود بيننا بدون اهداف الا ابتغاء مرضاة الله .. وشكرا لك لجعل موضوعك يجعل الاخ الحبيب / ضاحي غريب .. يعود لو بكلمة

كنت وستظل دائما ملك الحركات في الفورم

ولكن هذه المرة ليس بالفورم اي حركات انما هي (    طلقات    ) من العيار الثقيل

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

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

تقبل خالص تحياتي

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

السلام عليكم

الاخ الكريم / ابو يحيى

بارك الله فيك

بعد اذن الاخ والاستاذ الحبيب / زيزو العجوز .. جزاه الله خيرا

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

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

بارك الله فيك

مشاركة جميلة وفورم رائع .. وفي انتظار المزيد من ملفاتك واعمالك باذن الله

تقبل خالص تحياتي

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

وتقبلوا خالص تحياتي

13 ساعات مضت, ناصر حسان said:

بارك اللة بيك وجعلة اللة فى ميزان حسناتك

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

 

السلام عليكم

الاخ الكريم / ناصر حسان

بارك الله فيك

وجزاك الله خيرا علي دعائك الطيب الكريم

تقبل خالص تحياتي

السلام عليكم

الاخ والاستاذ القدير / شوقي ربيع  .... ملك الحركات

تقبل خالص تحياتي

وحشتنا ايامك يا كبير يا قدير

وجزاك الله خيرا علي دعائك الكريم

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

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

السلام عليكم

استاذي الحبيب الراائع القدير / أبو حنــــين

بارك الله فيك

والله لكم تسعدني ردودك في مواضيعي ويسعدني اكثر تواجدك

وانه بالفعل لمن سؤء حظي انني قمت باغلاق الموضوع حتي يتم تنزيل باقي المرفقات للحظات

مرورك علي اي موضوع شرف غالي له

تقبل الله منا ومنكم خالص الاعمال

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

السلام عليكم

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

وحشتنا من زماان والله

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

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

تقبل خالص تحياتي

بعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا

هل هذا هو المقصود اخي الكريم

ma7mon.rar

السلام عليكم

الاستاذ القدير / مجدى يونس

بارك الله فيك

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

ولكن ان شاء الله سيتم المحاولة

وفقنا الله واياكم لما فيه الخير

تقبل خالص تحياتي

السلام عليكم

الاستاذ / سعيد بيرم

بارك الله فيك

نحن في انتظار الشكل النهائي لملف الاخ الكريم / ناصر

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

تقبل خالص تحياتي

السلام عليكم

الاخ الكريم / ناصر المصري

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

قم اخي الكريم بتصميم صفحاتك كما تريد وكما هو موضح في الصورة المرفقة

وبالشكل النهائي الذي تريده

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

تقبل خالص تحياتي

السلام عليكم

الاستاذ القدير و الاخ الحبيب / مجدى يونس

بارك الله فيك

ويارب الشرح يعجبك وينال رضاك .. وفي انتظار رأيك بعد الاطلاع علي الملفات

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

وجزاك الله خيرا علي كلماتك الرائعة

تقبل خالص تحياتي

6 ساعات مضت, عبد الغني1 said:

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

السلام عليكم

الاخ الكريم/ محمد عزت امار

بارك الله فيك

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

تقبل خالص تحياتي

1 ساعه مضت, EL_Kashef said:

عمل أكثر من رائع

 

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

 

وكنت أريد مساعدة فى موضوع نشرته بطلب كود ترحيل ولم أتلق رد حتى الآن من أى عضو

لسلام عليكم

الاخ الكريم/ EL_Kashef

بارك الله فيك

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

ام ان هناك طلب آخر .. والكل هنا اخي الكريم يشارك ويرد تبعا لوقته وامكاناته فالكل يشارك لوجه الله ابتغاء مرضاته فقط

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

تقبل خالص تحياتي

موضوع اكثر من راااااااائع

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

السلام عليكم

الاخ الحبيب / حسين مامون

بارك الله فيك

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

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

وجزاك الله خيرا علي كلماتك الرائعة

تقبل خالص تحياتي

السلام عليكم

الاخ الحبيب / زيزو العجوز

بارك الله فيك

مرورك وحده يكفي .. جزاك الله خيرا علي كلماتك الرائعة

تقبل خالص تحياتي

السلام عليكم

الاخت الفاضلة / سما محمد

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

وان شاء الله نسأل من الله العون علي اكمال هذا الموضوع كما ينبغي

وجزيل شكري علي كلماتك الرائعة

تقبل خالص تحياتي

جميييييييييييل

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

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

معلومة جميلة وشرح وافي

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

يمكنك التقسيم عن طريق اختيار Borders

ثم اختيار  Diagonal Down Border

علي حسب اختياركم

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