وعليكم السلام

أخي الكريم المطلوب غير واضح .. قم بتوضيح المطلوب ليشارك الأعضاء بفعالية في الموضوع ..

لا يوجد سوى صور ولا يوجد الأدوات التي تتحدث عنها ولا أدري ما هي شكل المخرجات المتوقعة؟

 وجزيت خيراً بمثل ما دعوت لي أخي العزيز علي ومشكور على مرورك العطر

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

 وعليكم السلام أخي الكريم

جرب الكود التالي عله يفي بالغرض إن شاء الله

Sub Test()

    Dim ws          As Worksheet

    Dim sh          As Worksheet

    Dim a           As Variant

    Dim x           As Variant

    Dim y           As Double

    Dim c           As Long

    Dim i           As Long

    Dim j           As Long



    Application.ScreenUpdating = False

        Set ws = ThisWorkbook.Worksheets(1)

        Set sh = ThisWorkbook.Worksheets(2)

        a = ws.Range("C5:X" & ws.Cells(Rows.Count, 3).End(xlUp).Row).Value

    

        For i = LBound(a, 1) To UBound(a, 1)

            If a(i, 3) <> "" Then

                y = 0: c = 4

                x = Application.Match(a(i, 3), sh.Columns(3), 0)

    

                If Not IsError(x) Then

                    For j = 4 To 19 Step 3

                        a(i, j + 1) = sh.Cells(x, c).Value

                        a(i, j + 2) = Val(a(i, j)) + Val(a(i, j + 1))

                        If a(i, j + 2) = 0 Then a(i, j + 2) = ""

                        y = y + Val(a(i, j + 2))

                        c = c + 1

                    Next j

                    a(i, 22) = IIf(y = 0, "", y)

                Else

                    For j = 4 To 22

                        a(i, j) = ""

                    Next j

                End If

            End If

        Next i

    

        ws.Range("C5").Resize(UBound(a, 1), UBound(a, 2)).Value = a

    Application.ScreenUpdating = True

End Sub

 تسلم أخي الحبيب أبو يوسف

لكم أسعدتني مداخلتك اللطيفة ومشاركتنا في الموضوعات المختلفة 



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

 كود ممتاز ورائع أخي العزيز علي .. بارك الله فيك وجزاك الله خيراً

مشكور على تفاعلك المثمر داخل المنتدى ، وجعله الله في ميزان حسناتك

 تم نقل الموضوع إلى القسم المناسب

الرجاء من الأخوة الأعضاء التفاعل مع استفسارات الأعضاء

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

 الرسالة معناها أن أداة التحكم TextBox2 غير مرئية أو غير ممكنة ... حاول إضافة سطر لإظهار الأداة أو تمكينها

 بارك الله فيك أخي الغالي حسام وجعله الله في ميزان حسناتك يوم القيامة

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

 بسم الله ما شاء الله ..بارك الله فيك أخي العزيز علي وسدد خطاك ووفقك لكل خير

موضوعات ذات صلة

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب