Excel Forum

tupthai wrote:ลองเปลี่ยนจาก

Code: Select all

ActiveSheet.Copy Workbooks("Book1.xlsm").Worksheets("test") ' coppy pattern

เป็น

Code: Select all

Sheets("test").Copy After:=Sheets(Worksheets.Count)

ทำได้แล้วครับขอบคุณครับ

ไฟล์รูปคับ

ผมมี sheet list ที่เก็บ ID องหลายๆคนไว้
และ sheet test เป็นต้นแบบที่ต้อง coppy
ใช้ macro โดยชื่อของ sheet ใหม่จะเป็น ID และ Insert picture (จาก folder ชื่อรูปเป็น ID)ไปพร้อมๆกัน ส่วนชื่อ picture ก็เป็น ID เช่นกัน
ปัญหาก็คือ เมื่อ coppy sheet กับ insert picture รูปเก่าจะ เข้ามาด้วย เช่น คนที่ 2 มี ร ...