برنامج يفيد جميع العاملين بالمطاعم

[محمودبك]

الاستاذ / ياسر                        المحترم

تحياتى

جميلة وبسيطة ايضا

بارك الله قيك

ولك استاذى الفاضل 

كيفة جمع الكميات المستهلكة بالتاريخ

بارك الله فيك وكل عام وانتم بخير

[علاء رسلان]

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

شكر للأخ ياسر ابو البراء ..

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

 

Recipe YK2.rar

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

أخي الكريم محمود

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

والتوضيح يكون بلغة الخلايا والأعمدة ..

تقبل تحياتي

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

أخي الحبيب علاء رسلان

أشهد الله أني أحبك في الله

إليك هذه الهدية وإن شاء الله تكون مقبولة

 

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

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

Sub ExtractUsingArrays()
    Dim X, Y(), T(), I&
    With Sheets("إدخال")
        .Range("H2:BH1000").ClearContents
        X = .Range("C2:D" & .Cells(Rows.Count, 3).End(xlUp).Row).Value
    End With
    ReDim Y(1 To UBound(X), 1 To 2)

    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For I = 1 To UBound(X)
            .Item(X(I, 1)) = Array(I, X(I, 2), 0)
        Next I

        With Sheets("Recipe")
            X = .Range("B1:G" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
        End With
        For I = 2 To UBound(X)
            If .Exists(X(I, 1)) Then
                T = .Item(X(I, 1)): T(2) = T(2) + 2
                If T(2) > UBound(Y, 2) Then ReDim Preserve Y(1 To UBound(Y), 1 To UBound(Y, 2) + 2)
                Y(T(0), T(2) - 1) = X(I, 2): Y(T(0), T(2)) = X(I, 6) * T(1)
                .Item(X(I, 1)) = T()
            End If
        Next I
    End With

    Sheets("إدخال").Range("H2").Resize(UBound(Y), UBound(Y, 2)).Value = Y
    Sheets("إدخال").Columns("H:AU").AutoFit
End Sub

تقبل هديتي وتحياتي

Extract Data Using Arrays YK.rar

[علاء رسلان]

أخى الكريم ياسر أبو البراء

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

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

جزاك الله خيرا أخى الكريم و جمعنا و أياك تحت ظله ، دمت بخير و أعزك الله .

[صلاح الدين سعيد]

السلام عليكم ورحمة الله وبركاته

أشكر أستاذ ياسر وكذلك أستاذ علاء على الإهتمام بالموضوع وما توصل له الأستاذ ياسر هو المطلوب عمله بالظبط وسوف يساعدني هذا الشيت كثيراً في عملي

ولكن أنا طماع شوية علشان بصراحة حاولت أجمع الأصناف والكميات في شيت منفصل ما عرفتش

يا ترى في معادلة تجمع لي المنصرفات في شيت منفصل بحيث يكون العمود الأول عبارة عن الأصناف والعمود الثاني عبارة عن الكمية حتى أستطيع عمل PIvot Table

وطباعة المنصرفات

ثانياً سؤال بالنسبة للكود اللي كتبه أستاذ ياسر هل في حاجة في Option الإكسيل لازم أعملها Enable علشان الكود يشتغل

بصراحة الأستاذ ياسر ( برنس برنس يعني مش أي حاجة )

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

أخي الحبيب .. لم تستجب لمطلبي في تغيير اسم الظهور للغة العربية (هذه نقطة)

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

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

ارفق نموذج لشكل المطلوب

 

بالنسبة للكود لكي يعمل يجب مشاهدة الفيديو التالي

 

بارك الله فيك وجزيت خيراً على كلماتك الرقيقة

تقبل تحياتي

[صلاح الدين سعيد]

أستاذ ياسر أعتذر عن عدم تغيير الإسم و أعدك بالتغيير بس أعرف منين الأول وبعدين هاعدله

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

مطلوب تجميعها بشكل رأسي في شيت الإجمالي كما هو موضح بالمرفق ولا يهم تكرار الصنف لأنه سوف يتم عمل pivot table

غير أنني سأضيف بعض الأعمدة بعد عمل المعادلة

وأشكرك على إهتمامك يا عبقري الإكسيل وأتمنى أن أصل لمستواك في الإكسيل :smile:

Recipe YK.rar

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

اعذرني أخي الكريم

رغم الملف المرفق إلا أن الصورة غير واضحة ...قد تبدو الصورة واضحة لك من منظور لكنها ليست واضحة لي من منظوري

هناك في ورقة العمل "إدخال" في العمود B يوجد أصناف وكما عملنا على الملف فإن لكل صنف أصناف أخرى فرعية

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

 

هل الاستخراج سيكون لصنف واحد رئيسي فقط ؟ أم أن الاستخراج للبيانات سيقوم بعملية تجميع كل الأصناف الفرعية ؟

[صلاح الدين سعيد]

اعذرني أخي الكريم

رغم الملف المرفق إلا أن الصورة غير واضحة ...قد تبدو الصورة واضحة لك من منظور لكنها ليست واضحة لي من منظوري

هناك في ورقة العمل "إدخال" في العمود B يوجد أصناف وكما عملنا على الملف فإن لكل صنف أصناف أخرى فرعية

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

 

هل الاستخراج سيكون لصنف واحد رئيسي فقط ؟ أم أن الاستخراج للبيانات سيقوم بعملية تجميع كل الأصناف الفرعية ؟

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

علشان أنا أعمل Pivot table  عليها وأطلع ليها تجميعي عام

تم تعديل يونيو 7, 2015 بواسطه nassif2002

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

إن شاء الله ليلاً سأقوم بعمل المطلوب ..

الآن لدي بعض المشاغل والأمور التي يجب أن أقوم بها

 

أحببت التأكد من نقطة محددة ..العمل سيكون من ورقة العمل "إدخال" إلى ورقة العمل "إجمالي"؟

سيتم نقل البيانات من الصورة الأفقية عبر الصفوف إلى أعمدة ؟

سؤال أخير : هل هناك أي بيانات مكررة ؟ أقصد أصناف فرعية مكررة ؟ أم أن الأصناف غير مكررة ؟ (سؤال هام)

[صلاح الدين سعيد]

إن شاء الله ليلاً سأقوم بعمل المطلوب ..

الآن لدي بعض المشاغل والأمور التي يجب أن أقوم بها

 

أحببت التأكد من نقطة محددة ..العمل سيكون من ورقة العمل "إدخال" إلى ورقة العمل "إجمالي"؟

سيتم نقل البيانات من الصورة الأفقية عبر الصفوف إلى أعمدة ؟

سؤال أخير : هل هناك أي بيانات مكررة ؟ أقصد أصناف فرعية مكررة ؟ أم أن الأصناف غير مكررة ؟ (سؤال هام)

العمل سيكون من ورقة العمل "إدخال" إلى ورقة العمل "إجمالي"؟ نعم

سيتم نقل البيانات من الصورة الأفقية عبر الصفوف إلى أعمدة ؟ نعم ولكن على عمودين فقط واحد بالأصناف والآخر بالكميات

هل هناك أي بيانات مكررة ؟ أقصد أصناف فرعية مكررة ؟ أم أن الأصناف غير مكررة ؟ نعم هناك أصناف مكررة

وإذا أردت أي توضيح برجاء موافاتي وسوف أقوم بالرد عليك

شكرا يا أستاذ ياسر  أخوك في الله صلاح

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

الأخ الكريم صلاح الدين سعيد

مبروك عليك الاسم الجديد

إليك الكود التالي عله يكون المطلوب

Sub MyReport()
    Dim SN, I As Long, J As Long, N As Long
    Sheets("إجمالي").Range("A1:B1000").ClearContents
    SN = Sheets("إدخال").Range("H1:AU" & Sheets("إدخال").Cells(Rows.Count, 8).End(xlUp).Row)
    
    ReDim Arr(UBound(SN) * UBound(SN, 2), 2)
    For I = 2 To UBound(SN)
        For J = 1 To UBound(SN, 2) Step 2
            If SN(I, J) <> "" Then
                Arr(N, 0) = SN(I, J)
                Arr(N, 1) = SN(I, J + 1)
                N = N + 1
            End If
        Next J
    Next I
    
    With Sheets("إجمالي")
        .Cells(2, 1).Resize(N, 2) = Arr
        .Cells(1, 1) = "اسم الصنف": .Cells(1, 2) = "الكمية المنصرفة"
    End With
End Sub

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

 

لا تنسى الالتزام بالتوجيهات على هذا الرابط (من هنا) ، وتحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

تقبل تحياتي

Recipe YasserKhalil.rar

[صلاح الدين سعيد]

الله يبارك فيك يا استاذ ياسر انا غيرت الاسم علشان خاطرك

بس قوللي أعمل إيه في الكود ده يعني أشغله ازاي وفين شيت الإجمالي في المرفق ده

ثانيا هو مش ممكن عمل معادلة علشان أتعلم منها ازاي اعملها واطبقها بعد كده

أنا تقلت عليك انا عارف بس انت بالنسبة لي المنقذ وشكرا لإهتمامك

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

أخي صلاح الدين

هل قمت بتحميل المرفق في المشاركة رقم 38؟

شيت أو ورقة العمل إجمالي موجودة فين؟ في المرفق والله ... سؤال غريب شويتين ..

بالنسبة للكود أسهل وأيسر وأخف للملف خصوصاً مع البيانات الكثيرة

قم بتحميل المرفق في المشاركة رقم 38 وافتح المرفق وواحدة واحدة أنا إن شاء الله معاك

ورقة العمل "إجمالي" بلاقيها تحت في تبويبات الملف ، لما تنقر عليها هتلاقي نفسك في الشيت (اوعى حد يخطفك هناك)

هتلاقي زر أمر مكتوب عليه "قل لا إله إلا الله" اوعى تكون مقولتش لأزعل منك

انقر زر الأمر وبس خلاص على رأي يسرولة (يسرولة على وزن شعبولة..مش أحسن مني شعبان عشان يدلع وأنا لا)

توكل على الله

[صلاح الدين سعيد]

سبحان الله الشيت ظهر ( هييييييييييييييييييييييه )

دوست عليه وانا خايف بعد ما حذرتني من الخطف بس الحمد لله جت سليمة

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

حتى لو في نفس التاريخ ( انت زهقت أنا عارف ) بس المرفق هيوضح لك

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

عايز شيت الاجمالي يكون فيه التاريخ ( عمود ا ) الفرع ( عمود 2) عمود 3 نوع الحركة الصنف ( عمود 4) الكمية ( عمود 5 )

وأنا هاوفر عليك وأعمل أنا filter وكمان pivot table

Recipe YasserKhalil.rar

تم تعديل يونيو 7, 2015 بواسطه صلاح الدين سعيد

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

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

انظر لعدد المشاركات بالموضوع .. وصل لـ 41 مشاركة ..أعتقد كدا كفاية على الموضوع ..

 

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

** لا تنسى أن تضغط كلمة "أعجبني هذا" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل)

