订单录入保存求教

glxfy

自己整理的订单表格，希望实现录入订单后保存，不懂公式，求大神帮忙实现这几个功能1、订单录入表格，输入客户名称后，自动出来该客户名下的产品供选择，比如客户名称这里输入阿峰，产品名称这里出现下拉选择，该客户下有几个产品出现几个选项，选择其中一个产品后，箱型、材质、规格、最新单价都自动反显。（订单录入表格里的数据来源自客户产品汇总表格）

2、订单录入完成后，点击保存按钮，订单录入表格里的订单全部保存至客户历史订单表格里，同时最后一栏显示每一笔订单的日期

2、订单录入完成后，点击保存按钮，订单录入表格里的订单对客户产品汇总这个表格里的数据进行更新，产品汇总表里没有的进行添加，有了的可能价格、规格或材料会变动，按最新录入的订单，更新产品汇总里的内容。

不知道解释得清楚了吗，跪求大神帮忙

glxfy

求大神帮忙，谢谢

glxfy

都没人知道吗，付费能有人帮忙吗？

75166454

Private Sub CommandButton1_Click()
Dim x%  '声明变量
x = MsgBox("是否保存到汇总表？", vbYesNo)
If x = vbYes Then
Close
y = [F23].End(1).Row
For I = 4 To y
x = Sheet2.[E65536].End(3).Row + 1
Sheet2.Cells(x, 1) = Cells(I, 1)
Sheet2.Cells(x, 2) = Cells(I, 2)
Sheet2.Cells(x, 3) = Cells(I, 3)
Sheet2.Cells(x, 4) = Cells(I, 4)
Sheet2.Cells(x, 5) = Cells(I, 5)
Sheet2.Cells(x, 6) = Cells(I, 6)
Sheet2.Cells(x, 7) = Cells(1, "A")
Next
ActiveWorkbook.Save
End If
End Sub

75166454

qq:454693859