الرجاء المساعدة من عمالقة هذا المنتدى العظيم

[Yasser Fathi Albanna]

السادة الأفاضل أعضاء وعمالقة هذا المنتدى العظيم

بعد التحية

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

والمطلوب كالتالى :

الملف المرفق به شيتين عبارة عن

Sales Report

Achievement

المطلوب يوجد فى الشيت achievement أسماء من فروع مذكورة فى الشيت Sales Report

بها مستهدف ومحقق ونسبة فى كل شركة من الشركات المذكورة فى Sales Report

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

والإسم مذكور أمامه الفرع التابع له

هل يوجد كود لذلك

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

وشكرا لكم جميعا

http://www.4shared.com/account/home.jsp#dir=eJ8P_jVD

[Yasser Fathi Albanna]

الرجاء المساعدة ولكم خالص الشكر والتقدير

[Yasser Fathi Albanna]

هل فى أى إستفسار عن أى شيء عن المطلوب

الرجاء الإفادة والمساعدة

[Yasser Fathi Albanna]

للرفع

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

يظهر خطأ عند محاولة تحميل الملف

يرجى رفع الملف على موقع آخر .

أو عمل نمذج مبسط يكون أفضل (نموذج من المطلوب وارفعه على سيرفر المنتدى)

تقبل تحياتي

[الشهابي]

أخي العزيز / ياسر في مشكلة  في تحميل الملف 

[الشهابي]

ما شاء الله عليك أستاذي العزيز/ ياسر خليل 

اجمتع اليسرين إن شاء الله

نحلة المنتدى نجدك في كل مكان الله يحفظك من كل مكروه 

ويديم علينا وجودك بيننا ويبارك لك في كل أعمالك 

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

أخي وحبيبي في الله الشهابي

بارك الله فيك ومشكور على كلماتك الرقيقة في حقي .. وعلى دعائك الطيب ..

حفظنا الله وإياك من كل سوء .. وجمع بيننا في الجنة إنه ولي ذلك والقادر عليه

[Yasser Fathi Albanna]

إخوانى وأساتذتى الأعزاء 

أ / ياسر خليل

أ / الشهابى

شكرا لمروركم العظيم

تم تغيير الرابط وهو

 

http://www.mediafire.com/download/b5op2hm2bh5iolx/Sales+Report.rar

http://www.mediafire.com/download/b5op2hm2bh5iolx/Sales+Report.rar

http://up.top4top.net/downloadf-top4top_893ee08e761-rar.html

[احمد عبد الناصر]

السلام عليكم

 

لست متأكد من المطلوب ...

 

جرب هذه المعادلة في خلايا اعمدة "المحقق"

=SUMIFS('Sales Report'!$F:$F;'Sales Report'!$L:$L;$B3;'Sales Report'!$C:$C;INDEX($1:$1;1;COLUMN()-1))

من المفترض انها مرنة تعمل علي كل الاعمدة .

 

تحياتي

[حمادة عمر]

السلام عليكم

الاخ الحبيب /احمد عبد الناصر

بارك الله فيك

طالت غيبتك عنا ... لعله خيرا ان شاء الله

دمتم بصحة وسلام

تقبل خالص تحياتي

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

أخي حمادة العفريت ..مخدتش بالك من العنوان دا كماااااااان ..

شوف شغلك يا عفريت ولا لازم كل مرة أدعك الفانوس الإكسيلي

[Yasser Fathi Albanna]

السلام عليكم

 

لست متأكد من المطلوب ...

 

جرب هذه المعادلة في خلايا اعمدة "المحقق"

=SUMIFS('Sales Report'!$F:$F;'Sales Report'!$L:$L;$B3;'Sales Report'!$C:$C;INDEX($1:$1;1;COLUMN()-1))

من المفترض انها مرنة تعمل علي كل الاعمدة .

 

تحياتي

 

أخى وأستاذى ومعلمى القدير / احمد عبد الناصر

يسعدنى ويشرفنى مرورك على موضوع لى بالفعل معادلة رائعة بمعنى الكلمة سلمت يمينك وحفظك الله ورعاك

ولكن إسمح لى بطلب أخر لو أمكن من حضرتك

هل يمكن تنفيذ هذه المعادلة بكود برمجى مرتبط بزر عند الضغط عليه يقوم بسحب بيانات المحقق من Sales Report

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

وبعد إذن حضرتك ممكن فى خانة الأسماء عمل قائمة منسدلة بكل الأسماء الموجودة بشيت Sales Report بإمكانية البحث

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

بعد إذن حضرتك أنظر إلى المطلوب بالرابط الأتى

http://www.mediafire.com/download/b5op2hm2bh5iolx/Sales+Report.rar

تم تعديل مارس 21, 2015 بواسطه Eng : Yasser Fathi Albanna

[Yasser Fathi Albanna]

للرفع أساتذتى وإخوانى الكرام

[Yasser Fathi Albanna]

للرفع بعد إذن حضراتكم

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

أخي ياسر إنت رجل قديم ..يعني المفروض عنوان الموضوع يكون معبر عن الموضوع .

متعملهاش تاني !!!

إليك الكود التالي ...

