کمک برای یک شیت حسابداری

[ACE]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ACE]

دوستان کسی نیست؟

[ACE]

استاتید راهنمایی کنند لطفا
ممنون

[ACE]

سلام من این فایل رو می خوام اما با این تفاوت برای دو تا شیت جداگانه و چظور دکمه ماکرو رو توی شیت ها جابجا کنم؟

[iranweld]

با سلام
با تغییرات ذیل میتوانید جمع را به شیت دوم ستون A منتقل نمایید

Sub Macro2()

Sheet1.Select
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
If Z > 1 Then
    Sheet1.Range("A2:A" & Z).Select
    Selection.Copy
    Sheet2.Select
    Sheet2.Range("A2:A" & Z).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        True, Transpose:=False
        Sheet1.Select
    Sheet1.Range("A2:A" & Z).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheet2.Select
    Range("A2").Select
    End If
End Sub