ผู้โพสต์ครั้งแรก ฉันเป็นมือใหม่ใน VBA และเพิ่งจะประกอบสิ่งต่างๆ เข้าด้วยกัน และฉันก็พบกับสิ่งนี้

ฉันกำลังพยายามรวบรวมข้อมูลการขายรายวันลงในเวิร์กชีตเดียว ฉันมีสมุดงานที่มีแผ่นงานตั้งแต่วันที่ 1 - วันที่ 31 รวมถึงแผ่นงานสรุปบางส่วนในตอนท้าย

สิ่งที่ฉันต้องการทำคือคัดลอกเซลล์เฉพาะจากแผ่นงาน 'วัน' แต่ละแผ่นแล้ววางลงในสมุดงานอื่นบนแผ่นงานเดียว และวางข้อมูลใหม่ที่ด้านล่างของแผ่นงาน

ฉันสนิทกันมากและปัญหาเดียวที่ฉันพบคือมาโครของฉันจะไม่ย้ายแผ่นงานถัดไปในสมุดงานต้นฉบับก่อนที่จะเรียกใช้ For Next อีกครั้ง ทุกสิ่งทุกอย่างกำลังทำในสิ่งที่ฉันต้องการ

นี่คือสิ่งที่ฉันมี บางส่วนอาจไม่สมบูรณ์เนื่องจากฉันสับสนกับวิธีการต่างๆ ความช่วยเหลือใด ๆ ที่นี่ได้รับการชื่นชมอย่างมาก

'''

Workbooks.Add
[A1:M1] = Split("*InvoiceNo *Customer *InvoiceDate *DueDate Terms Location Memo Item(Product/Service) ItemDescription ItemQuantity ItemRate *ItemAmount ServiceDate")
ActiveWorkbook.SaveAs Filename:= _
    "c:\Qbooksw\Bulkqboimport In Progress", FileFormat:=xlCSV, _
    CreateBackup:=False
Workbooks("Sales 2021-12 with QBOmacro NEW.xls").Activate
Dim Days As Worksheet
Dim Day As Variant


Day = Array("Day 1", "Day 2", "Day 3", "Day 4", "Day 4", "Day 5", "Day 6", "Day 7", "Day 8", "Day 9", "Day 10", "Day 11", "Day 12", _
"Day 13", "Day 14", "Day 15", "Day 16", "Day 17", "Day 18", "Day 19", "Day 20", "Day 21", "Day 22", "Day 23", "Day 24", "Day 25", "Day 26", _
"Day 27", "Day 28", "Day 29", "Day 30", "Day 31")


For Each Day In Days
    .Unprotect Password:="*******"
    .Rows("143:188").EntireRow.Hidden = False
    .Range("B144:N188").Select
    .Copy
    
Workbooks("Bulkqboimport In Progress").Activate


Dim EndRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Columns("A:M").Sort Key1:=Range("A1"), Header:=xlYes
Workbooks("Sales 2021-12 with QBOmacro NEW.xls").Activate
Rows("143:188").EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, Password:="Finch21"
Next Day
    
Workbooks("Bulkqboimport In Progress").Activate
Range("A1, C1, D1, M1").EntireColumn.Select
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yy"
Columns("L:L").Select
Selection.NumberFormat = "0.00"

ActiveWorkbook.SaveAs Filename:= _
    "c:\Qbooksw\Bulkqboimport " & Format(Now(), "mm-dd-yy hh mm AMPM"), FileFormat:=xlCSV, _
    CreateBackup:=False

'''

ไม่พบคำตอบ