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

[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