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

**Yasser Fathi Albanna** · مارس 20, 2015

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

بعد التحية

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

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

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

Sales Report

Achievement

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

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

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

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

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

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

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

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

**Yasser Fathi Albanna** · مارس 20, 2015

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

**Yasser Fathi Albanna** · مارس 20, 2015

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

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

**Yasser Fathi Albanna** · مارس 21, 2015

للرفع

ياسر خليل أبو البراء · مارس 21, 2015

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

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

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

تقبل تحياتي

**الشهابي** · مارس 21, 2015

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

**الشهابي** · مارس 21, 2015

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

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

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

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

ياسر خليل أبو البراء · مارس 21, 2015

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

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

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

**Yasser Fathi Albanna** · مارس 21, 2015

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

أ / ياسر خليل

أ / الشهابى

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

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

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

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

**احمد عبد الناصر** · مارس 21, 2015

السلام عليكم

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

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

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

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

تحياتي

**حمادة عمر** · مارس 21, 2015

السلام عليكم

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

بارك الله فيك

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

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

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

ياسر خليل أبو البراء · مارس 21, 2015

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

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

**Yasser Fathi Albanna** · مارس 21, 2015

السلام عليكم

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

جرب هذه المعادلة في خلايا اعمدة "المحقق"
=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** · مارس 21, 2015

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

**Yasser Fathi Albanna** · مارس 21, 2015

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

ياسر خليل أبو البراء · مارس 21, 2015

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

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

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

الكود سوف يستغرق حوالي 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** · مارس 21, 2015

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

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

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

الكود سوف يستغرق حوالي 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 دون تكرار مع إمكانية البحث داخل القائمة

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

ياسر خليل أبو البراء · مارس 21, 2015

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

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

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

**Yasser Fathi Albanna** · مارس 21, 2015

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

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

ياسر خليل أبو البراء · مارس 21, 2015

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

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

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** · مارس 21, 2015

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

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

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

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

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

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

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

وشكرا

ياسر خليل أبو البراء · مارس 21, 2015

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

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

**Yasser Fathi Albanna** · مارس 21, 2015

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

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

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

تسجيل الدخول

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

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

من فضلك سجل دخول لتتمكن من التعليق

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information