ياسر خليل أبو البراء

وعليكم السلام ورحمة الله وبركاته أخي الكريم عماد أهلاً بك في المنتدى وكل عام وأنت بخير قم بإرفاق ملفك للإطلاع عليه .. هل قمت بحذف الشيت أم قمت بإخفاء الشيت ؟؟ وهل أنت متأكد من وجوده وأنك لم تحذفه؟

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

ما هو الخطأ الذي يظهر معك .. قم بإرفاق صورة الخطأ وانقر على كلمة Debug سيظهر معك سطر باللون الأصفر قم بنسخه ولصقه في المشاركة ليتعرف الأعضاء على موضع الخطأ واذكر نسخة الأوفيس التي تعمل عليها ، كما قم بإرفاق الملف الذي جربت عليه

وجزيت خيراً بمثل ما دعوت لي أخي الكريم سمير والحمد لله أن تم المطلوب على خير تقبل تحياتي

أخي الكريم ربيع الأول أعتقد أن الكود الأول الذي قدمه أخي سليم يفي بالغرض وهذا ما أفهمه من كلامك Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$10" And IsNumeric(Value) Then Application.EnableEvents = False Range("A11").Value = Range("A11") + Target.Value Application.EnableEvents = True End If End Sub إذ أنه يحدث تغيير في الخلية A11 بمجرد إدخال قيمة في الخلية A10 .. قم بإدراج الكود وأدخل قيمة في الخلية A10 ثم اضغط إنتر لتفعيل الحدث .. ولا يمكن تنفيذ الحدث أثناء كتابة القيمة ، بل لابد من إنتر بعد الإدخال

ممكن مثال أو مثالين للتوضيح ..والأفضل أن تتكلم بلغة الإكسيل ..أي مثلاً تقول النتيجة المتوقعة في الخلية كذا هي كذا .. وذلك بناءً على المعطيات الموجودة في الورقة كذا والخلية كذا أرجو ألا أكون أثقل عليك بإلحاحي بالتوضيح والتفصيل

أخي الكريم عامر ياسر كل عام وأنت بخير اطلعت على الملف ولم أقهم المطلوب بشكل جيد .. هلا أوضحت الخلايا المطلوب جلب البيانات منها والخلايا المطلوب جلب البيانات إليها (اضرب مثال أو مثالين لتتضح الفكرة)

أخي الكريم سمير هل الملف المرفق هو ما تقوم بالتطبيق عليه أم ملف آخر ؟ لأن الخلايا A1:C2 مدمجة كلها في خلية واحدة .. أي أن الخلية B2 والخلية B3 ليس لهما وجود في هذا الدمج .. عموماً الفكرة في السطر كما أشرت أنك تشير للخلية المطلوب إدخال القيمة فيها بهذا الشكل ActiveSheet.Range("J2").Value= قم بتغيير J2 إلى الخلية المطلوبة .. قم بإزالة الدمج واستخدم الخلية B2 كما ترغب وكما فهمت من طلبك .. السطر الأول يتم تعديله بهذا الشكل (السطر موجود في الكود فقط قم بتعديله) ActiveSheet.Range("B2").Value = ActiveSheet.Name وأضف بعده السطر التالي ActiveSheet.Range("B3").Value = Target.Offset(, -1).Value تقبل تحياتي

قم بالتعديل في هذا السطر إذا أردت كود العميل أو المسلسل في نفس الخلية A2 ActiveSheet.Range("A2").Value = Target.Offset(, -1).Value & " " & ActiveSheet.Name أما إذا أردت الكود أو المسلسل في خلية أخرى فالأمر بسيط ولكن سيكون في سطر منفرد .. مع ترك السطر السابق كما هو ActiveSheet.Range("J2").Value = Target.Offset(, -1).Value تقبل تحياتي

جرب التعديل التالي وإن كنت أحبذ التعامل مع الكود الأصلي واختيار الأوراق المطلوب طباعتها Sub PrintSelectedSheets() Dim I As Integer Dim TopPos As Integer Dim SheetCount As Integer Dim PrintDlg As DialogSheet Dim CurrentSheet As Worksheet Dim Cb As CheckBox Dim Numcop As Long Dim Cnt As Integer Dim X As String Application.Dialogs(xlDialogPrinterSetup).Show Application.ScreenUpdating = False If ActiveWorkbook.ProtectStructure Then MsgBox "المصنف محمي", vbCritical Exit Sub End If Set CurrentSheet = ActiveSheet X = CurrentSheet.Name Set PrintDlg = ActiveWorkbook.DialogSheets.Add SheetCount = 0 TopPos = 40 For I = 1 To ActiveWorkbook.Worksheets.Count Set CurrentSheet = ActiveWorkbook.Worksheets(I) If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then SheetCount = SheetCount + 1 PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5 PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name TopPos = TopPos + 13 End If Next I PrintDlg.Buttons.Left = 240 With PrintDlg.DialogFrame .Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34) .Width = 230 .Caption = "اختر أوراق العمل المراد طباعتها" End With PrintDlg.Buttons("Button 2").BringToFront PrintDlg.Buttons("Button 3").BringToFront Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If CurrentSheet.Activate Application.ScreenUpdating = True Worksheets(3).Select ActiveWindow.SelectedSheets.PrintOut copies:=Numcop Application.DisplayAlerts = False PrintDlg.Delete Sheets(X).Select End Sub

