Здравствуйте! Прошу ВАШЕЙ помощи в реализации сохранении данных на следующем листе. т.е в моем примере лист1 - это форма внесения данных, а последующие месяцы (июнь, июль...год) - это те листы, где будет сохранение
Здравствуйте! Прошу ВАШЕЙ помощи в реализации сохранении данных на следующем листе. т.е в моем примере лист1 - это форма внесения данных, а последующие месяцы (июнь, июль...год) - это те листы, где будет сохранениеstria
Sub Macros() Dim iRow As Long, iSheets As String If ActiveCell.Row < 5 Then Exit Sub If Range("A" & ActiveCell.Row) = "V" Then Exit Sub If Evaluate("CountA(" & Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Address & ")") < 9 Then Exit Sub iSheets = Format(ActiveCell.Value, "mmmm") iRow = Sheets(iSheets).Range("A" & Sheets(iSheets).Rows.Count).End(xlUp).Row If iRow = 1 Then Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Copy (Sheets(iSheets).Range("A5")) Range("A" & ActiveCell.Row) = "V" Else iRow = iRow + 1 Sheets(iSheets).Rows(iRow).Copy Sheets(iSheets).Rows(iRow).Insert Shift:=xlDown Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Copy (Sheets(iSheets).Range("A" & iRow)) Range("A" & ActiveCell.Row) = "V" End If End Sub
[/vba] Кнопка не сработает в трех случаях 1. Активная ячейка выше пятой строки. Сохраняется строка с активной ячейкой. 2. В строке не все данные заполнены, т.е. в диапазоне Bx:Jx меньше 9 значений. 3. В ячейке Ax стоит метка сохранения. Если метка стоит, то эта строка уже сохранена.
Не понял что сохранять в лист "Год" [vba]
Код
Sub Macros() Dim iRow As Long, iSheets As String If ActiveCell.Row < 5 Then Exit Sub If Range("A" & ActiveCell.Row) = "V" Then Exit Sub If Evaluate("CountA(" & Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Address & ")") < 9 Then Exit Sub iSheets = Format(ActiveCell.Value, "mmmm") iRow = Sheets(iSheets).Range("A" & Sheets(iSheets).Rows.Count).End(xlUp).Row If iRow = 1 Then Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Copy (Sheets(iSheets).Range("A5")) Range("A" & ActiveCell.Row) = "V" Else iRow = iRow + 1 Sheets(iSheets).Rows(iRow).Copy Sheets(iSheets).Rows(iRow).Insert Shift:=xlDown Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 10)).Copy (Sheets(iSheets).Range("A" & iRow)) Range("A" & ActiveCell.Row) = "V" End If End Sub
[/vba] Кнопка не сработает в трех случаях 1. Активная ячейка выше пятой строки. Сохраняется строка с активной ячейкой. 2. В строке не все данные заполнены, т.е. в диапазоне Bx:Jx меньше 9 значений. 3. В ячейке Ax стоит метка сохранения. Если метка стоит, то эта строка уже сохранена.AlexM
Вот форма для заполнения. (в прилагаемом файле) Алексей, я может не совсем понятно пытаюсь донести желаемое... Т.е. лист1 - это форма для заполнения. При нажатии СОХРАНИТЬ, эти данные переходят в лист2, лист3 ...., в зависимости от даты заполнения и там сохранялись. Из общего налета по месяцам посылались в лист ГОД и там тоже сохранялись. Не знаю в EXEL это реально?
Вот форма для заполнения. (в прилагаемом файле) Алексей, я может не совсем понятно пытаюсь донести желаемое... Т.е. лист1 - это форма для заполнения. При нажатии СОХРАНИТЬ, эти данные переходят в лист2, лист3 ...., в зависимости от даты заполнения и там сохранялись. Из общего налета по месяцам посылались в лист ГОД и там тоже сохранялись. Не знаю в EXEL это реально?stria
Напишите подробно. Кнопка сохранения нажимается после заполнения ячеек .... (перечислите все) Разумеется эти ячейки сохраняются на соответствующем дате листе. Какие еще ячейки надо сохранить. K5 -> J5, L5 -> K5 и тд. Перечислите все пары. Что должно произойти после сохранения данных формы. Ее надо очистить? Пока достаточно вопросов.
Напишите подробно. Кнопка сохранения нажимается после заполнения ячеек .... (перечислите все) Разумеется эти ячейки сохраняются на соответствующем дате листе. Какие еще ячейки надо сохранить. K5 -> J5, L5 -> K5 и тд. Перечислите все пары. Что должно произойти после сохранения данных формы. Ее надо очистить? Пока достаточно вопросов.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
После заполнения листа (форма для внесения данных) и нажатия "СОХРАНИТЬ"результаты перемещались на лист (июнь) и в этом же листе продолжали накапливаться (01.06.14, 03.06.14....). Сумма за месяц переходила на лист "год", и там так же суммировались месячные итоги В примере я попытался создать необходимый вид (без формул)
После заполнения листа (форма для внесения данных) и нажатия "СОХРАНИТЬ"результаты перемещались на лист (июнь) и в этом же листе продолжали накапливаться (01.06.14, 03.06.14....). Сумма за месяц переходила на лист "год", и там так же суммировались месячные итоги В примере я попытался создать необходимый вид (без формул)stria
В новом файле новые вопросы. Откуда взялись строки с датой 2.06.2014 и 3.06.2014??? Лучше ответьте на вопросы сообщения №6. Ваши ответы помогут понять задачу.
Не дождался вашего ответа. См. файл.
В новом файле новые вопросы. Откуда взялись строки с датой 2.06.2014 и 3.06.2014??? Лучше ответьте на вопросы сообщения №6. Ваши ответы помогут понять задачу.
Откуда взялись строки с датой 2.06.2014 и 3.06.2014???
Я хотел показать, что в листе МЕСЯЦ должно быть построчное накопление данных после нажатия СОХРАНИТЬ в форме накопления. т.е. при заполнении 1.06.14 в ИЮНЬ, при 15.07.14 в ИЮЛЬ и т.д. А из ИТОГО ЗА МЕСЯЦ строки месяцев в листе ГОД.
Здравствуйте Алексей! Я вечно в "разлетах", извиняюсь за не своевременный ответ.
Откуда взялись строки с датой 2.06.2014 и 3.06.2014???
Я хотел показать, что в листе МЕСЯЦ должно быть построчное накопление данных после нажатия СОХРАНИТЬ в форме накопления. т.е. при заполнении 1.06.14 в ИЮНЬ, при 15.07.14 в ИЮЛЬ и т.д. А из ИТОГО ЗА МЕСЯЦ строки месяцев в листе ГОД.stria
Вы файл из сообщения №8 открывали, кнопку нажимали?
Да, кнопка работает и сохраняет в нужный месяц. Но как сделать, что бы при очередном заполнении формы (лист1), данные переходили в нужный месяц и в очередные строки. Т.е. 1.06.14,..... 15.06.14 в июнь, 2.09.14....25.09.14 в сентябрь. А потом из ИТОГО каждого месяца в ГОД (но тут мне не сложно). Макросы, массивы - это мне тяжело((( В прилагаемом примере я ввел очередную дату (02.06.14) в форму заполнения, нажимаю СОХРАНИТЬ, но перемещения не происходит в очередные строки ИЮНЯ
Вы файл из сообщения №8 открывали, кнопку нажимали?
Да, кнопка работает и сохраняет в нужный месяц. Но как сделать, что бы при очередном заполнении формы (лист1), данные переходили в нужный месяц и в очередные строки. Т.е. 1.06.14,..... 15.06.14 в июнь, 2.09.14....25.09.14 в сентябрь. А потом из ИТОГО каждого месяца в ГОД (но тут мне не сложно). Макросы, массивы - это мне тяжело((( В прилагаемом примере я ввел очередную дату (02.06.14) в форму заполнения, нажимаю СОХРАНИТЬ, но перемещения не происходит в очередные строки ИЮНЯstria
[/vba]проверяет, заполнены ли все ячейки диапазона. Если не все, то данные не переносятся. Если вы заполните данные на сентябрь, то данные попадут на лист сентября. На лист "ГОД" данные итого переносятся. Это все уже сделано.
Строка кода[vba]
Код
If Evaluate("CountA(A5:I6)") < 18 Then Exit Sub
[/vba]проверяет, заполнены ли все ячейки диапазона. Если не все, то данные не переносятся. Если вы заполните данные на сентябрь, то данные попадут на лист сентября. На лист "ГОД" данные итого переносятся. Это все уже сделано.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
Методом тыка разобрался...Все работает. При нажатии СОХРАНИТЬ, данные уходят в МЕСЯЦ в том случаи, когда выделена ячейка А6 или А5. И еще Алексей, крайняя просьба.... ....Как бы еще из таблицы "РАБОЧЕЕ ВРЕМЯ ЭКИПАЖА" из ячеек ДЕНЬ, НОЧЬ (K15;L15) подобным образом перекинуть в МЕСЯЦ, ГОД в соответствующие ячейки.
Методом тыка разобрался...Все работает. При нажатии СОХРАНИТЬ, данные уходят в МЕСЯЦ в том случаи, когда выделена ячейка А6 или А5. И еще Алексей, крайняя просьба.... ....Как бы еще из таблицы "РАБОЧЕЕ ВРЕМЯ ЭКИПАЖА" из ячеек ДЕНЬ, НОЧЬ (K15;L15) подобным образом перекинуть в МЕСЯЦ, ГОД в соответствующие ячейки.stria
Сообщение отредактировал stria - Вторник, 17.06.2014, 23:29
Алексей, вот еще... В прилагаемом файле, при очередном вводе данных, время не суммируется. В ИТОГО не понятная цифра появляется... Пробовал по разному, тоже самое.....
Алексей, вот еще... В прилагаемом файле, при очередном вводе данных, время не суммируется. В ИТОГО не понятная цифра появляется... Пробовал по разному, тоже самое.....stria
AlexM, Спасибо за то, что не бросили мою задачу! Вот еще.... - После нажатия "СОХРАНИТЬ" , когда накопление в МЕСЯЦ (июнь) доходит до 14 строки - происходит сбой суммирования времени J36:S36. Может макрос каким то образом влияет? - лист1 (форма внесения данных) - При вводе времени в ячейки K5;K6 P5;P6 (колонки - "в т.ч. ночью") - нет суммирования в ИТОГО. Соответственно нет перехода в другие листы при нажатии "СОХРАНИТЬ"
P.S. (я подкорректировал лист1 (форма внесения данных) таким образом....=ТЕКСТ(K5;"00\:00")+ТЕКСТ(K6;"00\:00") ). Может в листе МЕСЯЦ также сделать? Или есть другое решение? -> (но до 14 строки нормально же суммировало )
AlexM, Спасибо за то, что не бросили мою задачу! Вот еще.... - После нажатия "СОХРАНИТЬ" , когда накопление в МЕСЯЦ (июнь) доходит до 14 строки - происходит сбой суммирования времени J36:S36. Может макрос каким то образом влияет? - лист1 (форма внесения данных) - При вводе времени в ячейки K5;K6 P5;P6 (колонки - "в т.ч. ночью") - нет суммирования в ИТОГО. Соответственно нет перехода в другие листы при нажатии "СОХРАНИТЬ"
P.S. (я подкорректировал лист1 (форма внесения данных) таким образом....=ТЕКСТ(K5;"00\:00")+ТЕКСТ(K6;"00\:00") ). Может в листе МЕСЯЦ также сделать? Или есть другое решение? -> (но до 14 строки нормально же суммировало )stria
Сообщение отредактировал stria - Четверг, 19.06.2014, 10:31
У меня пока нет способа автоматического подсчета ночного времени, т. к. у каждого аэропорта разное время наступление темноты. Я пока в эту ячейку в ручную ввожу, но учитывать надо в общем подсчете.
У меня пока нет способа автоматического подсчета ночного времени, т. к. у каждого аэропорта разное время наступление темноты. Я пока в эту ячейку в ручную ввожу, но учитывать надо в общем подсчете.stria
Сообщение отредактировал stria - Четверг, 19.06.2014, 12:49