Copy ข้อมูลไปอีก Sheet ครับ

[Remnant]

สวัสดีครับ ผมจะทำการ Copy ข้อมูล CY2 ถ้ามากกว่า 0 ให้ Copy บรรทัดนั้นไป Sheet!01 ครับ

Code: Select all

Sub CopyData()

For i = 1 To 10

    If Cells(i + 1, 103).Value > 0 Then
    Sheets(Data).Range("B2:CW2").Copy
    Sheets("01").Range("B12").End(xlUp).Offset(1, 0).Select
    ActiveSheet.PasteSpecial xlPasteValues

    End If
    
Next i

End Sub

อันนี้โค้ดที่ผมทำการเขียนครับ พอกดปุ่ม แล้วมัน Error ครับ

รบกวนอาจารย์แนะนำด้วยครับ

ขอบคุณครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub CopyData()
    For i = 1 To 10
        If Cells(i + 1, 103).Value > 0 Then
            Sheets("Data").Range("B2:CW2").Copy
            Sheets("F01").Range("B12").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        End If
    Next i
    Application.CutCopyMode = False
End Sub

[Remnant]

อาจารย์ครับ ผมลองแล้วไม่ได้ครับ

มัน Error ตรงบรรทัด

Sheets("F01").Range("B12").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

ครับ

[snasui]

ไฟล์ที่คุณทดสอบทีชีทที่ชื่อว่า F01 หรือไม่ครับ

หากไม่มีก็เปลียนให้เป็นไปเป็นชีทที่มีอยู่จริง ในเครื่องผม Run ได้เป็นปกติ เพราะไฟล์ที่คุณแนบมานั้น มีชีทที่ชื่อ F01 ครับ

[Remnant]

ขอโทษครับ อาจารย์

ผมผิดเองครับ ทำได้แล้ว ขอบคุณมากครับ