Помогите пожалуйста с макросом для работы с архивом

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: Помогите пожалуйста с макросом для работы с архивом

Re: Помогите пожалуйста с макросом для работы с архивом

pashulka » 22 янв 2018, 18:05

Если штрих код уникален, т.е. он не повторяется, то цикл, равно как и "отключение" обновления экрана - не нужны.

Код: Выделить всё

Private Sub Test()
    Dim ws As Worksheet, c As Range, s$
    
    s = InputBox("Введите штрих код")
    If s = "" Then MsgBox "Ошибка пользователя", vbCritical, "": Exit Sub
    
    Set ws = ThisWorkbook.Worksheets("Лист2")
    Set c = Application.Range("Выгрузка!A:A").Find(s, , xlValues, xlWhole)
    If Not c Is Nothing Then
       With c.Resize(, 14)
            .Copy ws.Cells(ws.Rows.Count, 1).End(xlUp)(2)
            .Interior.Color = vbYellow
       End With
    Else
       MsgBox "Штрих код " & s & " не найден", vbCritical, ""
    End If
End Sub

Вернуться к началу