Ребята добрый день у кого ночь ! Ну очень нужен крутой макрос . Вроде бы все изложил в самом файле то что мне надо . Перенести все данные во вкладку с отчетами. Файл прикладываю! Спасибо заранее огромное ! Если можно макрос так чтоб я потом ячейки переименовывал и макрос работал, двигать ячейки не буду.
Ребята добрый день у кого ночь ! Ну очень нужен крутой макрос . Вроде бы все изложил в самом файле то что мне надо . Перенести все данные во вкладку с отчетами. Файл прикладываю! Спасибо заранее огромное ! Если можно макрос так чтоб я потом ячейки переименовывал и макрос работал, двигать ячейки не буду.SpecialistPTO
'для листа Гс кнопка Записать в отчет Sub WriteInReport() Dim FoundDate As Range With Worksheets("Отчет") Set FoundDate = .Columns(2).Find(Range("S2"), , xlValues, xlWhole) .Cells(FoundDate.Row, "D") = Range("D29") 'ВП 'остальное заполнение аналогично End With End Sub
[/vba]
[vba]
Код
'для листа Гс кнопка Записать в отчет Sub WriteInReport() Dim FoundDate As Range With Worksheets("Отчет") Set FoundDate = .Columns(2).Find(Range("S2"), , xlValues, xlWhole) .Cells(FoundDate.Row, "D") = Range("D29") 'ВП 'остальное заполнение аналогично End With End Sub
Kuzmich, Привет спасибо за то что обратили внимание на мою тему! Что то у меня не в ту ячейку переносит данные . Мне нужно чтоб макрос вносил данные в лист отчет ,согласно ячейке где дата отчета в листе Гс и Ме поясните как мне делать аналогию привязку к листам. Распишите что делает каждая функция , я просто не Ас.
Пере залил файл чуток исправленный кое где не раскрасил.
Kuzmich, Привет спасибо за то что обратили внимание на мою тему! Что то у меня не в ту ячейку переносит данные . Мне нужно чтоб макрос вносил данные в лист отчет ,согласно ячейке где дата отчета в листе Гс и Ме поясните как мне делать аналогию привязку к листам. Распишите что делает каждая функция , я просто не Ас.
Пере залил файл чуток исправленный кое где не раскрасил.SpecialistPTO
На листе Гс у вас есть кнопка "Записать в отчет", вот и привяжите к ней вышеприведенный макрос Макрос берет дату из ячейки Range("S2") и ищет эту дату на листе "Отчет" в столбце В. [vba]
Код
Set FoundDate = .Columns(2).Find(Range("S2"), , xlValues, xlWhole)
[/vba] .Cells(FoundDate.Row, "D") - это ячейка на листе Отчет в строке с найденной датой и столбце D, куда мы записываем значение из ячейки Range("D29") 'ВП Остальное по аналогии
На листе Гс у вас есть кнопка "Записать в отчет", вот и привяжите к ней вышеприведенный макрос Макрос берет дату из ячейки Range("S2") и ищет эту дату на листе "Отчет" в столбце В. [vba]
Код
Set FoundDate = .Columns(2).Find(Range("S2"), , xlValues, xlWhole)
[/vba] .Cells(FoundDate.Row, "D") - это ячейка на листе Отчет в строке с найденной датой и столбце D, куда мы записываем значение из ячейки Range("D29") 'ВП Остальное по аналогииKuzmich
Kuzmich, Спасибо огромное очень помогло разобрался ! Но а как заполнить данные в таблице в листе отчет , те строки которые стоят с формулой ? Например в столбце ИБ Данные нужно не просто перенести а еще сминусовать данные со столбца Б так же согласно дате . Пример в строке Е3 должна отразиться информация разности с D30(лист Гс) - R3(лист Отчет). Был бы признателен.
Kuzmich, Спасибо огромное очень помогло разобрался ! Но а как заполнить данные в таблице в листе отчет , те строки которые стоят с формулой ? Например в столбце ИБ Данные нужно не просто перенести а еще сминусовать данные со столбца Б так же согласно дате . Пример в строке Е3 должна отразиться информация разности с D30(лист Гс) - R3(лист Отчет). Был бы признателен.SpecialistPTO
Старайся знать все о чём-нибудь и что-нибудь обо всем !