تقبل تحياتي

[صلاح الدين سعيد]

عفوا اخي الكريم تقبل اعتذاري

وتم الضغط على اجاباتك كافضل اجابة

واشكرك على كرمك ولكن الموضوع بالنسبة لي هااااااااااااااااااااااااااام جداااااااااااااااااااااااااااا

لانه سوف يقوم بعمل طفرة ليست بالقليلة في مكان عملي وسيستفيد منه الكثيرون ( ولك الاجر والثواب )

وجزاك الله عنا خيرا ومعلش خليها 43 مش هيحصل حاجة

تم تعديل يونيو 7, 2015 بواسطه صلاح الدين سعيد

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

أخي الحبيب

يرجى تفهم العمل بالمنتدى

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

الإجابة المناسبة للاختيار هي المشاركة رقم 38 وليست المشاركة التي حددتها

 

ثانياً طرح موضوع جديد لن يكلفك الكثير من الوقت ..فقط ضع عنوان مناسب للموضوع (يرجى الابتعاد عن الكلمات الغير ضرورية في العنوان )

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

على سبيل المثال : عمل تقرير تفصيلي للبيانات من ورقة عمل أخرى

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

 

تقبل تحياتي

[أيمن سليم]

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

باسورد 27102003

Finel Recipe-Ayman.rar