Страницы: 1
RSS
Макрос поиска совпадений и выдачи результата
 
Добрый день! В основной макрос мне нужно встроить часть, отвечающую за поиск совпадений и выдачу результата, помогите, пожалуйста, с ее написанием. Во вложении файл, в нем 2 вкладки Отгрузка и Оплаты. Макрос должен искать совпадения номеров из столбца D вкладки Оплаты и столбца Е вкладки Отгрузка, если номер совпал, то в соответствующую номеру строку W (Оплаты) должен выдавать название транспортной из столбца АК (Отгрузки), например ДЛ, ПЭК, Байкал, Энергия и т.п.. При этом необходимо использовать следующую логику: если номер в столбце Е (Отгрузка) найден/совпал, макрос должен по столбцу Е (Отгрузка)"подняться вверх" до первой пустой ячейки и выдать результат из столбца АК. Иногда в этой ячейке не будет названия транспортной, будет пусто, это нормально. Заранее спасибо за Ваши ответы
Изменено: Евгений И. - 27.06.2017 08:17:59
 
Макрос, запускать при активном листе Оплаты
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
 iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
 Range("W2:W" & iLastRow).ClearContents
With Worksheets("Отгрузка")
  For i = 2 To iLastRow
       Set FoundCell = .Columns(5).Find(Cells(i, 4), , xlValues, xlWhole)
        If Not FoundCell Is Nothing Then
          Cells(i, "W") = FoundCell.CurrentRegion.Cells(1).Offset(-1, 32)
        End If
  Next
End With
End Sub
 
Спасибо, будем пробовать вписать в общий макрос))
Страницы: 1
Наверх