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

تفضل أخي الكريم شرح الكود Sub CopyRows() 'تعريف المتغيرات Dim LR As Long, I As Long, X As Long '[D]تحديد آخر صف به بيانات بالعمود LR = Sheets("Sheet1").Cells(Rows.Count, "D").End(xlUp).Row 'متغير يحمل القيمة 5 كبداية للصفوف المراد نسخ الصفوف إليها ، أي أن الرقم 5 هو صف البداية للنتائج X = 5 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'مسح الصفوف في ورقة النتائج بداية من الصف الخامس إلى الصف الألف Sheets("Sheet2").Rows("5:1000").ClearContents 'وحتى آخر خلية بها بيانات لعمل شرط على قيمة الخلية[Sheet1]حلقة تكرارية بداية من الصف الرابع في ورقة العمل For I = 4 To LR 'إذا كانت قيمة الخلية في العمود الرابع تساوي واحد 'يقوم هذا السطر في حالة تحقق الشرط بنسخ الصف إلى ورقة النتائج في الصف الخامس كبداية 'بمقدار 1 استعداداً لنسخ صف جديد في حالة تحقق الشرط[X]ثم بعد عملية النسخ واللصق يتم زيادة المتغير If Cells(I, "D").Value = 1 Then Rows(I).Copy Sheets("Sheet2").Range("A" & X): X = X + 1 'الانتقال لصف جديد لعمل اللازم Next I 'إلغاء خاصية النسخ واللصق Application.CutCopyMode = False 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub لا تنسانا بدعوة بظهر الغيب

أخي الحبيب جرب الملف التالي إذا كان يفي بالغرض سأقوم إن شاء الله بشرحه لك يرجى تغيير اسم الموضوع لعنوان يتعلق بالموضوع مثلا (نسخ صفوف في حالة تحقق شرط معين) Transfer Rows.rar

الأخ الفاضل هاني جرب الملف التالي عله يفي بالغرض Copy Skipping Formulas.rar

بسم الله ما شاء الله .هكذا يكون العمل مساهمة بسيطة مني دالة معرفة تقوم بنفس الوظيفة من سطر واحد فقط Function NB_DAYS(date_test As Date) NB_DAYS = Day(DateSerial(Year(date_test), Month(date_test) + 1, 1) - 1) End Function وإليكم إخواني (اللي بيحبوا يحتفظوا بالأرشيف) ملف مجمع فيه كل الحلول السابقة للأساتذة الكبار Number Of Days In A Month.rar

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

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

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الأغر ... هل ....؟ سؤال موجه لكم وليس لي هل .....؟ والإجابة على السؤال بهل إما بـ "نعم" أو بـ "لا" هل قمت يوماً ما بتحميل مصحف كامل لأحد القراء المحببين إليك؟ إذا كانت الإجابة بنعم انتقل للسؤال الثاني وإذا كانت الإجابة بـ "لا" .. مش عيب عليك تحمل أفلام ومسلسلات وألعاب وناسي كتاب الله السؤال الثاني : هل بعد عملية التحميل وجدت أن المجلد الذي يحتوي على السور مرقمة من 001 و 002 إلى 114 بدون أسماء السور؟ إذا كانت الإجابة بـ "نعم" فإليك الحل السحري مع الإكسل .. الحل هو دمج أسماء السور مع الاحتفاظ بالرقم أيضاً من أجل ترتيب السور ، لتصبح في النهاية بهذا الشكل 001 - الفاتحة ، 002 - البقرة وهكذا!! خطوات العمل : ************** قم بنسخ المصنف الذي سأقوم بإرفاقه في نفس مسار المجلد الذي يحتوي على السور القرآنية .. افتح المصنف .. اضغط زر الأمر .. وشكراً لكم على حسن تعاونكم معنا أترككم مع الملف :fff: Rename Quran Files.rar

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

تفضل أخي الحبيب Dynamic Chart.rar

الأخ الفاضل من التبويب Data انقر Data Validation ثم واختار من الحقل Allow اختار Decimal بدلاً من Whole Number ...@ انتهى

جرب إضافة هذه الأسطر في بداية الكود Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False وهذه الأسطر في نهاية الكود Application.EnableEvents = True Application.Calculation = xlAutomatic Application.ScreenUpdating = True

أخي الحبيب قصي إليك الكود التالي .. Sub PageBreaks() For Each Cell In Columns("A").SpecialCells(xlCellTypeConstants) If Cell.Value Like "Page:*" Then ActiveWindow.SelectedSheets.HPageBreaks.Add Cell.Offset(1, 0) End If Next End Sub يقوم الكود بعمل فاصل للصفحة بناءً على النص Page: ثم أي أرقام مثلا Page: 1 تكون هذه النصوص في العمود A ، فيتم إدراج فاصل للصفحات بعد هذا النص

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

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

جرب المعادلة =ROUND(SUMPRODUCT(($B$1:$B$8*15%)*($C$1:$C$8<>"لا")),2)

ارفق ملفك للمحاولة .. قصدت بكسر الحماية حماية محرر الأكواد ..

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

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

قومي بضغط الملف أولا ببرنامج ضغط مثل الوينرار ثم قومي برفعه ..

تفضل أخ مراد الطلب الأول الخاص بجديد ... File v1.0.rar

انظر لردك على الأخ الحبيب حسام ... هل هذا رد يناسب طلب الأخ حسام؟!! طلب منك الأخ حسام تقسيم الطلب في حالة كان هناك أكثر من طلب أو أكثر من جزئية يرجى الاهتمام بالمشاركات حتى تجد الاهتمام من الآخرين ..

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

الأخت الفاضلة نهال أفضل إرفاق ملفك للعمل عليه

أنا جربت الملف ودخل عادي admin 123456 وبعدها دخل على Sheet2 مباشرة !!! حاول تحدد مشكلتك بشكل أدق

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