Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Постановка значения в последнюю незаполненную строку

Автор daripana, 18.03.2016, 20:59

« назад - далее »

daripana

Добрый вечер,

Есть макрос на поиск штрих-кода по колонке A и подстановка значения в колонку B:
Sub ПоискИПодстановка()
Dim FD, firstAddress
FD = InputBox("Введите Штрих-Код", "Мой Поиск")
If FD = "" Then Exit Sub ' отмена - отказ от поиска
Dim c As Range: Set c = Range("A:A").Find(FD) ' поиск
' если ничего не нашли - выход из макроса
If c Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub
firstAddress = c.Address
c.Select
Dim x As Integer
x = Str(InputBox("Введите Количество"))
Range("B" & ActiveCell.Row).Value = x

End Sub

Необходимо добавить функцию подстановки введенного штрих-кода, если его нет в колонке, в последнюю незаполненную строку и далее по аналогии в форме подставить количество

Слабо разбираюсь в VBA, надеюсь на вашу помощь
Может есть мысли как улучшить макрос.

Спасибо

kuklp

Sub ПоискИПодстановка()
    Dim FD, x&, c As Range
    FD = InputBox("Введите Штрих-Код", "Мой Поиск")
    If FD = "" Then Exit Sub    ' отмена - отказ от поиска
    Set c = Range("A:A").Find(FD)    ' поиск
    ' если ничего не нашли добавляем
    If c Is Nothing Then
        MsgBox "Искомые данные не найдены", vbExclamation
        Set c = Cells(Rows.Count, 1).End(xlUp)(2)
        c.Value = FD
    End If
    c.Select
    x = Str(InputBox("Введите Количество"))
    c(1, 2).Value = x
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

daripana

KuklP,

огромное спасибо.
именно то, что нужно было! :)