Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос значений, Перенести или скопировать значения с Лист1 на Лист2
 
#1
15.04.2024 19:58:33
Добрый   вечер уважаемые знатоки.
Возможно ли в Excel написать   след.макрос
На Лист1 имеется список   состоящий из столбцов "Артикул" "Наименовние" и   "Ячейка хранения"
На Лист2 заполненные   столбцы  только   "Артикул"  и   "Количество"
На основании Артикулов на   Листе2 перенести или скопировать на Лист2 "Ячейки хранения" и   "Наименования" из Листа1
(Лист2 всегда буду загружать с   новыми данными, а Лист1 всегда будет одинаковый.)
Не могли бы Вы мне подсказать   как написать такой макрос?
Перенос.xlsm (35.14 КБ)
Изменено: balsara58 - 15.04.2024 20:57:09 (Не открывается пример)
 
 
 
#2
15.04.2024 21:07:00
Здравствуйте.
Можно без макроса, функцией ВПР()
Код
=ЕСЛИОШИБКА(ВПР($A3;Лист1!$A:$C;2;);"Нет артикула")
=ЕСЛИОШИБКА(ВПР($A3;Лист1!$A:$C;3;);"Нет артикула")
 
 
 
#3
15.04.2024 21:30:15
Цитата
как написать такой макрос?
  При активном Лист2 запустить макрос
Код
Sub FindArticul()
Dim i As Long
Dim iLastRow As Long
Dim cell As Range
Dim List1 As Worksheet
  Set List1 = ThisWorkbook.Worksheets("Лист1")
  iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("B3:C" & iLastRow).ClearContents
 With List1
   For i = 3 To iLastRow
    Set cell = .Columns(1).Find(Cells(i, "A"), , xlValues, xlWhole)
    If Not cell Is Nothing Then
       Cells(i, "B") = cell.Offset(, 1)     'наименование
       Cells(i, "C") = cell.Offset(, 2)     'ячейка хранения
    Else
      MsgBox "На листе1 нет артикула: " & Cells(i, "A")
    End If
   Next
 End With
End Sub
 
 
 
Страницы: 1
Наверх