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

[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]

با سلام

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


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


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