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

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ناصر خان خان

    • 2015/12/22
    • 118
    • 54.00

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

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

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

    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
    باتشکر از دوستانی که زحمت میکشن
    هر گاه خدا تو را به لبه پرتگاه برد باز به او اعتماد کن چون يا تو را از پشت خواهد گرفت يا پرواز را به تو خواهد آموخت
چند لحظه..