الكود سوف يستغرق حوالي 4 أو 5 دقائق نظرا لحجم البيانات الهائلة الموجودة بالملف .. وأنصحك ألا تستخدم التنسيقات الكثيرة التي تسبب كبر حجم الملف

Sub SUMIFSVBA()
    Dim Cell As Range
    Dim LR As Long
    Dim rngNetValue As Range
    Dim rngNames As Range
    Dim rngGroup As Range
    Dim X As Double, Y
    Dim ICol As Long
    
    LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    Set rngNetValue = Sheet1.Range("F2:F" & LR)
    Set rngNames = Sheet1.Range("L2:L" & LR)
    Set rngGroup = Sheet1.Range("C2:C" & LR)
    
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
        On Error Resume Next
        For ICol = 5 To 122 Step 3
            For Each Cell In Sheet2.Range("A6:A51")
                If IsNumeric(Cell) Then
                    Y = Application.WorksheetFunction.Index(Rows(4), 1, Cell.Offset(, ICol - 1).Column - 1)
                    X = Application.WorksheetFunction.SumIfs(rngNetValue, rngNames, Cell.Offset(, 1), rngGroup, Y)
                    Cell.Offset(, ICol - 1).Value = X
                End If
            Next Cell
        Next ICol
    MsgBox "تم بحمد الله"
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

[Yasser Fathi Albanna]

 

أخي ياسر إنت رجل قديم ..يعني المفروض عنوان الموضوع يكون معبر عن الموضوع .

متعملهاش تاني !!!

إليك الكود التالي ...

الكود سوف يستغرق حوالي 4 أو 5 دقائق نظرا لحجم البيانات الهائلة الموجودة بالملف .. وأنصحك ألا تستخدم التنسيقات الكثيرة التي تسبب كبر حجم الملف

Sub SUMIFSVBA()
    Dim Cell As Range
    Dim LR As Long
    Dim rngNetValue As Range
    Dim rngNames As Range
    Dim rngGroup As Range
    Dim X As Double, Y
    Dim ICol As Long
    
    LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    Set rngNetValue = Sheet1.Range("F2:F" & LR)
    Set rngNames = Sheet1.Range("L2:L" & LR)
    Set rngGroup = Sheet1.Range("C2:C" & LR)
    
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
        On Error Resume Next
        For ICol = 5 To 122 Step 3
            For Each Cell In Sheet2.Range("A6:A51")
                If IsNumeric(Cell) Then
                    Y = Application.WorksheetFunction.Index(Rows(4), 1, Cell.Offset(, ICol - 1).Column - 1)
                    X = Application.WorksheetFunction.SumIfs(rngNetValue, rngNames, Cell.Offset(, 1), rngGroup, Y)
                    Cell.Offset(, ICol - 1).Value = X
                End If
            Next Cell
        Next ICol
    MsgBox "تم بحمد الله"
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

سلمت يمينك أخى الحبيب ياسر

وهاخد بالى المرة الجاية حاضر

بس ممكن طلب أخر كنت ذكرته فى المشاركة رقم 13  وهو

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

وأيضا عمل قائمة منسدلة داخل شيت Achievement  فى الأسماء من داخل الأسماء الموجودة بشيت Sales Report دون تكرار مع إمكانية البحث داخل القائمة

وعارف إنى بتعبك معايا يا غالى

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

الطلبات الكثيرة ترهقني والله ..

واحدة واحدة عليا ..أنا بقالي نص ساعة في الطلب الأول ..

ومقلتش هل الكود ضبط معاك أم لا .. هل النتائج مضبوطة كما هي متوقعة !!؟؟

[Yasser Fathi Albanna]

بالفعل أخى الحبيب النتائج مضبوطه ميه ميه

ومعلش أسف جدا جدا لتعبك معايا بس انت حبيبى

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

هاهو الكود الذي يقوم بمسح البيانات من عمود المحقق ..دون مسح المعادلات ..

بالنسبة للطلب الأخير اعفيني منه ..عشان أنا هنجت !!!!!!!!!!!!!

Sub ClearConstants()
    Dim ICol As Long
    Application.ScreenUpdating = False
        For ICol = 5 To 122 Step 3
            Sheet2.Range(Cells(6, ICol), Cells(51, ICol)).SpecialCells(xlCellTypeConstants).ClearContents
        Next ICol
    Application.ScreenUpdating = True
End Sub

[Yasser Fathi Albanna]

والله العظيم مش عارف أشكر حضرتك إذاى يا أ / ياسر

فأنت بالفعل رائع وأعمالك كلها رائعة

جزاك الله كل الخير وزادك الله من العلم الكثير والكثير وأطال الله عمرك

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

ألف ألف شكر للمرة الثانية

ومش هاتقل على حضرتك تانى

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

وشكرا

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

هسهل عليك وأقولك فاااااااااكر المكتبة ..الزاخرة بالشرح

اكتب في البحث كلمة (قائمة) وشوف كدا هتلاقي حاجة ولا لا

[Yasser Fathi Albanna]

للأسف الشديد أ / ياسر

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

وألف ألف شكر لتعب حضرتك معايا