ใช้ VBA คัดลอกข้อมูลโดยใช้ offset แล้ว error

[djung]

ผมต้องการคัดลอกข้อมูลใน Sheet MASTER SELECT (สมมุติข้อมูลใน Sheet นี้อาจจะมากขึ้นหรือน้อยลงได้) แล้วนำไปวางไว้ใน Sheet ISSUE RECORD แต่พอทำแล้วขึ้น error ไม่ทราบว่าทำผิดตรงใหนครับ

[bank9597]

ลองเปลี่ยนโค๊ดดูครับ

ที่ชีท MASTER SELECT เซลล์ H1 คีย์ =COUNTA(B2:B100)

ส่วนโค๊ด ลองวางโค๊ดนี้ดูครับ

Sub OFFSETT()
If Sheets("MASTER SELECT").Range("H1") <> 0 Then
Sheets("MASTER SELECT").Range("B2:F100") _
.Resize(Sheets("MASTER SELECT").Range("H1"), 6).Copy
Sheets("ISSUE RECORD").Range("A" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
MsgBox "บันทึกข้อมูลเรียบร้อย"
Else
MsgBox "คุณยังไม่ระบุโค๊ดใดๆ"
End If
Application.CutCopyMode = False
End Sub

[tupthai]

ตรง range name เครื่องหมาย" ' "ค่อมชื่อชีทหายไป ครับ
เปลี่ยนเป็น
SOURCEA =OFFSET('MASTER SELECT'!$A$2,0,0,COUNTA('MASTER SELECT'!$B$2:$B$10000),6)
TARGETA =OFFSET('ISSUE RECORD'!$A$1,COUNTA('ISSUE RECORD'!$A$2:$A$10000)+1,0,1,1)

[djung]

ขอบคุณทั้ง2ความช่วยเหลือมากๆเลยครับทำได้แล้วครับ