怎么输入数据直接生成生产单送货单？

shanwellbeing

求教大神帮忙~~~~
输入订单数据，在生产单里输入订单编号就能生成对应生产单，在发货单里输入发货单号，直接生成发货单，设置查询和打印按钮
附件表格，帮忙设计下，万分感谢！！！！

3190496160

生产单，目前预留了10行，如果超过10行如何处理呢？？？？？？

3190496160

Sub 生产单()
Dim arr As Variant, brr(), crr(), i&, j&, k&
s = [b3].Value
If Len(s) = 0 Then MsgBox "未输入订单号，无法查询": Exit Sub
arr = Sheets("录入数据").[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 6)
ReDim crr(1 To UBound(arr), 1 To 5)
For i = 1 To UBound(arr)
    If arr(i, 3) = s Then
        k = k + 1
        If k = 1 Then [f3] = arr(i, 19)
        brr(k, 1) = k
        brr(k, 2) = arr(i, 5)
        For j = 9 To 11
            brr(k, j - 6) = arr(i, j)
        Next j
        brr(k, 6) = arr(i, 13)
        For j = 25 To 29
            crr(k, j - 24) = arr(i, j)
        Next j
    End If
Next
[a6:f16] = Empty
[b18:f22] = Empty
If k > 0 Then
    [a6].Resize(k, 6) = brr
    [b18].Resize(k, 5) = crr
Else
    MsgBox "查无数据"
End If
End Sub

3190496160

样板.rar (16.3 KB, 下载次数: 42)

2021-7-28 11:05 上传

点击文件名下载附件

shanwellbeing

超过10行我可以把编号加个-2  打两张；如果能自动加行那就更好啦

客户PO那边不用对应，要对应的是上面的客户名称，还有个送货单也帮忙设置下吧~~~

感谢感谢！！！

膜拜大神！！！

如果要修改“客户PO那边不用对应，要对应的是上面的客户名称”这个问题 ，代码怎么改？

shanwellbeing

3190496160 发表于 2021-7-28 11:05
Sub 生产单()
Dim arr As Variant, brr(), crr(), i&, j&, k&
s = .Value

厉害再帮忙设置下送货单