Ребята добрый день у кого ночь ! Ну очень нужен крутой макрос . Вроде бы все изложил в самом файле то что мне надо . Перенести все данные во вкладку с отчетами. Файл прикладываю! Спасибо заранее огромное ! Если можно макрос так чтоб я потом ячейки переименовывал и макрос работал, двигать ячейки не буду.
Ребята добрый день у кого ночь ! Ну очень нужен крутой макрос . Вроде бы все изложил в самом файле то что мне надо . Перенести все данные во вкладку с отчетами. Файл прикладываю! Спасибо заранее огромное ! Если можно макрос так чтоб я потом ячейки переименовывал и макрос работал, двигать ячейки не буду.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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
