[حل شده] کپی مبلغ فاکتور در شیت دیگر

[Maryam3077]

سلام
من یه فایل دارم که دوتا شیت داره،شیت اول یه جدول هستش که توش یه سری اطلاعاتی از فروش روزانه رو مینویسیم،و سطر اخر جمع این فروشها محاسبه میشه،حالا یه شیت دوم دارم که یه جدول داره واسه یه ماهه،ینی سی تا سطر داره با دوتا ستون،ستون اول تاریخ ثبت میشه و ستون دوم فروشهای هر روز،ضمنا فایل رو پیوست کردم اگه نگاه کنید کامل متوجه میشین،
حالا من میخوام یه کاری کنم وقتی روی یه دکمه کلیک میکنم جمع مبلغ فروش روزانه کپی بشه توی جدوله شیت دوم توی جلوی تاریخه همون روز،بازم اگه فایل و نگاه کنید کامل منظورمو متوجه میشین،ممنون میشم اگه راهنماییم کنید،
اینم لینک فایل: http://s6.picofile.com/file/8383471700/Abc.xlsm.html

[majid_mx4]

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

Sub Button1_Click()
Lastrow = Sheet2.Cells(Rows.Count, "a").End(xlUp).Row
For Each cell In Sheet2.Range("A2:a" & Lastrow)
If cell.Value = Sheet1.Range("D5") Then
cell.Offset(0, 1).Value = Sheet1.Range("A1")
End If
Next
End Sub

توضیح : جهت بسته نشدن تعداد ثبت ها در شیت روزانه جمع کل را به بالای اطلاعات انتقال دادم یعنی به خانه A1

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