نمایش داده مورد اختلاف در دو شیت

[sohrabahmadi]

با سلام به دوستان و اساتید گرامی.دو شیت داریم که اطلاعات پرداخت در یکی از آنها بصورت کلی و در دیگری به صورت جزئیات وارد میشود .مثلا در یکی مشخصات فیشها و مبلغ کل آن در یک ردیف و در شیت دیگر اطلاعات مبالغ تقسیم شده فیش مورد نظر در یک یا چند ردیف مجزا ثبت میشه.بعضی مواقع تقسیم یک فیش به درستی انجام نمیشه ودر نتیجه مغایرت پیش میآد.من میخوام اگه مبلغ تقسیم شده فیش با مبلغ اصل فیش برابر نبود اطلاعات اون قبض رو تو لیست باکس نمایش بده .البته فرمول زیر رو نوشتم ولی بسیار کنده واطمینان ندارم درست جواب بده یا نه.اگه دوستان بزرگوار لطف کنن یه نگاه بندازن ممنون میشم.
If WorksheetFunction.SumIf(Sheet2.Range("G2:G" & endrow3), T1, Sheet2.Range("D2:D" & endrow2)) - WorksheetFunction.SumIf(Sheet3.Range("F2:F" & endrow6), T1, Sheet3.Range("G2:G" & endrow7)) <> 0 Then
ListBox1.Clear
For Each c In Sheet2.Range("B1:B" & endrow)
If c <> "" And c.Offset(0, 5) = T1 And WorksheetFunction.SumIfs(Sheet2.Range("D2:D100000" ), Sheet2.Range("B2:B100000"), c, Sheet2.Range("C2:C100000"), c.Offset(0, 1), Sheet2.Range("G2:G100000"), T1) <> WorksheetFunction.SumIfs(Sheet3.Range("G2:G100000" ), Sheet3.Range("B2:B100000"), c, Sheet3.Range("C2:C100000"), c.Offset(0, 1), Sheet3.Range("F2:F100000"), T1) Then
ListBox1.AddItem c.Value
For i = 2 To 5
ListBox1.List(ListBox1.ListCount - 1, i - 1) = c.Offset(0, i - 1).Text
Next i
End If
Next
End If

[s.cheraghi]

فایلتون را بذارید.

[sohrabahmadi]

فایل ضمیمه

[sohrabahmadi]

هل من ناصر ینصرنی؟

[Alireza]

با سلام به دوستان و اساتید گرامی.دو شیت داریم که اطلاعات پرداخت در یکی از آنها بصورت کلی و در دیگری به صورت جزئیات وارد میشود .مثلا در یکی مشخصات فیشها و مبلغ کل آن در یک ردیف و در شیت دیگر اطلاعات مبالغ تقسیم شده فیش مورد نظر در یک یا چند ردیف مجزا ثبت میشه.بعضی مواقع تقسیم یک فیش به درستی انجام نمیشه ودر نتیجه مغایرت پیش میآد.من میخوام اگه مبلغ تقسیم شده فیش با مبلغ اصل فیش برابر نبود اطلاعات اون قبض رو تو لیست باکس نمایش بده .البته فرمول زیر رو نوشتم ولی بسیار کنده واطمینان ندارم درست جواب بده یا نه.اگه دوستان بزرگوار لطف کنن یه نگاه بندازن ممنون میشم.
If WorksheetFunction.SumIf(Sheet2.Range("G2:G" & endrow3), T1, Sheet2.Range("D2:D" & endrow2)) - WorksheetFunction.SumIf(Sheet3.Range("F2:F" & endrow6), T1, Sheet3.Range("G2:G" & endrow7)) <> 0 Then
ListBox1.Clear
For Each c In Sheet2.Range("B1:B" & endrow)
If c <> "" And c.Offset(0, 5) = T1 And WorksheetFunction.SumIfs(Sheet2.Range("D2:D100000" ), Sheet2.Range("B2:B100000"), c, Sheet2.Range("C2:C100000"), c.Offset(0, 1), Sheet2.Range("G2:G100000"), T1) <> WorksheetFunction.SumIfs(Sheet3.Range("G2:G100000" ), Sheet3.Range("B2:B100000"), c, Sheet3.Range("C2:C100000"), c.Offset(0, 1), Sheet3.Range("F2:F100000"), T1) Then
ListBox1.AddItem c.Value
For i = 2 To 5
ListBox1.List(ListBox1.ListCount - 1, i - 1) = c.Offset(0, i - 1).Text
Next i
End If
Next
End If

سلام از این لینک کمک بگیرید
تیک بانک - صفحه 4

[sohrabahmadi]

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

[iranweld]

با سلام

دیتای اصلی شما از فایل خروجی نرم افزار یا گزارش بانک هستش؟
چون فرمولها روش عمل نمیکنه
ضمنا بفرمایید در کدام شیت احتمال ایجاد خطا وجود دارد؟

[sohrabahmadi]

باسلام و تشکر احتمال خطا در شیت دو هستش ولی مد نظر نمایش اطلاعات شیت یک هست . در ضمن عرض کردم فرمول زمان میبره تا عمل کنه

[iranweld]

باسلام و تشکر احتمال خطا در شیت دو هستش ولی مد نظر نمایش اطلاعات شیت یک هست . در ضمن عرض کردم فرمول زمان میبره تا عمل کنه

با سلام

یک فایل اولیه تهیه گردید بررسی و اعلام نظر بفرمایید