مغایرت گیری بانکی

[msnooran]

با عرض سلام و خسته نباشید
در فایل اکسل ضمیمه شده چهار ستون دارم که دوستون مربوط به تاریخ و مبلغی است که از بانک گرفتم و دو ستون بعدی مربوط به تاریخ و مبلغی است که در دفاتر خودم ثبت کردم با توجه به بالا بودن تعداد رکورد(قسمت کوچکی از فایل پیوست شده) دنبال روشی میگردم که بتونم دو ستون بد بانک و بد دفاتر و باهم مقایسه کنم و سلولهایی که دارای مغایرت هستند را جدا کرده و همراه با سلول تاریخ در یک شیت دیگر قرار دهم.این نکته رو باید بگم که سلولها دارای مقادیر تکراری است
ممنون از راهنمایی دوستان

[iranweld]

با سلام

میتوانید جمع مربوط به هر تاریخ از لیست بانک را از جمع یاداشت خود در آن روز کم نمایید و مغایرت اون روز را محاسبه نمایید

=sumifs($b$5:$b$10000,$a$5:$a$10000,f5)-sumifs($d$5:$d$10000,$c$5:$c$10000,f5) 

[msnooran]

ممنون از پاسختون ولی من میخوام به صورت موردی نشون بده نه جمع یک روز

[iranweld]

با سلام

لطفا یک یا دو نمونه مغایرت که مد نظر شما میباشد را در شیت اول مشخص و در شیت دوم هم نحوه ثبت را مشخص و ضمیمه پست کنید

[msnooran]

با تشکر
توضیحات در فایل میباشد.

[iranweld]

با سلام

با استفاده از ویژوال بیسیک دو سلول A,B با دو سلول C,D در کل ستون چک میگردد اگر مشابه نبود در شیت دوم ثبت میگردد
در مرجله دوم
برعکس مرحله اول محتویات C,D با محتویات A,B چک میگردد اگر مشابه نبود در شیت دوم ثبت میگردد

بررسی وجود موارد تکراری با شما

Sub TEST()

Sheet2.Range("A5:D50000").ClearContents

Z1 = Cells(Rows.Count, "A").End(xlUp).Row
Z2 = Cells(Rows.Count, "C").End(xlUp).Row
T = 5
For I = 5 To Z1
Z = 0
For J = 5 To Z2

If Range("A" & I).Value = Range("C" & J).Value And Range("B" & I).Value = Range("D" & J).Value Then

Else

Z = Z + 1

If Z >= Z2 - 4 Then
Sheet2.Range("A" & T).Value = Range("A" & I).Value
Sheet2.Range("B" & T).Value = Range("B" & I).Value
T = T + 1
Z = 0
End If


End If

Next: Next


Z1 = Cells(Rows.Count, "C").End(xlUp).Row
Z2 = Cells(Rows.Count, "A").End(xlUp).Row
T = 5
For I = 5 To Z1
Z = 0
For J = 5 To Z2

If Range("C" & I).Value = Range("A" & J).Value And Range("D" & I).Value = Range("B" & J).Value Then

Else

Z = Z + 1


If Z >= Z2 - 4 Then

Sheet2.Range("C" & T).Value = Range("C" & I).Value
Sheet2.Range("D" & T).Value = Range("D" & I).Value
T = T + 1
Z = 0
End If


End If

Next: Next

Sheet2.Select

End Sub 

[msnooran]

سلام استاد گرامی
ممنون از فایلی که درست کردید تقریبا 70 درصد کار من و راه انداخت ولی مشکلی که دارم (وفکر میکنم با یک تغییر کوچیک در کد انجام بشه)اینه که فرضا اگر در ردیف بد بانک یک رقم دو بار تکرار شده باشه و در ستون بد دفاتر همان رقم یک بار درج شده باشد برنامه آن را نادیده میگیرد و میگزد و به عنوان مغایرت حساب نمیکند. درخواست بنده این است که رقم تکراری که در ستون بد بانک درج شده را به عنوان مغایرت حساب کرده و در شیت دوم نمایش دهد.
ممنون از لطفتون

