Выгрузка данных с одного листа книги на другой

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка данных с одного листа книги на другой (Макросы/Sub)

artika2000

Дата: Воскресенье, 07.02.2016, 16:16 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте. При работе есть необходимость каждый раз сохранять данные (8-10 констант) получаемые при расчете, переносить их на второй лист, каждый раз в новую строку. самостоятельно не получилось решить проблему.
Файл прилагаю. внутри написано что бы хотелось

К сообщению приложен файл: dl.zip (39.6 Kb)

Ответить

al-Ex

Дата: Воскресенье, 07.02.2016, 18:50 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 59 ±

Замечаний: 0% ±

Excel 2010

Цитата artika2000, 07.02.2016 в 16:16, в сообщении № 1

каждый раз сохранять данные (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

[/vba]

К сообщению приложен файл: dl.xlsm (51.1 Kb)

Сообщение отредактировал al-Ex - Понедельник, 08.02.2016, 12:27

Ответить

artika2000

Дата: Воскресенье, 07.02.2016, 19:42 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

al-Ex, Благодарю Вас, спасибо.
В общем понятно, далее думаю разберусь, спасибо Вам.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка данных с одного листа книги на другой (Макросы/Sub)

Страница 1 из 1
1