بارك الله فيك أخي الحبيب عبد السلام وكل عام وأنت بخير بعد إذنك جرب التعديل في الكود بهذا الشكل ليناسب طلبك Private Sub Worksheet_Change(ByVal Target As Range) Dim LC As Long Dim Row As Long If Target.Address = "$D$2" Then Row = Application.Match([D1], Columns(5), 0) LC = IIf(Cells(Row, Columns.Count).End(xlToLeft).Column + 1 < 9, 9, Cells(Row, Columns.Count).End(xlToLeft).Column + 1) If LC > 21 Then MsgBox "No More Months", 64: Exit Sub Cells(Row, LC) = Target Target.Activate End If End Sub

جرب المعادلة بهذا الشكل =IF(Sheet1!E4<>Sheet1!F4,IF(AND(OR(E4<>F4),E4>F4,NOT(ISBLANK(F4))),"OK","NO"),"") أرجو أن تفي بالغرض إن شاء الله

أخي الكريم أبو يوسف استخدم المعادلة بشكل عادي .. لنفترض أن الوقت الأول في الخلية A1 والوقت الثاني في الخلية B1 .. ضع المعادلة بشكل عادي في الخلية C1 بهذا الشكل =A1-B1 ثم قم بتنسيق الخلية كوقت Time

أخي الكريم سعد كل عام وأنت بخير وأهلاً بك في المنتدى الموضوع غير مكتمل الأركان فالعنوان غير معبر عن الطلب كما أن الموضوع لا يحتوي إلا على ملف مرفق وفقط .. يرجى توضيح الطلب بشكل تفصيلي اطلعت على الملف ووجدت أن ورقة العمل المسماة "ورقة1" لا تحتوي على عمود يحدد النوع وهذا مهم لأن الإكسيل لن يستطيع أن يحدد النوع بنفسه ثانياً لا أدري ما هي شكل النتائج المتوقعة ، يرجى ضرب مثال بشكل النتائج المتوقعة ليسهل تقديم المساعدة تقبل تحياتي

أخي الكريم إليك الملف المرفق التالي عله يفي بالغرض ويوضح الصورة .. حاول تدرس الملف بتأني ، وإذا استصعب عليك الأمر في نقطة ما فقم بتوضيح الإشكالية أو الجزئية الغير مفهومة وإن شاء الله تجد المساعدة UserForm TextBox Input YasserKhalil.rar

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى .. يرجى وضع عناوين مناسبة للموضوعات برجاء إرفاق ملفك ليساعدك الأخوة الأعضاء تقبل تحياتي

بارك الله فيك أخي العزيز محمد أبو صهيب وجزاك الله خيراً توقعت أن يحتوي الملف على فورم .. عموماً ننتظر تطوير الملف ليظهر بشكل مناسب ويمكن للأعضاء تطويعه في مشاريعهم تقبل تحياتي

أخي الكريم أشرف النعاس أعتقد أن الكود مرن ويمكنك من اختيار أوراق العمل المطلوب طباعتها بسهولة .. لا أفهم الفكرة من اختيار ما بين ورقتي عمل .. أما بخصوص الجزء الثاني من طلبك فلم أستطع فهمه بشكل كامل

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

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

أخي الكريم أشرف النعاس قم بالإطلاع على الرابط التالي فيه ما تطلب إن شاء الله الرابط من هنا

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى بالنسبة لطلبك قمت بكتابة أسماء أوراق العمل في العمود الأول واستخدام الدالة INDIRECT للإشارة إلى النطاق أثناء استخدام الدالة COUNTIF أو COUNTIFS قم بدراسة الجدول الأول لتعرف كيفية تكملة الجداول الأخرى لأنها نفس الفكرة مع زيادة عدد الشروط فقط .. إليك الملف المرفق وكل عام وأنت بخير احصائية.rar

بارك الله فيك أخي الكريم أبو عبد الباري وكل عام وأنت بخير لي سؤال : اطلعت على الكود الذي تفضلت به ووجدت هذا السطر : If Cells(1, 13) > Cells(1, 15) Then هنا يتم اختبار قيمة الخلية M13 إذا ما كانت أكبر من الخلية O13 ، ولكن لاحظت أن الخلية O13 فارغة ، أعتقد أن الرقم 15 يمكن أن يكون 14 ، حيث أن المقارنة يجب أن تتم على أكبر عدد للطلاب والموجود في الخلية N13 .. ولكن عند التعديل لا يعمل بشكل سليم .. صراحة أحاول فهم المنطق ولكن عقلي متوقف هلا أوضحت لنا هذه الجزئية؟ عموماً حاولت التعديل في الكود ، وهذه محاولة متواضعة مني Sub UP() If Cells(1, 13) + 14 >= Cells(1, 14) Then Cells(1, 13) = Cells(1, 14): Exit Sub If Cells(1, 13) <= Cells(1, 14) Then Cells(1, 13) = Cells(1, 13) + 14 End If End Sub Sub DOWN() If Cells(1, 13) - 14 <= 0 Then Exit Sub Cells(1, 13) = Cells(1, 13) - 14 End Sub تقبل وافر تقديري واحترامي

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

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