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

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

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

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

لا يوجد مرفق ولا شرح عموما اطلع على هذا الرابط عله يفيدك

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

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

الاخ الفاضل زيزو جرب الملف التالي ... لايمكن إدراج بيانات بداية من الصف السابع عشر ... الصف الـ 17 ممنوع!! Restrict Entries Number To Specific Row.rar

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

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

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

تفضل الكود بعد التعديل المطلوب Sub TarhilClientData() Dim LR As Long Dim sDate As Long, sClient As Long LR = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row sDate = Application.WorksheetFunction.Match(Sheet3.Range("C5"), Sheet2.Range("A1:A" & LR), 0) sClient = Application.WorksheetFunction.Match(Sheet3.Range("C7"), Sheet2.Rows(1), 0) Application.ScreenUpdating = False Sheet3.Range("C10:C13").Copy Sheet2.Cells(sDate, sClient).PasteSpecial xlPasteValues Sheet2.Activate Sheet2.Cells(sDate, sClient).Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

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

أعتقد بالنسبة للفيديوهات أمرها صعب شوية خصوصاً اليوتيوب .. فيه إضافة للفايرفوكس جميلة جدا اسمها Video Download Helper بتجيب لك الروابط الخاصة بالفيديو بكل الأحجام .. https://addons.mozilla.org/en-US/firefox/addon/video-downloadhelper/ دا الرابط الخاص بالإضافة

تسلم أخي الحبيب خزاني على كل ما تقدمه الملف يعطيني خطأ Debug عند فتحه

الحمد لله أن تم بخير .. يمكن إظهار أي ورقة من خلال محرر الأكواد عن طريق تحديد الورقة ومن النافذة Properties نافذة الخصائص هتلاقي آخر خاصية خاصة بهذا الأمر

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

الاخ الكريم الحسام إليك الملف التالي عله يكون المطلوب إن شاء الباري Sub TarhilClientData() Dim LR As Long Dim sDate As Long, sClient As Long LR = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row sDate = Application.WorksheetFunction.Match(Sheet3.Range("C5"), Sheet2.Range("A1:A" & LR), 0) sClient = Application.WorksheetFunction.Match(Sheet3.Range("C7"), Sheet2.Rows(1), 0) Application.ScreenUpdating = False Sheet3.Range("B10:B13").Copy Sheet2.Cells(sDate, sClient).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Tarhil Invoice To DataBase Based On Match Function.rar

الأخ الكريم أحمد إليك الملف المرفق لعله يكون المطلوب إن شاء المولى Conditional Formatting Today's Formula.rar

ارفق ملفك أخي الفاضل للعمل عليه

الأخ الفاضل يرجى الصبر حتى تجد رداً على كل مشاركة !!!!!!!!

يوجد ورقة عمل باسم Sheet1 مخفية ... ما المشكلة في ذلك ؟ هل تريد معرفة كيف تم إخفائها ؟

الأداة لا تعمل على أوفيس 2007 ..

محدد مشاركتك رقم 4 كأفضل إجابة (تشكر يا سيد عبد العزيز) أعتقد أنه يجب تحديد المشاركة رقم 2 (دا إذا مكانش يضايقك طبعاً) تقبل تحياتي

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

جرب هذا الملف لعله يكون المطلوب Progress Bar Fading UserForms.rar