แนะนำข้อมูลส่วนตัวกับความต้องการนะครับ
เขียนโค้ด VBA ไม่เป็น แต่พออ่านได้จะเป็นคำสั่งไม่ยาวและซับซ้อน
ใช้งานการบันทึก มาโคร ได้
ความต้องการ มีไฟล์อยู่ 4 ไฟล์ ในไฟล์ที่ 1 และ 2 มี VBA อยู่เป็นจำนวนมาก
เนื่องจากมีปริมาณข้อมูลที่ต้องทำซ้ำเป็นจำนวนมาก เพื่อลดระยะเวลาการทำงานและลดความผิดพลาด (เช่น กดผิด) จึง record มาโครมาเป็นส่วนๆ
ต้องการ นำเข้าข้อมูลจากไฟล์ที่ 1 มารันในไฟล์ที่ 2 แล้วไปจัดเก็บใน file ที่ 3 และ 4 โดยจะสร้างไฟล์อีกหนี่งไฟล์มารันข้อมูลครับ

มีไฟล์ตั้งต้น 4 ไฟล์ คือ
1. ไฟล์ "โหลดข้อมูล" มีหน้าที่ดาวน์โหลดข้อมูลจากอินเตอร์มาแยกเก็บไว้ในแต่ละ sheet ตามรายการ (ไฟล์นี้มีการแก้ไขเปลี่ยนแปลงอยู่ตลอด)

2. ไฟล์ "CalculateandSorting" มีหน้าที่คำนวณและจัดรูปแบบ (ไฟล์นี้ มี VBA ที่ซับซ้อน)
sheet"DATA" เป็นตัวรับข้อมูล sheet เปล่า 
sheet"Cal" เป็นตัวรันข้อมูล จาก Sheet DATA ซึ่งใน sheet นี้มีการรัน VBA หลายขั้นตอน 
แล้วมาวางไว้ใน Sheet "Tempsheet" เป็น sheet ที่สร้างมาชั่วคราวแล้วลบทิ้งเพื่อรันข้อมูลชุดใหม่

3. ไฟล์ "Form1" และ "Form2" ใช้เก็บจัดข้อมูลในรูปแบบที่ต้องการ หมวด 1 จัดเก็บใน Form1 และหมวด2 จัดเก็บใน Form 2 มีหัวกระดาษตามที่กำหนด


สิ่งที่ได้ทำ
1.  ใน file "โหลดข้อมูล" สร้างมาโครมาเพื่อก๊อปปี้ข้อมูลในแต่ละรายการ เพื่อนำไปวาง ในไฟล์ "CalculateandSorting"  sheet DATA
2. สร้าง มาโครเพื่อ copy จากไฟล์ "CalculateandSorting" Sheet "Tempsheet" 
3. ในการทำงานกด button 1 แล้ว กดรัน Process ให้ครบ แล้วนำไปวางใน Sheet ด้วยมือ

สิ่งที่ต้องการ
1. ให้โปรแกรมรันต่อเนื่องจากไฟล์ที่ 1 2 แล้วนำข้อมูลไปวางใน File ที่ 3.4 โดยอัตโนมัติ
2. ซึ่งในเงื่อนไขการทำงาน ในไฟล์ที่ 1 column D ถ้ามีค่าเป็น 0 ไม่ต้อง run มาโครในชุดนั้น ถ้ามีค่าเป็น 1 ให้รัน
(ลดการทำงานของข้อมูล (กรณีนี้ขอความเห็นด้วยครับ ถ้ารันข้อมูลครบทุกชุดไปวาง แล้วค่อยลบจะง่ายกว่าไหมครับ))