分享一个公司用的物料管理表格

caowei19907

这个表格是公司高手（我认为）做的，因看不懂里面的VBA，希望EH高手指导，菜鸟不甚感激！


Private Sub CommandButton1_Click()
If Sheets("数据录入").Cells(2, 6) <> "" Then
Dim A As Long
A = Sheets("数据录入").[F11].End(xlUp).Row
Sheets("数据录入").Range("B2:K" & A).Select
Selection.Copy
Dim b As Long
b = Sheets("数据库").[a65536].End(xlUp).Row + 1 零星采购辅料仓.rar (137.41 KB, 下载次数: 1431)

2015-2-26 18:03 上传

点击文件名下载附件

Sheets("数据库").Select
Sheets("数据库").Cells(b, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("数据录入").Range("E2:E17").ClearContents
Sheets("数据录入").Range("F2:F11").ClearContents
Sheets("数据录入").Range("h2:h11").ClearContents
Sheets("数据录入").Range("K2:K11").ClearContents
Sheets("数据录入").Select
Sheets("数据录入").Cells(2, 6).Select
Else
MsgBox "选择工作中心、代码及数量"
End If
End Sub

caowei19907

是否有高手能解答？ 谢谢。

w53155

月度消耗怎木不好用啊

caowei19907

w53155 发表于 2015-4-13 12:04
月度消耗怎木不好用啊

这个引用无效, 需要自己用sumif做个公式，然后引用。

469987916

我也想知道，这个数据录入也没有生成。求解

Day-Day

这位同学你想别人怎么帮你呢》》