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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка значений со смещением вниз - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка значений со смещением вниз (Макросы/Sub)
Вставка значений со смещением вниз
rtv206 Дата: Воскресенье, 31.05.2020, 12:31 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 99
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте уважаемые специалисты!
Прошу Вашей помощи в решении проблемы:
Есть лист с данными "Database" с них данные макросом переносятся на другой лист "Base" в определенные ячейки.
Не могу придумать как сделать так чтобы при новой вставке на лист "Base" значения которые были не заменялись а вмещались вниз.
А то что переходит ниже чем строка 6 то удалялось (отмечено желтым).
Заранее благодарен за помощь
К сообщению приложен файл: Primer.xlsm(30.3 Kb)
 
Ответить
СообщениеЗдравствуйте уважаемые специалисты!
Прошу Вашей помощи в решении проблемы:
Есть лист с данными "Database" с них данные макросом переносятся на другой лист "Base" в определенные ячейки.
Не могу придумать как сделать так чтобы при новой вставке на лист "Base" значения которые были не заменялись а вмещались вниз.
А то что переходит ниже чем строка 6 то удалялось (отмечено желтым).
Заранее благодарен за помощь

Автор - rtv206
Дата добавления - 31.05.2020 в 12:31
Pelena Дата: Воскресенье, 31.05.2020, 13:23 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16796
Репутация: 3623 ±
Замечаний: ±

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Не совсем понятно, из какой строки брать значения для переноса, взяла из активной.
[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]

Автор - Pelena
Дата добавления - 31.05.2020 в 13:23
rtv206 Дата: Вторник, 02.06.2020, 22:28 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 99
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - rtv206
Дата добавления - 02.06.2020 в 22:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка значений со смещением вниз (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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