+ Ответить в теме
Показано с 1 по 2 из 2

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

  1. #1
    tchipa5 is on a distinguished road
    Регистрация
    16.01.2018
    Возраст
    27
    Сообщений
    1
    Вес репутации
    0

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

    Добрый вечер!
    Последний раз редактировалось tchipa5; 22.01.2018 в 18:37.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    76
    Сообщений
    829
    Вес репутации
    16

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

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

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

+ Ответить в теме

Похожие темы

  1. помогите с макросом
    Ситуация такова - есть 2 базы. Номенклатура одна и та же, только последовательность изменена. Но из одной базы отчетом выкачиваются данные со...
    от Natatka в разделе MS Office и VB(A).
  2. помогите пожалуйста с макросом!!!
    нужно чтобы по нажатию кнопки находилось решение функции и выдавало ее в два столбца(x и y) на заданном отрезке с заданным шагом...вот что у меня...
    от killnur в разделе MS Office и VB(A).
  3. Помогите с макросом в Exsel, очень надо!!! ПОЖАЛУЙСТА!!!
    Здравствуйте, помогите, пожалуйста, с макросом в Exsel, у самой не получается((( Вот задание: Имеется столбец с числами. Создать второй столбец,...
    от gadya в разделе MS Office и VB(A).
  4. Очень Срочно!!! Помогите пожалуйста с макросом для Worda
    Хочу создать макрос, который находил бы в тексте word определённые символы и менял у них шрифт и делал бы их курсивом и так по всему документу....
    от unis в разделе MS Office и VB(A).
  5. Работа с архивом
    Народ, всем привет. Подскажите как работать с архивами: открывать, закрывать, извлекать, добавлять и т.д.
    от vitpanov в разделе Perl, PHP, ASP ...

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения