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

أخي الكريم حراثي ضع الكود التالي في حدث الفورم Private Sub CommandButton1_Click() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Me.Hide Feuil1.PrintPreview Next I End Sub تقبل تحياتي

أخي العزيز حسام لما تضغط على الرابط بتدخل على صفحة وتنتظر 5 ثواني وبيظهر لك فوق يمين في أعلى الصفحة بعد الـ 5 ثواني كلمة Skip Ad بتضغط عليها وممكن دا يتكرر مرتين أو تلاتة .. تقبل تحياتي

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

بارك الله فيكم إخواني وأحبابي في الله أخي العزيز عبد العزيز بلاش الزنقات دي .. هسيبك تبحث في هذه النقطة وهي وضع أسماء اللغات في الصف الأول من النتائج التي تظهر أخي الحبيب حسام يكفينا منك كلمة "جزاكم الله خيراً" فهي أفضل ما في الدنيا وما فيها أخي الغالي أحمد الفلاحجي مشكور على مرورك العطر ، بالنسبة للدالة CDate تستخدم لتحويل النص إلى تاريخ حيث حرف الـ C يرمز لكلمة Convert أي تحويل جرب تغير السنة لـ 2016 وشوف هل سيحدث ذلك فارق أم لا ؟ جرب بنفسك .. أي سنة مش شرط 2015 .. تقبلوا تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الكرام في منتدى أوفيسنا رغم قلة التفاعل في الموضوعات التي تقدم ، ولا أقصد بالتفاعل الردود العادية ، إنما أقصد المشاركة بالبحث والنقد والتفنيد والتفحيص والتدقيق والتمحيص والإضافة ...رغم قلة التفاعل أقدم كل يوم موضوع جديد لعل وعسى أن يأتي أناس من بعدنا ليستفيدوا مما نقدم ويكون المنتدى لهم نبراساً يستنيرون به في هذا المجال أقدم لكم موضوع حول إدراج أسماء الشهور بكل اللغات .. إليكم الكود التالي ، قم بوضع الكود في موديول عادي ... ثم نفذ الكود ولاحظ النتائج بنفسك Sub ListMonthsInAllLanguages() 'يقوم الكود بإدراج أسماء شهور السنة بكل اللغات '--------------------------------------------- Dim R As Long, C As Long Dim strDate As Date Dim S, bFind As Boolean Application.ScreenUpdating = False For R = 1 To 12 For C = 1 To 99 strDate = CDate("01/" & Format(R, "00") & "/2015") S = "[$-4" & Format(C, "00") & "]MMMM" Cells(R, C).NumberFormat = S Cells(R, C).Value = strDate Next C Next R Columns.AutoFit Application.ScreenUpdating = True End Sub أرجو أن ينال الملف والموضوع إعجابكم وتستفيدوا منه إن شاء الله حمل الملف من هنا تقبلوا تحياتي كان معكم أخوكم أبو البراء

أخي الكريم أبو ذكري ضع الكود التالي في موديول Sub SortData() Dim Ws As Worksheet, LR As Long Set Ws = Sheets("ورقة2") LR = Range("B" & Rows.Count).End(xlUp).Row Range("B8:T" & LR).Sort Key1:=Range("P8:P" & LR), Order1:=xlDescending, Header:=xlNo End Sub ثم في حدث ورقة العمل الثانية ضع الكود التالي Private Sub Worksheet_Activate() Call SortData End Sub تقبل تحياتي

وعليكم السلام ورحمة الله والحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير تقبل تحياتي

أخي الكريم قم بإدراج موديول جديد وضع فيه الكود .. ثم قم بالضغط على Alt + F8 واختر الإجراء المسمى Test ثم انقر على زر الأمر Run .. لا تضع الكود في موديول ورقة العمل .. ولا تطلب أن يتم تنفيذ الكود بمجرد إحداث تغيير لأن كثرة التعامل مع أحداث التغير في ورقة العمل تثقل الملف بدون داعي تقبل تحياتي

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

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

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

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

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

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

أخي الكريم أنس يمثل الرقم 9 عدد الصفوف التي تسبق أول صف به معادلات جرب الملف المرفق التالي عله يفي بالغرض حمل الملف من هنا

أخي الكريم هاني حرحش لا أدري ما الفائدة منه ..وجدته بالملف الأصلي كما هو ولكن ربما يكون للبحث أو خلافة .. تقبل تحياتي

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

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

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

أخي الكريم عزيز عرابي يفضل دائماً إرفاق الملف الأصلي أو صورة معبرة عنه تماماً .. ارفق الملف وإن شاء الله نفيدك في المطلوب التعديل عليه ... تقبل تحياتي

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

أخي العزيز أبو عبد الواجد وعليكم السلام ورحمة الله وبركاته إليك ما طلبت إن شاء الله ستجد في موديول ورقة العملاء الكود المطلوب ..بمجرد كتابة اسم العميل سيتم نسخ ورقة العمل المسماة "الديباجة" ووضع اسم العميل في الخلية A2 .. حمل الملف من هنا تقبل تحياتي

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

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

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