Копирование диапазона на другой лист, без замены данных.

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

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

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

mortalwindos

Дата: Четверг, 11.02.2016, 11:30 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2013

Добрый день. Макрос копирует значение ячеек без формул, и вставляет на другой лист в ячейку B2 [vba]

Код

Sub Go()
If MsgBox("Оформить?", _
vbYesNo) = vbYes Then Application.ScreenUpdating = False
Range("A1:E60").Copy
With Sheets("Лист2").Range("B2")
    .PasteSpecial Paste:=xlPasteValues
    .PasteSpecial Paste:=xlPasteFormats
    .PasteSpecial Paste:=xlPasteColumnWidths
End With
With Application
     .ScreenUpdating = True: .CutCopyMode = False
End With
End Sub

[/vba] подскажите как сделать, чтобы данные добавлялись ниже, а не заменяли предыдущие.

К сообщению приложен файл: 6995120.xlsx (14.5 Kb)

Сообщение отредактировал mortalwindos - Четверг, 11.02.2016, 11:30

Ответить

Manyasha

Дата: Четверг, 11.02.2016, 12:10 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

mortalwindos, здравствуйте, так можно:
[vba]

Код

Sub Go_()
    If MsgBox("Оформить?", vbYesNo) <> vbYes Then Exit Sub
    Application.ScreenUpdating = False
    lrSh1 = Cells(Rows.Count, 1).End(xlUp).Row
    lrSh2 = Sheets("Лист2").Cells(Rows.Count, 2).End(xlUp).Row+1
    Range("A1:E" & lrSh1).Copy
    With Sheets("Лист2").Range("B" & lrSh2)
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteColumnWidths
    End With
    With Application
        .ScreenUpdating = True: .CutCopyMode = False
    End With
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Четверг, 11.02.2016, 12:27

Ответить

al-Ex

Дата: Четверг, 11.02.2016, 12:11 | Сообщение № 3

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

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

Сообщений: 190

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

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

Excel 2010

Вот так не подойдёт?

Цитата al-Ex, 07.02.2016 в 18:50, в сообщении № 2

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