Инвентаризация копировать / вставлять, очищать, архивировать и обновлять - PullRequest
Новая
       51

Инвентаризация копировать / вставлять, очищать, архивировать и обновлять

0 голосов
/ 29 октября 2019

Я пытаюсь собрать электронную таблицу, чтобы помочь отслеживать и поддерживать инвентаризацию / пополнение запасов. Это должен быть «патч», пока компания не перейдет на программное обеспечение, которое напрямую общается с AP. Я много сделал с Excel, но VBA я не трогал годами. Я продолжаю врезаться в стену здесь и ищу какую-то помощь.

Вот что я хочу сделать:

  • Иметь список предметов инвентаря на форме (в настоящее время лист с названием "MOB")
  • Заполнить ячейку "L1"с номером задания / ссылкой (желтая ячейка на изображении)
  • Введите количество извлеченных элементов (количество MOB, строка" L7: L49 ")

(введена кнопка" Отправить "items)

[FORM] [1]

С помощью кнопки я хочу выполнить следующие действия:

  1. Копирование / вставка строк из листа «MOB»на лист "STOCK TRACKING", который содержит любое значение, введенное в столбце "L". Вставьте эти данные в следующую доступную строку. Включите номер проекта в конце каждой скопированной строки.

[ОТСЛЕЖИВАНИЕ СТОКОВ] [2]

Очистить / сбросить введенные количества и номер проекта на листе "MOB" Обновить текущий инвентарный счет из листа "ИНВЕНТАРЬ". (вычтите количество введенных товаров, чтобы сохранить текущий запас). Нужно будет сделать что-то подобное, чтобы добавить инвентарь, а не просто вытащить (возможно, использовать ту же форму и ввести отрицательное количество)

[ИНВЕНТАРЬ] [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
...