Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выгрузка данных с одного листа книги на другой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка данных с одного листа книги на другой (Макросы/Sub)
Выгрузка данных с одного листа книги на другой
artika2000 Дата: Воскресенье, 07.02.2016, 16:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте. При работе есть необходимость каждый раз сохранять данные (8-10 констант) получаемые при расчете, переносить их на второй лист, каждый раз в новую строку. самостоятельно не получилось решить проблему.
Файл прилагаю. внутри написано что бы хотелось
К сообщению приложен файл: dl.zip(40Kb)
 
Ответить
СообщениеЗдравствуйте. При работе есть необходимость каждый раз сохранять данные (8-10 констант) получаемые при расчете, переносить их на второй лист, каждый раз в новую строку. самостоятельно не получилось решить проблему.
Файл прилагаю. внутри написано что бы хотелось

Автор - artika2000
Дата добавления - 07.02.2016 в 16:16
al-Ex Дата: Воскресенье, 07.02.2016, 18:50 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 146
Репутация: 53 ±
Замечаний: 20% ±

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


Сообщение отредактировал al-Ex - Понедельник, 08.02.2016, 12:27
 
Ответить
Сообщение
каждый раз сохранять данные (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]

Автор - al-Ex
Дата добавления - 07.02.2016 в 18:50
artika2000 Дата: Воскресенье, 07.02.2016, 19:42 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - artika2000
Дата добавления - 07.02.2016 в 19:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка данных с одного листа книги на другой (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!