[已解决]如何把送货单的内容打印后自动保存在另一个列表里

BUBU103 · 发表于 2016-5-9 15:25

我是负责送货单打印和送货内容录入汇总的，每次打印完送货单还要重新把送货内容输入到另一个列表里头，能不能有什么办法让打印完的送货单自动保存对应数据在另一个列表里呢？期待高手帮忙，谢谢！

附上附件，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-11 09:52

(, 下载次数: 116)

爱疯 · 发表于 2016-5-9 15:57

把多个无规律数据，加入另一个工作表
http://www.excelpx.com/thread-374105-1-1.html

可参考。
你就看第1种办法，看能学会吗

BUBU103 · 发表于 2016-5-9 16:11

我先看看谢谢！！

BUBU103 · 发表于 2016-5-9 16:13

爱疯发表于 2016-5-9 15:57
把多个无规律数据，加入另一个工作表
http://www.excelpx.com/thread-374105-1-1.html

新手表示看的好晕不是很明白{:031:}

爱疯 · 发表于 2016-5-9 16:35

Sub test1()
Dim Source As Worksheet
Dim Destination As Worksheet
Dim lastRow As Long

'1)设置
Set Source = Sheets(1) '指定源工作表
Set Destination = Sheets(2) '指定目标工作表
lastRow = Destination.Cells(Rows.Count, "A").End(3).Row + 1 '获取目标工作表的最后一行行号

'2）赋值
Destination.Cells(lastRow, "A").Value = Source.[J3].Value
Destination.Cells(lastRow, "B").Value = Source.[B3].Value
Destination.Cells(lastRow, "C").Value = Source.[B4].Value
Destination.Cells(lastRow, "D").Value = Source.[B5].Value
Destination.Cells(lastRow, "E").Value = Source.[J4].Value
'... 如果还有，自行追加

Destination.Select
End Sub

新送货单（草稿）2.rar (24.49 KB, 下载次数: 135)

BUBU103 · 发表于 2016-5-9 16:49

爱疯发表于 2016-5-9 16:35
Sub test1()
Dim Source As Worksheet
Dim Destination As Worksheet

太好了就是这样！！！谢谢版主!

BUBU103 · 发表于 2016-5-9 17:39

爱疯发表于 2016-5-9 16:35
Sub test1()
Dim Source As Worksheet
Dim Destination As Worksheet

我自己看了下又添加了一些东西，真是帮大忙了。但是序号那里我希望可以打印一次就自动变动，现在用的公式是这个="CS"&TEXT(TODAY(),"yyyymm")&ROW(A1) CS201605001这个是希望用的 05是月份 001是希望自动变动成002以此类推{:091:}

爱疯 · 发表于 2016-5-9 17:41

BUBU103 发表于 2016-5-9 17:39
我自己看了下又添加了一些东西，真是帮大忙了。但是序号那里我希望可以打印一次就自动变动，现在用的公式 ...

上传你“又添加了一些东西”的附件看看，并在里面说明要把序号怎么改？

BUBU103 · 发表于 2016-5-11 08:43

爱疯发表于 2016-5-9 17:41
上传你“又添加了一些东西”的附件看看，并在里面说明要把序号怎么改？

已经附上附件了序号那里的公式貌似不对

爱疯 · 发表于 2016-5-11 09:12

新送货单（草稿）3.rar (28.09 KB, 下载次数: 77)

		自动登录	找回密码
密码			注册

[已解决]如何把送货单的内容打印后自动保存在另一个列表里

相关帖子