[حل شده] کپی و انتقال اطلاعات از یک شیت به شیت دیگر

[ناصر خان خان]

با سلام خدمت اساتید
همانطور که از موضوع پیداست میخوام اطلاعات یک شیت کپی بشه به شیت مد نظر(بازدن یک دکمه).
لطفا پاسخ بدین ارجاع ندید موضوعات مشابه یا کامل نیستند یا پاک شده. هیچ جا هم پیدا نکردم. خودم یه کد دارم ولی تو خط اولش ارور میده سردر نمیارم_.

Sub copy_columnes()

Dim lastrow As Long, erow As Long
lastrow = Sheet1.Cells(Rows.Count, 2).End(x1up).Row
For i = 8 To lastrow
' If Sheet1.Cells(1, 3) = Sheet1.TextBox1.Text Then
erow = Sheet2.Cells(Rows.Count, 1).End(x1up).Offset(1, 0).Row
Sheet1.Cells(i, 2).Copy
Sheet1.Paste Destination:=Worksheets("sheet2").Cells(erow, 1)
'Sheet1.Cells(i, 3).Copy
' Sheet1.Paste Destination:=Worksheets("sheet2").Cells(erow, 2)
' Sheet1.Cells(i, 7).Copy
' Sheet1.Paste Destination:=Worksheets("sheet2").Cells(erow, 3)

' End If
Next i
'Application.CutCopyMode = False
'Sheet2.Columns().AutoFit
'Range("a1").Select

End Sub

باتشکر از دوستانی که زحمت میکشن