ขอสอบถามเรื่องการดึงข้อมูลครับ

[siamsrising]

สวัสดีครับ
พอดีผมอยากให้ข้อมูลแต่ละชีสที่ทำตอนนี้(มาเก็บรวมกันในsheetเดียวกัน)แล้วลบข้อมูลเก่าออกแล้วทำข้อมูลใหม่ขึ้นแล้วให้ข้อมูลใหม่ที่ทำมาเพิ่มในชีสที่เก็บข้อมูล ทุกวัน
เช่น
สมมุติทำข้อมูในวันที่ 15/11/2560 จาก sheet 1-10 อยากให้มารวมในชีส 11 ทุกวัน แล้วรีข้อมูล sheet 1-10 ใหม่ แล้วทำใหม่ในวันที่ 16/11/2560 แล้วให้มา run ต่อใน sheet 11 ทุกวัน (ผมไม่สามารถแนบไฟล์ได้เนื่องจากไฟล์งานที่ทำมีขนาดใหญ่)

[snasui]

ตัดข้อมูลมาเฉพาะที่พอเป็นตัวอย่างได้แล้วค่อยแนบ ไม่ควรแนบไฟล์จริงครับ

จากลักษณะที่อธิบายมาคงต้องพึ่ง VBA มีข้อกำหนดว่าต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันอ่านกฎการใช้บอร์ดทุกข้อด้านบนประกอบครับ

[siamsrising]

Code: Select all

Sub Macro14()
'
' Macro14 แมโคร
'

'
    Sheets("รอบแรก").Select
    Range("A4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("เก็บข้อมูล").Select
    Range("C1048576").Select
    Selection.End(xlUp).Select
    Range("C2").Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("สรุป").Select
End Sub

[siamsrising]

ผมอยากให้มัน run ทุก Sheet ครับไม่รู้จะทำไงดี

[snasui]

แนบตัวอย่างไฟล์ที่มี Code มาด้วย ตัดมาเฉพาะพอเป็นตัวอย่าง จะได้สะดวกในการทดสอบครับ