Вставка значений со смещением вниз

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

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

Вставка значений со смещением вниз (Макросы/Sub)

rtv206

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

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

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

Сообщений: 131

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

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

Excel 2013

Здравствуйте уважаемые специалисты!
Прошу Вашей помощи в решении проблемы:
Есть лист с данными "Database" с них данные макросом переносятся на другой лист "Base" в определенные ячейки.
Не могу придумать как сделать так чтобы при новой вставке на лист "Base" значения которые были не заменялись а вмещались вниз.
А то что переходит ниже чем строка 6 то удалялось (отмечено желтым).
Заранее благодарен за помощь

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

Ответить

Pelena

Дата: Воскресенье, 31.05.2020, 13:23 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Не совсем понятно, из какой строки брать значения для переноса, взяла из активной.
[vba]

Код

Sub Paste()
    Dim shSrc As Worksheet, shBase As Worksheet
    Dim lr As Long, i&
    Application.ScreenUpdating = False
    lr = ActiveCell.Row
    Set shSrc = Worksheets("Database")
    Set shBase = Worksheets("Base")
    With shBase
        .Rows(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        For i = 1 To 17
            .Cells(2, i).Value = shSrc.Cells(lr, i).Value
        Next i
        .Range(.Cells(7, 1), .Cells(7, 1).End(xlDown)).EntireRow.Delete
    End With
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

rtv206

Дата: Вторник, 02.06.2020, 22:28 | Сообщение № 3

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

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

Сообщений: 131

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

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

Excel 2013

Pelena, Спасибо за помощь.
Буду пробовать

Ответить

Вставка значений со смещением вниз (Макросы/Sub)

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