Question

我正在尝试将电子表格放在一起，以帮助跟踪和维护库存数量/补充库存。在公司过渡到直接与AP对话的软件之前，这将是一个“补丁”。我在excel上做了很多事情，但是多年来我都没碰过VBA。我在这里碰壁一直在寻找帮助。

这就是我想要做的：

在表单（当前名为“ MOB”的工作表）上具有清单项目的列表
用作业编号/参考填充单元格“ L1”（图像中的黄色单元格）
输入提取的项目数量（MOB数量，行“ L7：L49”）

（“提交”输入项目的按钮）

[FORM] [1]

使用按钮，我希望执行以下操作：

将包含在“ L”列中输入的任何值的行从工作表“ MOB”复制/粘贴到工作表“ STOCK TRACKING”。将此数据粘贴到下一个可用行。在复制的每一行的末尾添加项目编号。

[股票追踪] [2]

在“ MOB”表上输入的清除/重置数量和项目编号
从“ INVENTORY”工作表更新当前库存计数。（减去输入的项目数量以保持最新的库存数量）。将需要做一些类似的事情来添加库存，而不仅仅是从库存中提取（可能使用相同的表格并输入负数）

[库存] [3]

我搜索并尝试了几次代码迭代，但均未成功。我发现并编辑了以下复制/粘贴行的代码，但是它不包括输入的数量，而是根据输入的数量粘贴Xtimes行。

Dim rngSinglecell As Range
Dim rngQuantityCells As Range
Dim intCount As Integer
Set rngQuantityCells = Range("L7", Range("L7").End(xlDown))
For Each rngSinglecell In rngQuantityCells
    If IsNumeric(rngSinglecell.Value) And rngSinglecell.Value > 0 Then
    Sheets("STOCK TRACKING").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(rngSinglecell.Value, 8).Value = _
            Range(Range("B" & rngSinglecell.Row), Range("L" & rngSinglecell.Row)).Value
    End If
Next*

End Sub```


Any help would be appreciated. 

  [1]: https://i.stack.imgur.com/fkOZa.png
  [2]: https://i.stack.imgur.com/vuBEE.png
  [3]: https://i.stack.imgur.com/vdUgm.png

库存复制/粘贴，清除，存档和更新

0 个答案: