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

أخي الكريم ماجد إليك الحل التالي Sub FilterDataAccordingToDates() Dim WS As Worksheet, SH As Worksheet Dim Cell As Range, lRow As Long Set WS = Sheets("Invoices"): Set SH = Sheets("Inv.History") lRow = 5 Application.ScreenUpdating = False SH.Range("A5:N1000").ClearContents For Each Cell In WS.Range("B2:B" & WS.Cells(Rows.Count, 2).End(xlUp).Row) If Cell.Value = SH.Range("C2").Value Then Cell.Offset(, -1).Resize(, 14).Copy SH.Cells(lRow, 1).PasteSpecial xlPasteValues lRow = lRow + 1 End If Next Cell SH.Range("C2").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي Invoices.rar

أخي الكريم أبو عبد الملك إليك الملف التالي فيه النقطة الاولى .. يرجى في كل مرة تناول نقطة واحدة وبالتفصيل ... النقطة الواحدة بالتفصيل حجم الملف 136 كيلو بايت Quran School V2.rar

أخي الحبيب أبو صلاح جرب الكود بهذا الشكل Sub Test() Dim LR As Long, Answer As Long LR = Cells(Rows.Count, 4).End(3).Row Answer = MsgBox("هل تريد الاستمرار؟", vbYesNoCancel) If Answer = vbYes Then Range("H11:H1000").ClearContents With Range("H11:H" & LR) .Value = "مستجد" End With Else End If End Sub

بعد إذن أخي الكريم محيي الدين كان يجب إرفاق الملف وليس صورة مع ذكر بعض النتائج المتوقعة عموماً حسب ما فهمت بقدر ما فهمت (وأنا على أدي في موضوع الفهم ده فالناس تعذرني لقلة فهمي) Sum Digits In Numbers YasserKhalil.rar

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

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

أخي الكريم ياسر نوح مشكور على كلماتك الطيبة وشعورك النبيل جرب التعديل في الكود بهذا الشكل Sub M_ELSHRIEF() Dim Answer As Long, lCount As Long Dim iStart As Integer, iEnd As Integer Answer = MsgBox("هل تود الطباعة بعد المعاينة ؟", vbYesNo + vbQuestion, "طباعة") On Error Resume Next If Answer = vbYes Then iStart = InputBox("أدخل بداية الحلقة التكرارية من 1 إلى 12", "YasserKhalil", 1) iEnd = InputBox("أدخل نهاية الحلقة التكرارية من 1 إلى 12", "YasserKhalil", 12) '[L2] حلقة تكرارية من 1 إلى 12 ليتم وضع قيم الحلقة في الخلية For lCount = iStart To iEnd 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet .Range("L2").Value = lCount 'هذا السطر لمعاينة ورقة العمل النشطة .PrintPreview 'طباعة ورقة العمل النشطة نسخة واحدة '.PrintOut Copies:=1 End With Next lCount End If End Sub تقبل تحياتي

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

أخي الكريم جرب الملف المرفق اضغط Alt+ F8 واختار الماكرو ثم انقر RUN العملاء.rar

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

المرفق غير واضح على الإطلاق

بارك الله فيك أخي سليم وجزيت خيراً على مرورك العطر بالموضوع

الحمد لله لم يتم تحديد أفضل إجابة ..........

خليك في انتظار السمك .. المنتدى تعليمي مش بس لحل المشكلات .. وبعدين اللي عايز حاجة هيدور عليها ولازم يتعب عشان المعلومة تثبت

34 مشاركة في موضوع الترحيل للناجحين والراسبين رغم أن الأخ الكريم القومي بارك الله فيه قدم لك الحل في بداية الموضوع .. وقمت بشرح الكود لتفهم أجزائه وقام الأخ الغالي أسامة بالإضافة التي تريدها ..أظن أن الموضوع استكفي .. ثم إن موضوع التسلسل موجود بالمنتدى قم بالبحث (لا تنتظر دائماً أن نعطيك السمكة فلربما يأتي اليوم الذي لا تجد فيه من يصطاد لك) اتعب شوية لو فعلاً عايز تتعلم أنا في بدايات تعلمي للإكسيل كنت ممكن أفضل جنب الملف أسبوع ويمكن شهر لحد ما أفهم اتعمل إزاي !!! دي مجرد تلميحة عشان تعرف أنك لازم تتعب عشان تتعلم وأقولها تاني Come easy go easy اللي ييجي بالسهل يروح بالسهل ، واللي يتعلم ياكل السمك جاهز عمره ما هيعرف يصطاد

الأخ أنيس راجع الرابط التالي عله يفيدك من هنا

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

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

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

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

أخي الحبيب أسامة بارك الله فيك على المجهود الرائع بالنسبة لاقتراحك يوجد موضوع بهذا الخصوص على الرابط التالي http://www.officena.net/ib/index.php?showtopic=59925 وقد نوهت إلى أن هذه الطريقة هي الأفضل (ولكن أرى أيضاً أن كتابة اسم ورقة العمل يوضح لصاحب الطلب أن العمل سيكون على أي ورقة) عموما كل السبل تؤدي إلى الشيت تقبل تحياتي

الأكواد مرنة وتبدأ من أي رقم وحتى لو الأرقام غير مرتبة ارفق ملفك للإطلاع عليه أخي الكريم

الحمد لله الذي بنعمته تتم الصالحات لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. وإلى موضوع آخر ولكن الرجاء الصبر ..يعني لا تنزعج إذا تأخرنا عليك في الرد

أخي الكريم يضايقني جدا المشاركات المتتالية بدون داعي كان من الممكن أن تكون المشاركة رقم 21 و 22 في مشاركة واحدة الرجاء الالتزام بالتوجيهات

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