Добрый день всем!
Прошу помочь вас с маленьким макросом.
Задача:
В листе 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 |
Подскажите, если не сложно, что подправить?
Заранее благодарю.
