Page 1 of 1
ใช้ VBA คัดลอกข้อมูลโดยใช้ offset แล้ว error
Posted: Thu Apr 05, 2012 7:27 pm
by djung
ผมต้องการคัดลอกข้อมูลใน Sheet MASTER SELECT (สมมุติข้อมูลใน Sheet นี้อาจจะมากขึ้นหรือน้อยลงได้) แล้วนำไปวางไว้ใน Sheet ISSUE RECORD แต่พอทำแล้วขึ้น error ไม่ทราบว่าทำผิดตรงใหนครับ
Re: ใช้ VBA คัดลอกข้อมูลโดยใช้ offset แล้ว error
Posted: Thu Apr 05, 2012 8:00 pm
by 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
Re: ใช้ VBA คัดลอกข้อมูลโดยใช้ offset แล้ว error
Posted: Thu Apr 05, 2012 8:27 pm
by 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)
Re: ใช้ VBA คัดลอกข้อมูลโดยใช้ offset แล้ว error
Posted: Thu Apr 05, 2012 9:35 pm
by djung
ขอบคุณทั้ง2ความช่วยเหลือมากๆเลยครับทำได้แล้วครับ