پرسش حذف ردیف با vba

[mahdie-ard]

با عرض سلام و وقت بخیر خدمت اساتید محترم:
در یک فایل اکسل که یک سری مشخصات وارد شده باشد و دارای ردیف نیز می باشد اگر بخواهیم در یک سلول مشخص و ثابت زمانی که شماره ردیف را وارد کنیم اون ردیف مورد نظر حذف بشه و همچنین در یک شیت دیگر paste بشه البته با vba .
چه فرمولی باید استفاده کرد؟

[میثم مقدم نیا]

با عرض سلام و وقت بخیر خدمت اساتید محترم:
در یک فایل اکسل که یک سری مشخصات وارد شده باشد و دارای ردیف نیز می باشد اگر بخواهیم در یک سلول مشخص و ثابت زمانی که شماره ردیف را وارد کنیم اون ردیف مورد نظر حذف بشه و همچنین در یک شیت دیگر paste بشه البته با vba .
چه فرمولی باید استفاده کرد؟

سلام
با فرض اینکه شما دوشیت به نامهای Sheet1 و Sheet2 دارید.
و اطلاعات شما در Sheet1 است و شما میخواهید بعد از وارد کردن
شماره ردیف و زدن کلید اطلاعات آن ردیف حذف و در Sheet2 جایگذاری شود.
برای این کار شما میتوانید از کد زیر استفاده کنید.

Sub MoveRows()
    Dim i As Long

    Application.ScreenUpdating = False

    If MsgBox("آيا مايل به حذف اين رديف هستيد؟ " & vbCrLf & vbCrLf & "با حذف اين رديف در شيت دو جايگذاري ميشود",_
vbYesNo + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading, "اخطار") = vbYes Then
      With Sheets("Sheet1")
        i = .Cells(1, "A").Value
        .Rows(i).Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
        .Rows(i).Delete
    End With
Else
    Exit Sub
End If

End Sub 

با تشکر میثم مقدم نیا

[mahdie-ard]

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