پرسش فراخوانی داده بین شیتها و حذف داده های صفر

[rest]

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

[iranweld]

با سلام

با یک ماکرو ساده قابل انجام است

Sub test()

endrow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1

z3 = Sheet2.Cells(Sheet2.Rows.Count, "E").End(xlUp).Row + 1

For I = 2 To endrow

If Sheet1.Range("A" & I) <> "" And Sheet1.Range("B" & I) <> "" Then

Sheet2.Range("a" & z2) = Sheet1.Range("A" & I)

Sheet2.Range("b" & z2) = Sheet1.Range("b" & I)

Sheet2.Range("c" & z2) = Sheet1.Range("d" & I)

z2 = z2 + 1

End If

Next


For I = 2 To endrow

If Sheet1.Range("A" & I) <> "" And Sheet1.Range("C" & I) <> "" Then

Sheet2.Range("E" & z3) = Sheet1.Range("A" & I)

Sheet2.Range("F" & z3) = Sheet1.Range("C" & I)

Sheet2.Range("G" & z3) = Sheet1.Range("d" & I)

z3 = z3 + 1

End If

Next

Sheet2.Select

End Sub