[حل شده] ایجاد یک دکمه ثبت داده

[gh.pa]

با سلام و احترام
نیاز به راهنمایی دارم در خصوصvba اکسل
یک شیت دارم شیت142 که یک جدول با داده هایی دارد میخواهم با زدن دکمه ی ثبت(عکس1) آخرین سطر این جدول کپی شود و در صورتی که در ستونd همین سطرآخر عدد 7 بود آن داده را در شیت145 کپی کند(عکس2) اگرهمان ردیف آخر ستون d عدد5 بود آن سطر کپی شود در شیت143(عکس3)
کد های دکمه ی ثبت هم در عکس4 موجود است
اما این ماژول متاسفانه همه ی سطر های شیت142 را کپی میکند نه فقط سطرآخر

[generalsamad]

با سلام
این کد رو امتحان کنید

Sub Sabt()
Dim LR, LR1, LR2 As Long
LR = Cells(Rows.Count, 4).End(xlUp).Row
LR2 = Sheets("Sheet145").Cells(Rows.Count, 4).End(xlUp).Row + 1
LR3 = Sheets("Sheet143").Cells(Rows.Count, 4).End(xlUp).Row + 1
If Sheets("Sheet142").Range("D" & LR).Value = 7 Then
    Sheets("sheet142").Rows(LR & ":" & LR).Copy
    Sheets("Sheet145").Select
    Rows(LR2 & ":" & LR2).Select
    ActiveSheet.Paste
    Sheets("sheet142").Select
ElseIf Sheets("Sheet142").Range("D" & LR).Value = 5 Then
    Sheets("sheet142").Rows(LR & ":" & LR).Copy
    Sheets("Sheet143").Select
    Rows(LR3 & ":" & LR3).Select
    ActiveSheet.Paste
    Sheets("sheet142").Select
End If
Application.CutCopyMode = False
End Sub 

[gh.pa]

عالی بود
مشکل حل شد
بسیاار متشکرم