Combine Sheets into one Sheet with Simple VBA

Combine Sheets into one Sheet with Simple VBA Part 1

วิธีนำข้อมูลจากต่างชีทมาจัดเก็บต่อๆกันในชีทเดียว ตอนที่ 1
โดยใช้รหัส VBA แค่ 2 – 3 บรรทัด

Sub CombineSheets()
myVar = [Source]
[Target] = myVar
MsgBox “Combined successfully”
End Sub

Download แฟ้มตัวอย่างได้จาก
https://drive.google.com/open?id=0Bxpfgh-rqhIWeTh5SUFQSDhkZms

=====

Combine Sheets into one Sheet with Simple VBA Part 2

วิธีนำข้อมูลจากต่างชีทมาจัดเก็บต่อๆกันในชีทเดียว ตอนที่ 2
มาหาทางแก้ปัญหาเฉพาะหน้ากันก่อน ส่วนที่มาที่ไปเก็บไว้อธิบายทีหลัง
ขั้นตอนง่ายๆที่จะนำมาใช้กับงานของคุณ
แค่ย้ายทุกชีทของคุณมาไส่ไว้ในแฟ้มนี้แล้วกดปุ่ม Ctrl+q

Download แฟ้มตัวอย่างได้จาก
https://drive.google.com/open?id=0Bxpfgh-rqhIWeTh5SUFQSDhkZms