رجب جاويش

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

أخى الحبيب / سليم تسلم ايديك

أخى الحبيب / محمود الشريف تسل ايديك ولكن أخى الحبيب اسمح لى بتعديل بسيط على الكود يعمل على مسح التعليق القديم من الخلية النشطة قبل اضافة التعليق الجديد حتى لا يحدث خطأ فى الكود Private Sub CommandButton3_Click() ActiveCell.Comment.Delete ActiveCell.AddComment ActiveCell.Comment.Visible = False ActiveCell.Comment.Text Text:=TextBox2.Value End Sub أو تعديل آخر كالآتى لتخطى الخطأ Private Sub CommandButton3_Click() On Error Resume Next ActiveCell.AddComment ActiveCell.Comment.Visible = False ActiveCell.Comment.Text Text:=TextBox2.Value End Sub تقبل أرق تحياتى وتقديرى

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

أخى الحبيب / أبو إيمان جزاك الله كل خير

أخي الحبيب / محمود الشريف جزاكم الله كل خير على الشرح الرائع

بعد إذن أخى الحبيب / سليم هذا التعديل لاثراء الموضوع Sub addition_1() Dim ER, R For i = 1 To Sheets.Count Sheets(i).Select ER = ActiveSheet.UsedRange.Rows.Count For R = 8 To ER If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _ Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1 If WorksheetFunction.IsNumber(Cells(R, 21)) = True And _ Cells(R, 21) <> 0 Then Cells(R, 21) = Cells(R, 21) + 1 Next R Next i Sheet1.Select End Sub

أخى الحبيب / محمود الشريف جزاك الله كل خير على هذا المرور العطر والكلمات الطيبة

السلام عليكم وهذا حل آخر باستخدام كود يعمل الكود من أى صفحة الأولى أو الثانية كما تريد Sub ragab() Dim cl As Range Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheet1: Set ws2 = Sheet2 '==================================================== LR1 = ws1.Cells(Rows.Count, 2).End(xlUp).Row LR2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False ws2.Range("B7:I" & LR2).ClearContents '==================================================== T = 7 Set Rng = ws1.Range("I2:I" & LR1) For Each cl In Rng If cl = "Expire" Then x = cl.Row ws1.Range("B" & x).Resize(1, 8).Copy ws2.Range("B" & T).PasteSpecial xlPasteValues T = T + 1 End If Next Application.CutCopyMode = False Application.ScreenUpdating = True Set ws1 = Nothing: Set ws2 = Nothing End Sub نقل البيانات1.rar

السلام عليكم تفضل أخى نقل البيانات.rar

أخى الفاضل /BACHA22 جزاك الله كل خير

السلام عليكم أخى الفاضل إجعل المعادلة على الصورة الآتية =SUMPRODUCT((B7:B17="ذكر")*(C7:C17>=5)*(C7:C17<>""))

أخى الحبيب / محمود الشريف عمل جميل ورائع جعله فى ميزان حسناتك بالنسبة لتعديل البيانات أخى الحبيب أنت تستدعى البيانات من خلال معادلات وبالتالى لا يمكن التعديل على الخلايا المحتوية على المعادلات لكن فى الفورم يسهل التعديل

أخى الفاضل / ابو صلاح جزاك الله كل خير

أخى الحبيب / محمود الشريف عمل رائع تسلم ايديك ولو سمحت لى أخى الحبيب بتعديل بسيط على الكود لمنع تكرار الرسالة بشكل مستمر عند الضغط على زر NO Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim R_ALI As Range Set R_ALI = Intersect(Target, Range("B6:B26")) If Target.Count > 1 Then Exit Sub If Target - Target.Offset(-1) <> 1 Then Application.Speech.Speak "Sorry you exceed the serial number If You Want To Keep It Press Yes Else Press No" Choices = MsgBox(" YES " & "إذا كنت تريد الإبقاء على الإدخال الحالي إضغط " & vbNewLine & " NO " & "وإذا كنت تريد حذف الإدخال الحالي إضغط ", vbYesNoCancel, "تحديد المطلوب") Select Case Choices Case vbYes Exit Sub Case vbNo Application.EnableEvents = False Target.Select Target = "" Application.EnableEvents = True End Select End If End Sub

أخى الحبيب / محمود الشريف جزاك الله كل خير على هذه الكلمات الطيبة العطرة

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

أخى الحبيب / أبو إيمان شكرا جزيلا لك على دقة الملاحظة وعلى النشاط والمتابعة

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

السلام عليكم تفضل أخى برنامج حضانتي.rar

الأخت الفاضلة / أم عبد الله جزاكى الله كل خير

أخى الحبيب / جمال عبد السميع جزاك الله خير

أخى الحبيب / ابراهيم جزاك الله كل خير أخى الحبيب على هذا المرور العطر والكلمات الطيبة

أخى الحبيب / محمود الشريف أنت لا تثقل على إطلاقا بل يشرفنى تقديم أى مساعدة لأخى الحبيب محمود الشريف تفضل أخى ما أردت تحديد وتعديل الخلية النشطة.rar

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