تاريخ السلفة

[elkareee]

السلام عليكم برجاء من الأخوة الأعضاء المساعدة أنا عملت دالة sumif لإجمالي السلف لشخص معين

مطلوب في الملاحظات تواريخ إستلام السلف حيث موجود موظف أخذ أكثر من سلفة في الشهر

sumifs.xlsx

[محمد هشام.]

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

جرب وضع الوظيفة التالية في  : Module 

Option Explicit

Function Xformula(Search_string As String, _
Cpt As Range, Cnt As Range)
Dim i As Long
Dim lig As String

For i = 1 To Cpt.Count
  If Cpt.Cells(i, 1) = Search_string Then
    lig = lig & " " & Cnt.Cells(i, 1).Value
  End If
Next

Xformula = Trim(lig)

End Function

وفي الخلية E3  ضع المعادلة التالية مع سحبها للأسفل 

=@Xformula(A3;Sheet1!$A$2:$A$200;Sheet1!$D$2:$D$200)

 

sumifs.xlsb

تم تعديل مايو 28 بواسطه محمد هشام.

[elkareee]

أولاً ألف شكر أ/محمد هشام.

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

26/12/2023 05/03/2024 28/06/2024 

أنا عدلت على الكود كده علشان الفواصل لكن كل تاريخ يكون جنبه المبلغ إللي أخده مش عارف أعملها بصراحة

lig = lig & " " & "-" & " " & Cnt.Cells(i, 1).Value

 

 

تم تعديل مايو 29 بواسطه elkareee

[elkareee]

تم الحل الحمد لله وقمت بالتعديل على الكود وأصبح 

    lig = lig & " " & "-" & " " & Cnt.Cells(i, 0).Value & " " & "مبلغ" & " " & " " & Cnt.Cells(i, 1).Value