ترصيد الصندوق لفترة من التاريخ

[رعد داود]

بسم الله الرحمن الرحيم

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

بعد الدعاء للجميع بقبول الأعمال بهذا الشهر الفضيل وكل شهر وأنتم بألف خير

ارفق ملف لترصيد المبالغ الداخلة والخارجة من الصندوق لبين تاريخين

علما" هناك كود يعمل التصفيه بيت تاريخين وشغال ,,, ولكني اريد أظهار

الرصيد الذي يسبق تاريخ البدء في خليه ملونه بالأصفر

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

رصيد الصندوق بحسب التاريخ.rar

[عبدالله باقشير]

السلام عليكم

ضع المعادلة التالية في الخلية M3

=SUMPRODUCT((yaomea!$J$2:$J$10000=البحث!$B$2)*(yaomea!$D$2:$D$10000<البحث!$B$3);(yaomea!$K$2:$K$10000)-yaomea!$L$2:$L$10000)

ودمتم في حفظ الله

[عبدالله باقشير]

السلام عليكم

وهذا كود آخر غير كود التصفية

Sub kh_Start()

Dim LastRow As Long, i As Long, ii As Long

Dim SText As String

Dim StDate As Date, EndDate As Date


With Sheets("البحث")

    .Range("A7:L10000").ClearContents

    SText = .Range("B2")

    StDate = .Range("B3")

    EndDate = .Range("B4")

End With


ii = 7


With Sheets("yaomea")

    LastRow = .Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To LastRow

        If CStr(.Cells(i, "J")) = SText Then

            Select Case .Cells(i, "d").Value2: Case StDate To EndDate

                Sheets("البحث").Cells(ii, "A").Resize(1, 12).Value = .Cells(i, "A").Resize(1, 12).Value

                ii = ii + 1

            End Select

        End If

    Next

End With

End Sub

[جمال عبد السميع]

ماشاء الله أستاذي ومعلمي وأستاذ الكل (خبور ) المعادلة لايفكر بها إلا عبقري مثلك جزاك الله خيرا وزادك علما لتعلمنا

[رعد داود]

مشكور استاذ خبور وهذا المتوقع منك أهل للفضل ونشر العلم

جزاكم الله خير الجزاء

[aliba2010]

شكرا

[أبو ردينة]

ماشاء الله لا قوة إلا بالله حلول و لا أروع من أستاذنا الغالي / عبد الله با قشير

لي عودة إن شاء الله للأستفسار بعد التعلم مما تفضلت به

جزاك الله خيرا