Добрый день. Хотелось бы создать форму для заполнения по дням. Есть таблица для фактического ввода за текущий день, и таблица с днями недели. Нужно чтобы при вводе фактического значения, данные переносились на текущую дату, и фиксировались там. И так каждый день. Возможно ли это автоматизировать, без постоянного убивания формул? Спасибо
Добрый день. Хотелось бы создать форму для заполнения по дням. Есть таблица для фактического ввода за текущий день, и таблица с днями недели. Нужно чтобы при вводе фактического значения, данные переносились на текущую дату, и фиксировались там. И так каждый день. Возможно ли это автоматизировать, без постоянного убивания формул? Спасибоokornilov
AlexM, на сколько я понял ТС нужно в ячейки B4:B7 ежедневно вносить какие то данные, что бы они отображались в соответствующем диапазоне под определенным днем. Но как же их фиксировать (сохранять) при переходе на другой день???
AlexM, на сколько я понял ТС нужно в ячейки B4:B7 ежедневно вносить какие то данные, что бы они отображались в соответствующем диапазоне под определенным днем. Но как же их фиксировать (сохранять) при переходе на другой день???VEKTORVSFREEMAN
"Опыт - это то, что получаешь, не получив того, что хотел"
AlexM, Нет, вы меня не так поняли. Мне не дни нужно менять. Я забиваю данные в желтые ячейки, хочу чтобы они переносились в таблицу по дням недели. К примеру я забил сегодня показатели, они прогрузились на 1.10.2014. Завтра я изменю дату на 02.10.2014, и забью в желтые ячейки новые показатели, нужно чтобы они прогрузились уже на 02.10.2014, при этом показатели 01.10.2014 так и остались неизменяемыми. И т.д. по месяцу.
AlexM, Нет, вы меня не так поняли. Мне не дни нужно менять. Я забиваю данные в желтые ячейки, хочу чтобы они переносились в таблицу по дням недели. К примеру я забил сегодня показатели, они прогрузились на 1.10.2014. Завтра я изменю дату на 02.10.2014, и забью в желтые ячейки новые показатели, нужно чтобы они прогрузились уже на 02.10.2014, при этом показатели 01.10.2014 так и остались неизменяемыми. И т.д. по месяцу.okornilov
Sub Macros() Dim iColumn As Long iColumn = Evaluate("MATCH(A2,C1:AG1,0)") + 2 Range("B4:B7").Copy (Sheets("Лист1").Range(Cells(4, iColumn), Cells(7, iColumn))) End Sub
[/vba]или[vba]
Код
Sub Macros1() Dim iColumn As Long iColumn = Evaluate("MATCH(A2,C1:AG1,0)") Range("B4:B7").Copy (Sheets("Лист1").Range("B4:B7").Offset(0, iColumn)) End Sub
[/vba]
Макрос[vba]
Код
Sub Macros() Dim iColumn As Long iColumn = Evaluate("MATCH(A2,C1:AG1,0)") + 2 Range("B4:B7").Copy (Sheets("Лист1").Range(Cells(4, iColumn), Cells(7, iColumn))) End Sub
[/vba]или[vba]
Код
Sub Macros1() Dim iColumn As Long iColumn = Evaluate("MATCH(A2,C1:AG1,0)") Range("B4:B7").Copy (Sheets("Лист1").Range("B4:B7").Offset(0, iColumn)) End Sub