Здравствуйте. При работе есть необходимость каждый раз сохранять данные (8-10 констант) получаемые при расчете, переносить их на второй лист, каждый раз в новую строку. самостоятельно не получилось решить проблему. Файл прилагаю. внутри написано что бы хотелось
Здравствуйте. При работе есть необходимость каждый раз сохранять данные (8-10 констант) получаемые при расчете, переносить их на второй лист, каждый раз в новую строку. самостоятельно не получилось решить проблему. Файл прилагаю. внутри написано что бы хотелосьartika2000
каждый раз сохранять данные (8-10 констант) получаемые при расчете, переносить их на второй лист, каждый раз в новую строку.
Ну, вот так выглядит это "сщастье", примерно: [vba]
Код
Sub MySave() 'Вот так вставляем новую строку "Rows("2:2")", в "Sheets("В работе")" Sheets("В работе").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Новая запись всегда вставляется во вторую строку листа "В работе" 'Старые строки при этом просто сдвигаются вниз.
'вот так из листа "просчёт" переносим значения на лист "в работе" Sheets("В работе").Cells(2, 1).Value = Sheets("просчет").Cells(1, 1).Value Sheets("В работе").Cells(2, 17).Value = Sheets("просчет").Cells(3, 1).Value '___следующие значения сюда_________________ 'остальные значения просто по аналогии делаем (адресация: Cells(номер cтроки, номер колонки))
'Сохраняем книгу после внесенных изменений. ActiveWorkbook.Save End Sub
каждый раз сохранять данные (8-10 констант) получаемые при расчете, переносить их на второй лист, каждый раз в новую строку.
Ну, вот так выглядит это "сщастье", примерно: [vba]
Код
Sub MySave() 'Вот так вставляем новую строку "Rows("2:2")", в "Sheets("В работе")" Sheets("В работе").Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Новая запись всегда вставляется во вторую строку листа "В работе" 'Старые строки при этом просто сдвигаются вниз.
'вот так из листа "просчёт" переносим значения на лист "в работе" Sheets("В работе").Cells(2, 1).Value = Sheets("просчет").Cells(1, 1).Value Sheets("В работе").Cells(2, 17).Value = Sheets("просчет").Cells(3, 1).Value '___следующие значения сюда_________________ 'остальные значения просто по аналогии делаем (адресация: Cells(номер cтроки, номер колонки))
'Сохраняем книгу после внесенных изменений. ActiveWorkbook.Save End Sub