مانده گیری لیست بدهکاران

[Alireza]

سلام خدمت دوستان عزیز
لیست بدهکارانی دارم بشکل فایل پیوست
من مانده بدهی هر بیمه نامه رو با یک شرط لازم دارم یعنی مثلاً در شیت دیگه یا فایل دیگه من بگم اقساط سررسید کوچکتر از 94/03/31 محاسبات برای هر بیمه نامه بشکلی انجام بشه که تمامی اقساطی که سررسید شده منهای وصولی ها(تاریخ های کوچکتر از 94/03/31 ) بشه و مانده بدهی هر بیمه نامه بتفکیک محاسبه بشه .
مچکرم

[mohammad_ashooryan]

سلام
ابتدا با استفاده از فرمولي كه جناب وطن پرست توي قسمت آموزشي سايت براي يونيك كردن ليست قرار داده بودن ليست بدهكاران رو يونيك كردم.
سپس با استفاده از suomproduct اينكار رو انجام دادم.
ببينيد همين منظورتونه.
report2.xlsx

[ebitary]

سلام
با اجازه اساتید
این فایل رو هم ببینید

[Alireza]

ممنون از پاسخ عزیزان
اولین نکته اینه که فقط شماره بیمه مد نظر نیست من باید سرفصل ،سال و بیمه رو تفکیک کنم
نکته دوم اینه که من میخوام توی فایل دیگه این فایل رو خلاصه کنم یعنی با کد Vb برای هر بیمه نامه با هر تعداد گردش یک ردیف ایجاد کنم و بعد با شرطی که دارم مانده هر بیمه نامه رو محاسبه کنم.

Sub Macro1()


    
Workbooks.Open Filename:="D:\report.XLSX"

Dim a, b  As Range
   For Each a In Sheet1.Range("A1:A100")
 For Each b In Workbooks("report.XLSX").Worksheets("report").Range("l1:l100")
      
    If b.Value <> a.Value Then
    If a.Value = "" Then
             
             a.Value = b.Value
             
             
                 End If
                 End If
              Next
              
          Next



End Sub 

این کد نیاز داره تکمیل بشه که از ورود اطلاعات تکراری به فایل اصلی جلوگیری بشه
ممنونم

[Alireza]

سلام
جواب سوال خودم (شاید برای دوستان مفید باشه )

Private Sub CommandButton1_Click()
 Workbooks.Open Filename:="D:\report.XLSX"

Windows("report.XLSX").Visible = False

Dim a, b  As Range
 
   For Each b In Workbooks("report.XLSX").Worksheets("report").Range("L1:L10000")
   For Each a In Sheet1.Range("A1:A1000")
          If Application.WorksheetFunction.CountIfs(Sheet1.Range("A1:A1000"), b.Value, _
          Sheet1.Range("B1:B1000"), b.Offset(0, -6), Sheet1.Range("D1:D1000"), _
          b.Offset(0, -3)) = 0 And a.Value = "" Then
         
                             a.Value = b.Value
                             a.Offset(0, 2).Value = b.Offset(0, -4).Value
                                 a.Offset(0, 1).Value = b.Offset(0, -6).Value
                 a.Offset(0, 3).Value = b.Offset(0, -3).Value
                
                a.Offset(0, 4).Value = Application.WorksheetFunction.SumIfs(Workbooks("report.XLSX").Worksheets("report").Range("B:B"), _
                Workbooks("report.XLSX").Worksheets("report").Range("l:l"), a.Value, _
                Workbooks("report.XLSX").Worksheets("report").Range("F:F"), a.Offset(0, 1), _
                Workbooks("report.XLSX").Worksheets("report").Range("I:I"), a.Offset(0, 3), _
                    Workbooks("report.XLSX").Worksheets("report").Range("C:C"), "<=" & Sheet1.Range("i1")) - _
                Application.WorksheetFunction.SumIfs(Workbooks("report.XLSX").Worksheets("report").Range("A:A"), _
                Workbooks("report.XLSX").Worksheets("report").Range("l:l"), a.Value, _
                Workbooks("report.XLSX").Worksheets("report").Range("F:F"), a.Offset(0, 1), _
                Workbooks("report.XLSX").Worksheets("report").Range("I:I"), a.Offset(0, 3), _
                 Workbooks("report.XLSX").Worksheets("report").Range("C:C"), "<=" & Sheet1.Range("i1"))
               Sheet1.Range("E1") = "ÌãÚ ÈÏåí"
               If a.Offset(0, 4).Value = 0 Then Rows(a.Row).Delete Shift:=xlUp
               
               Exit For
                  End If
             Next
              
         Next
Windows("report.XLSX").Visible = True
Workbooks("report.XLSX").Close SaveChanges:=False
End Sub