Snasui Excel Forum

:lol: จากโค้ดของอาจารย์ โค้ดไหนคือการ Paste ข้อมูลครับเพราะเห้นมีแต่ Copy Target ครับ Code ด้านล่างเป็นการ Copy แล้ววางไปยัง Target ครับ สำหรับการ Copy มี Option ให้เลือกวางได้เลย โดยการวรรคไป 1 ครั้งแล้วคีย์เป้าหมายที่จะวางไว้หลังคำว่า Copy wb.Worksheets(i).Range("A2:I1000").Copy Target

ขอบค ...

อาจารย์ครับ รบกวนปรึกษาเพิ่มเติมครับ
จากโค้ดที่อาจารย์แนะนำผมทำได้ตามต้องการแล้วครับ ขอบคุณมากครับ
แต่อยากทราบเพิ่มเติมว่า จากโค้ดของอาจารย์ โค้ดไหนคือการ Paste ข้อมูลครับเพราะเห้นมีแต่ Copy Target ครับ

Procedure GetData() ครับ

โดยการดึงข้อมูลมาจะเรียกใช้ CopyPaste() ครับ

Sub GetData()

Dim WS_count As Integer
Dim i As Integer
WS_count = Worksheets.Count


Application.DisplayAlerts = False
On Error Resume Next
Dim Directory As String, f As String
Application.ScreenUpdating = False ...

เดิมทีการดึงข้อมูล จะเป็น 1สาขา 1ห้าง 1ไฟล์ แล้วผมจำทำการรวมไฟล์ทั้งหมดในโฟลเดอร์เดียวก่อน
แล้วเช็คชื่อไฟล์ก่อนว่าจำนวนครบไหม แล้วจะทำการดึงข้อมูล

แต่ตอนนี้ไฟล์ที่ทำมีการเปลี่ยนแปลง เป็น 1ห้าง หลายสาขา 1ไฟล์ เวลาดึงข้อมูลก็จะดึงมา จะมาแต่เฉพาะชีทแรกในไฟล์นั้น

ผมจะอยากขอคำแนะนำว่าจาก code ผมเดิมต ...