معرفه اخر سعر بشرط

[أحمد الزيادى]

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

 

اخر سعر بشرط.rar

تم تعديل أغسطس 2, 2017 بواسطه أحمد الزيادى

[أحمد الزيادى]

3 ساعات مضت, أحمد الزيادى said:

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

 

اخر سعر بشرط.rar

 

[أحمد الزيادى]

برجـــــــــــاء الرد

 

 

تم تعديل أغسطس 2, 2017 بواسطه أحمد الزيادى

[أحمد الزيادى]

20 ساعات مضت, أحمد الزيادى said:

برجـــــــــــاء الرد

 

 

 

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

أخي الكريم

أعتقد الموضوع يحتاج لمزيد من التفاصيل وقم بوضع مثال أو مثالين كمثال للنتائج المتوقعة ليسهل تقديم المساعدة من قبل إخوانك بالمنتدى

[أحمد الزيادى]

تم كتابه الشرح ,,,,,,

اخر سعر بشرط.rar

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

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

جرب الكود التالي في حدث ورقة العمل المسماة "الاستعلام"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B5:C5")) Is Nothing Then
        Dim ws As Worksheet
        Dim i  As Long
        
        Set ws = Sheets("الحركه")
        
        For i = ws.Cells(Rows.Count, 2).End(xlUp).Row To 5 Step -1
            If ws.Cells(i, 3).Value = "شراء" And ws.Cells(i, 4).Value = Range("B5").Value Then
                Range("D5").Value = ws.Cells(i, 6).Value
                Range("E5").Value = Range("C5").Value - Range("D5").Value
                Range("F5").Value = ws.Cells(i, 2).Value
                Exit For
            End If
        Next i
    End If
End Sub

 

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

ولإثراء الموضوع هذا حل آخر بالمعادلات

في الخلية D5 ضع المعادلة التالية (معادلة صفيف أي يتم الضغط على Ctrl + Shift + Enter حين إدخال المعادلة )

=INDEX(الحركه!$F$5:$F$25,MATCH(MAX(IF((الحركه!$C$5:$C$25="شراء")*(الحركه!$D$5:$D$25=$B$5),ROW(الحركه!$D$5:$D$25),"")),ROW(الحركه!$D$5:$D$25),0))

وفي الخلية E5 ضع معادلة عادية لطرح الخلايا بهذا الشكل (لمعرفة الفرق)

=C5-D5

وفي الخلية F5 ضع المعادلة التالية (معادلة صفيف أيضاً)

=INDEX(الحركه!$B$5:$B$25,MATCH(MAX(IF((الحركه!$C$5:$C$25="شراء")*(الحركه!$D$5:$D$25=$B$5),ROW(الحركه!$D$5:$D$25),"")),ROW(الحركه!$D$5:$D$25),0))

 

[أحمد الزيادى]

4 ساعات مضت, ياسر خليل أبو البراء said:

ولإثراء الموضوع هذا حل آخر بالمعادلات

في الخلية D5 ضع المعادلة التالية (معادلة صفيف أي يتم الضغط على Ctrl + Shift + Enter حين إدخال المعادلة )

=INDEX(الحركه!$F$5:$F$25,MATCH(MAX(IF((الحركه!$C$5:$C$25="شراء")*(الحركه!$D$5:$D$25=$B$5),ROW(الحركه!$D$5:$D$25),"")),ROW(الحركه!$D$5:$D$25),0))

وفي الخلية E5 ضع معادلة عادية لطرح الخلايا بهذا الشكل (لمعرفة الفرق)

=C5-D5

وفي الخلية F5 ضع المعادلة التالية (معادلة صفيف أيضاً)

=INDEX(الحركه!$B$5:$B$25,MATCH(MAX(IF((الحركه!$C$5:$C$25="شراء")*(الحركه!$D$5:$D$25=$B$5),ROW(الحركه!$D$5:$D$25),"")),ROW(الحركه!$D$5:$D$25),0))

 

ممكن تطبيقها من غير مااضغط ctrl + shift + enter

 

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

هذه معادلة صفيف أي لابد من الضغط على Ctrl + Shift + Enter