Ahmed Saad 2017

هل من الممكن ان يكون ناتج Price Different = 0 اذا كان الصنف لم يتم شرائه خلال السنة سوي مره واحده

استاذ سليم المحترم هو في صنفين المعادلة لم تعمل بشكل سليم عليهم برجاء الافادة وهل من الممكن ان يكون ناتج Price Different = 0 اذا كان الصنف لم يتم شرائه خلال السنة سوي مره واحده New Microsoft Excel Worksheet.xlsx

الاجابة ممتازة بس لو امكن ممكن نشوف بقيت التعليقات ممكن نستفيد من كذا طريقة اخري

بارك الله فيك وزادك الله من فضله

السادة الزملاء المحترمين مطلوب معادلة مقارنة وبحث عن اخر سعر تم توريده خلال السنة مع سعر التوريد الذي يسبقه معادلة مقارنة اسعار التوريد اخر الشهر.xlsx

شكرا جزيلا و بعتذر علي عدم البحث

السادة الزملاء المحترمين محتاج شجرة حسابات باللغة العربية لتكويدها و تفعيلها علي نظام محاسبي جديد ولكم جزيل الشكر

تم عمل جميع الخطوات ولكن لم تعمل بشكل صحيح برجاء توضيح السبب

برجاء المساعدة

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

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

برجاء من الاخوة الكرام المساعدة في التعديل علي الكود المرسل ليتم ظهور شاشة انتظار "" جاري تنفيذ الكود "" اثناء عمل الكود و هل من الممكن ان تكون بها ميقات للوقت مرسل لسيادتكم الشيت و به الكود وشكرا لسيادتكم code.xlsm

بcode.xlsm

تم عمل نسخة من الشيت code.xlsm

استاذ عادل المحترم الكود ضمن ملف ملي بالاكواد و الداتا و الشيتات العديدة و يصعب رفعها لكبر حجم الشيت

برجاء من الاخوة الكرام المساعدة في التعديل علي الكود المرسل ليتم ظهور شاشة انتظار "" جاري تنفيذ الكود "" اثناء عمل الكود و هل من الممكن ان تكون بها ميقات للوقت مرسل لسيادتكم الكود وشكرا لسيادتكم Sub ChartFormulaChange() Dim CH As Worksheet Dim Answer As Byte t = Timer Range("a1") = vbNullString Answer = MsgBox("هل تريد تحديث خريطة الاصناف? Ahmed Saad", 4) If Answer = 6 Then Set CH = Sheets("Chart") Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.EnableEvents = False Range("b10").AutoFilter lr = CH.Range("E" & Rows.Count).End(xlUp).Row CH.Range("B1").Copy CH.Range("B11:B" & lr).PasteSpecial xlPasteFormulas ActiveSheet.Calculate arr = CH.Range("B11:B" & lr) CH.Range("B11:B" & lr) = arr Range("b10").AutoFilter Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True t = Int(Timer - t) MsgBox "Ahmed Saad تم تحديث خريطة الاصناف فى " & t & " ثانيه" End If End Sub

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

هل ممكن اضافة تعديل علي الكود بحيث يكون هناك اختيار OK او cancel في msgbox لتنفيذ الكود او الالغاء لانه بيحصل ان ممكن الضغط على زر تشغيل الكود بالخطأ و يتعذر إلغاء تشغيل الكود

بشكر حضرتك علي المساعدة بس انا محتاج ان الكود ينشأ ملف عمل جديد بأسم الفلتر و ليس شيت جديد في ورقة العمل فبرجاء لو في حل آخر تساعدنا بيه Copy of New Microsoft Excel Worksheet (13).xlsx

السادة الزملاء المحترمين برجاء المساعدة في انشاء كود فلترة و انشاء شيت جديد للبيانات بحيث انه يتم عمل فلتر علي العمود A ثم يتم انشاء جديد وليس تاب بأسم الرو و ترحيل الداتا المفلترة الي الشيت الجديد مرفق الشيت Copy of New Microsoft Excel Worksheet (13).xlsx

استاذ علي محتاج اعمل معادله صحيحه لجمع ساعات التاخير و ساعات الاضافي بالنسبة لكل موظف في حالة ان ساعات العمل الفعليه اقل من ساعات العمل الرسميه او اكبر من ساعات العمل الرسمية و تكون مكونة من ساعات و دقائق InOutData0000000fwe.xlsx

شكرا لحضرتك يا استاذ علي هل من الممكن احتساب عدد ساعات العمل بين الرقمين InOutData0000000.xlsx

الاخوة الزملاء المحترمين برجاء المساعدة في فصل بيانت عمود في شيت ماكينة الحضور و الانصراف بحيث يتم فصل الوقت عن التاريخ مع العلم بانه تم الفصل بمعادلة mid ولكنه لم تحول البيانت الي تاريخ او وقت وتم التعرف عليها بانها ارقام مرسل للسيادتكم الشيت وملون العمود بلون اصفر وشكرا InOutData.xls