修改VBA 代码，完成功能需求

yaozhaoze

各位老师好
   请帮忙修改VBA 代码，完成以下功能需求，详细见附件，十分感谢，谢谢

1.点击（上传送货清单）按钮，后面增加功能：把（托盘清单B列）数复制到（送货单登记据B2以下行列中）重复去除重复值.清空送货单登记据C2以下行中的数据
2.点击（上传包装清单）按钮，后面增加功能：【上传包装清单  B列 (送货单号*）】字段不一样分割文件并且命名【上传包装清单(送货单号*）】字段一致，分割文件，分割每个文件都标题行，分割功能和（上传送货清单）按钮分割文件一样。

shiruiqiang

怎么分割？

ykcbf1100

第1点容易完成，但第2点中，“上传包装清单”只是一个空表，只有标题行，没明白你如何去分割文件。

xunanming

附件供参考-----------------------------------

yaozhaoze

xunanming 发表于 2024-1-15 04:01
附件供参考-----------------------------------

老师您好：
     谢谢您帮忙解决我的问题，C列分割前： 文本显示表 中（送货单行*）保留5位数，不够前面用“0”补足5位.
                                            C列分割后： 数值显示，需要很分割前一样显示，

xunanming

已修改--------------------------------

yaozhaoze

xunanming 发表于 2024-1-15 04:01
附件供参考-----------------------------------

老师您好：
     我刚刚测试还有点问题，请您帮忙修改代码？
点击（上传送货清单）按钮 运行这个先清空 Sheet2（上传送货清单）数据，第1行标题行除外
点击（上传包装清单）按钮 运行这个先清空 Sheet3（上传包装清单）数据，第1行标题行除外

yaozhaoze

ykcbf1100 发表于 2024-1-14 20:24
第1点容易完成，但第2点中，“上传包装清单”只是一个空表，只有标题行，没明白你如何去分割文件。

帮忙用4楼附件修改，谢谢

老师您好：
     我刚刚测试还有点问题，请您帮忙修改代码？
点击（上传送货清单）按钮 运行这个先清空 Sheet2（上传送货清单）数据，第1行标题行除外
点击（上传包装清单）按钮 运行这个先清空 Sheet3（上传包装清单）数据，第1行标题行除外

xunanming

在模块1中的位置插入红色方框内的代码即可.另一表本身就有你要求的功能.

yaozhaoze

xunanming 发表于 2024-1-16 15:00
已修改--------------------------------

老师您好：
     我昨天测试，发现还有两个问题请您帮忙处理。谢谢
问题1：分割第二张表没有复制，第二行数据（送货单号：D12401070001156CR 包装号：1001）这一行数据没有被复制到分割表中。
问题2：传系统分割工作簿的工作表名称定义要求必须两个工作表（分别名称定义为：送货单最小包装信息维护，包装箱关系维护 ），工作表名称定义有要求：Sheet1：（D12401070001156CR）修改成（送货单最小包装信息维护），还需要增加 Sheet2：表名称定义（包装箱关系维护）这个为空表就可以。

关于第2个问题：工作表：包装箱关系维护 空表也可以，如果VBA编写代码可以完成以下功能需求，请您在（包装箱关系维护）工作表 增加数据
把（送货单最小包装信息维护）工作表A列（包装号*）数据复制到（包装箱关系维护）工作表A列（上层包装号*），（送货单最小包装信息维护）工作表H列（包装描述）数据后4位数值复制到（包装箱关系维护）工作表B列（下层包装号*）,表头行除外，详细见附件。详细见附件，十分感谢您帮忙，谢谢