自动记录发货单

鲨鱼

大侠：
   发货单据填写完成自动，点击打印自动记录在开票统计表中，但我这个代码有点问题，不能依次完全记录，中间开过的有未记录的。怎么回事？求指点！007  005  002  003 等等没记录下来还是被覆盖了  整不大懂了！

鲨鱼

Sub DAYIN()
    ActiveSheet.PrintOut
    With Sheets("开票统计表")
        W = .Range("D65536").End(3).Row + 1
        N = Range("J4").Value
        .Cells(W, "A") = Range("G4")
        .Cells(W, "B") = Range("B4")
        .Cells(W, "I") = Range("J4")
        .Cells(W, "I") = N
        Range("B6:B10").Copy .Cells(W, "C")
        Range("D6:H10").Copy .Cells(W, "D")
        Range("I6:I10").Copy .Cells(W, "J")
        Range("J6:J10").Copy .Cells(W, "K")
    End With
    Range("J4") = Mid(N, 1, 1) & Format(Right(N, 7) + 1, "0000000")
     Range("A6:J10").ClearContents
End Sub
哪里出了问题？？？大侠些

zsyouli

如何能把客户、日期、单号由一格图1导入后成多格图2

鲨鱼

zsyouli 发表于 2019-8-9 15:30
如何能把客户、日期、单号由一格图1导入后成多格图2

你可以到宏页面那里查看