Добрый день всем!
Прошу помочь вас с маленьким макросом.
Задача:
В листе Form есть строка 47.
B47 - это ключ(Уникальный номер договора), B47:I47 данные которые надо скопировать (только значения, без изменения форматирования) в лист Коттеджи в строку, в которой ячейка А совпадает с В47.
Записал макрос:
Он все прекрасно копирует, но только в одну и ту же строку К1-3 (в папке Kot) , не зависимо от того, какой договор указать в B47.
Подскажите, если не сложно, что подправить?
Заранее благодарю.
Прошу помочь вас с маленьким макросом.
Задача:
В листе Form есть строка 47.
B47 - это ключ(Уникальный номер договора), B47:I47 данные которые надо скопировать (только значения, без изменения форматирования) в лист Коттеджи в строку, в которой ячейка А совпадает с В47.
Записал макрос:
Код |
---|
Sub MakrosForPlanet() Range("B47").Select Selection.Copy Sheets("Kot").Select Rows("4:4").Select Sheets("Form").Select Range("B47:I47").Select Application.CutCopyMode = False Selection.Copy Sheets("Kot").Select Range("A4:H4").Select ActiveSheet.Paste Sheets("Form").Select Application.CutCopyMode = False Range("A47").Select End Sub |
Подскажите, если не сложно, что подправить?
Заранее благодарю.