Page 1 of 1
Copy ข้อมูลไปอีก Sheet ครับ
Posted: Tue May 13, 2014 5:09 pm
by 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 ครับ
รบกวนอาจารย์แนะนำด้วยครับ
ขอบคุณครับ
Re: Copy ข้อมูลไปอีก Sheet ครับ
Posted: Tue May 13, 2014 5:20 pm
by 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
Re: Copy ข้อมูลไปอีก Sheet ครับ
Posted: Tue May 13, 2014 5:25 pm
by Remnant
อาจารย์ครับ ผมลองแล้วไม่ได้ครับ
มัน Error ตรงบรรทัด
Sheets("F01").Range("B12").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
ครับ
Re: Copy ข้อมูลไปอีก Sheet ครับ
Posted: Tue May 13, 2014 5:30 pm
by snasui
ไฟล์ที่คุณทดสอบทีชีทที่ชื่อว่า F01 หรือไม่ครับ
หากไม่มีก็เปลียนให้เป็นไปเป็นชีทที่มีอยู่จริง ในเครื่องผม Run ได้เป็นปกติ เพราะไฟล์ที่คุณแนบมานั้น มีชีทที่ชื่อ F01 ครับ
Re: Copy ข้อมูลไปอีก Sheet ครับ
Posted: Tue May 13, 2014 5:35 pm
by Remnant
ขอโทษครับ อาจารย์
ผมผิดเองครับ ทำได้แล้ว ขอบคุณมากครับ