VBA: finding description on another list of workbook and fill in current

Информация о материале
Родительская категория: Заметки
Категория: Программирование
Просмотров: 453
Звезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активнаЗвезда не активна
  
Sub AddDescription_Click()
Set CurrentWorkbook = Workbooks(ActiveWorkbook.Name)
Set REF_SHEET = CurrentWorkbook.Sheets("REF_SHEET")
Set CURRENT_SHEET = CurrentWorkbook.Sheets("CURRENT_SHEET")

CURRENT_SHEET.Select
Set Rng = Range(Cells(2, 2), Cells(55, 2))

For Each cell In Rng
If IsEmpty(cell.Value) = False Then
 MNP = cell.Value
 REF_SHEET.Select

 Set Rng = Range(Cells(2, 2), Cells(38, 2))
    For Each cell2 In Rng
        If cell2.Value = MNP Then
        cell.Offset(0, 2).Value = cell2.Offset(0, 2).Value
        End If
    Next cell2
End If
Next cell