دفتر معین (رفع نواقص)

[mona71]

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

[majid_mx4]

با سلام
لطفا دستورات را بشکل زیر تغییر دهید.

Private Sub CommandButton4_Click()
On Error Resume Next
Dim c As Range

For Each c In Sheet6.Range("b4:b1000")
    For i = 1 To Sheets.Count
        If c.Value = Sheets(i).Name Then
            Sheets(i).Range("a3:F1000").ClearContents
            Range("g4").AutoFilter
            Sheet1.Range("$A$4:$G$9").AutoFilter Field:=7, Criteria1:= _
                c.Value
            Range("A3").Select
            Selection.End(xlDown).Select
            Range("a5", ActiveCell.Offset(0, 5)).Select
            Selection.Copy
            Sheets(i).Activate
            ActiveSheet.Range("a3").Select
            Selection.PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            Sheet1.Activate
            Range("G4").Select
            ActiveSheet.Range("$A$4:$G$9").AutoFilter Field:=7
            Exit For
        End If
    Next i
Next c
End Sub

پایدار باشید میر

[mona71]

با سلام
لطفا دستورات را بشکل زیر تغییر دهید.

Private Sub CommandButton4_Click()
On Error Resume Next
Dim c As Range

For Each c In Sheet6.Range("b4:b1000")
    For i = 1 To Sheets.Count
        If c.Value = Sheets(i).Name Then
            Sheets(i).Range("a3:F1000").ClearContents
            Range("g4").AutoFilter
            Sheet1.Range("$A$4:$G$9").AutoFilter Field:=7, Criteria1:= _
                c.Value
            Range("A3").Select
            Selection.End(xlDown).Select
            Range("a5", ActiveCell.Offset(0, 5)).Select
            Selection.Copy
            Sheets(i).Activate
            ActiveSheet.Range("a3").Select
            Selection.PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            Sheet1.Activate
            Range("G4").Select
            ActiveSheet.Range("$A$4:$G$9").AutoFilter Field:=7
            Exit For
        End If
    Next i
Next c
End Sub

پایدار باشید میر

مرسی از لطفتون ولی تغییر ک میدم درست عمل نمیکنه، ینی باقیمانده رو نمیاره و مشتری جدید هم ثبت نمیکنه
لطف میکنید فایل و پیوست کنید؟

[majid_mx4]

با سلام

هیچ تغییر در فایل شما انجام نشده است و فقط دستورات دکمه بروز رسانی مقداری تغییر کرده ، آنهم برای انتقال دو ستون باقیمانده و تشخیص.

[mona71]

با سلام

هیچ تغییر در فایل شما انجام نشده است و فقط دستورات دکمه بروز رسانی مقداری تغییر کرده ، آنهم برای انتقال دو ستون باقیمانده و تشخیص.

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

[majid_mx4]

با سلام

لطفا نیجه دلخواه را در یک فایل اکسل در شیت های مربوطه نوشته و ارسال نمایید.

موفق باشید میر

[mona71]

با سلام

لطفا نیجه دلخواه را در یک فایل اکسل در شیت های مربوطه نوشته و ارسال نمایید.

موفق باشید میر

سپاس از ووقتی که برای کمک به بنده قرار دادید.
فایلی که فرمودید پیوست شده

[majid_mx4]

با سلام

امیدوارم که درست متوجه منظورتان شده باشم لطفا فایل ضمیمه را بررسی نمایید.


موفق باشید میر

[mona71]

با سلام

امیدوارم که درست متوجه منظورتان شده باشم لطفا فایل ضمیمه را بررسی نمایید.


موفق باشید میر

خیلی خیلی سپاسگذارم آقای میر بله فایل درست شد یگ دنیا ممنون