Taibareal (Автор тем)

Поиск совпадений в другой книге и копирование данных

Пользователь

Сообщений: 11 Регистрация: 15.03.2016

22.03.2016 08:31:25

Суть такая: в одной книге есть список аппаратов с заводскими номерами (Книга1), в другой книге есть тот же список аппаратов с заводскими номерами, но уже в другой последовательности (Книга2). В Книге2 есть еще столбец с годом ввода в эксплуатацию. Как мне сделать, чтобы автоматически сравнить заводские номера в двух книгах и, в случае совпадения, вставить год ввода в эксплуатацию в Книгу1.

Изменено: Taibareal - 22.03.2016 08:49:47

Перейти

Копировать данные из нескольких ячеек в название листа

Taibareal

Пользователь

Сообщений: 11 Регистрация: 15.03.2016

15.03.2016 11:15:04

Здравствуйте, нужна помощь в написании макроса. У меня есть таблица, где
указываются данные на оборудование. В разных ячейках - название и его
позиция. Мне надо, чтобы макрос копировал данные из этих ячеек в
название листа в другой книге. Мой макрос не работает:

Код

Dim r As Range
Dim q As Range

  Set r = Sheets("Лист1").Range("A1:D49")
  'Set q = Sheets("Лист1").Range("d7") '& " поз. " & Sheets("Лист1").Range("d5")
  With Workbooks("Книга2.xlsx").Worksheets.Add
  Application.ScreenUpdating = False
  '.PasteSpecial Paste:=xlPasteFormats
  '.PasteSpecial Paste:=xlPasteColumnWidths
  'Application.ScreenUpdating = False
    r.Copy .Range("A1:D49")
        .Name = Sheets("Книга2").Range("E" & i).Value & " поз. " & Range("F" & i).Value
  End With

Перейти