[babak2011]

سلام استاد گرامی
ممنون از فایلی که درست کردید تقریبا 70 درصد کار من و راه انداخت ولی مشکلی که دارم (وفکر میکنم با یک تغییر کوچیک در کد انجام بشه)اینه که فرضا اگر در ردیف بد بانک یک رقم دو بار تکرار شده باشه و در ستون بد دفاتر همان رقم یک بار درج شده باشد برنامه آن را نادیده میگیرد و میگزد و به عنوان مغایرت حساب نمیکند. درخواست بنده این است که رقم تکراری که در ستون بد بانک درج شده را به عنوان مغایرت حساب کرده و در شیت دوم نمایش دهد.
ممنون از لطفتون

منم همین مشکلو دارم ، راهی نیست ؟

[iranweld]

منم همین مشکلو دارم ، راهی نیست ؟

با سلام

در یک ستون دیگر تاریخ های بدون تکرار را استخراج نموده و سپس با دستور sumif اختلاف حساب هر تاریخ را محاسبه نمایید.

[babak2011]

با سلام

در یک ستون دیگر تاریخ های بدون تکرار را استخراج نموده و سپس با دستور sumif اختلاف حساب هر تاریخ را محاسبه نمایید.

با سلام ببخشید اگر جسارت میکنم اما منظور کاربر msnooran و بنده اینه که اگر در ستون بانک دوبار مبلغ مثلاً ۵۰۰۰ تومان تکرار شده باشد ودر ستون دفتر یکبار مبلغ ۵۰۰۰تومان آمده باشد در اصل ۵۰۰۰ تومان دوم باید بعنوان مغایرت گرفته شود اما در فایل اکسلی که دوست عزیز زحمت کشیدن و فرمول نویسی کردن این مغایرت تشخیص داده نمیشه ، امیدوارم منظورم را متوجه شده باشید.
باتشکر از پاسخگوییتون

[babak2011]

با سلام ببخشید اگر جسارت میکنم اما منظور کاربر msnooran و بنده اینه که اگر در ستون بانک دوبار مبلغ مثلاً ۵۰۰۰ تومان تکرار شده باشد ودر ستون دفتر یکبار مبلغ ۵۰۰۰تومان آمده باشد در اصل ۵۰۰۰ تومان دوم باید بعنوان مغایرت گرفته شود اما در فایل اکسلی که دوست عزیز زحمت کشیدن و فرمول نویسی کردن این مغایرت تشخیص داده نمیشه ، امیدوارم منظورم را متوجه شده باشید.
باتشکر از پاسخگوییتون

از بزرگان انجمن کسی نظری نداره ؟

[babak2011]

با سلام ببخشید اگر جسارت میکنم اما منظور کاربر msnooran و بنده اینه که اگر در ستون بانک دوبار مبلغ مثلاً ۵۰۰۰ تومان تکرار شده باشد ودر ستون دفتر یکبار مبلغ ۵۰۰۰تومان آمده باشد در اصل ۵۰۰۰ تومان دوم باید بعنوان مغایرت گرفته شود اما در فایل اکسلی که دوست عزیز زحمت کشیدن و فرمول نویسی کردن این مغایرت تشخیص داده نمیشه ، امیدوارم منظورم را متوجه شده باشید.
باتشکر از پاسخگوییتون

امکان داره دوستان یه نگاه بندازند ؟

[babak2011]

فروردین
بانک		دفاتر
تاريخ	بد	تاريخ	بد
1393/01/01	1,605,000	1393/01/01	1,605,000
1393/01/01	1,605,000	1393/01/05	30,000,000

--------------------------------------------------------------------
طبق مثال بالا ردیف دوم بانک باید بعنوان مغایرت شناسایی بشه اما این اتفاق نمی افته ... از دوستانی که سر رشته دارند لطفاً یه نگاه به فایل بندازید ممنون