Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование данных ячейки на другой лист, каждый раз в строку ниже, Копирование
 
#1
09.04.2021 22:50:10
Добрый день, есть лист1 нужно с копировать ячейку например d5 и вставить в лист 2 например в d7  и при нажатии кнопки каждый раз в новую ячейку, то есть новые данные d5 в новую ячейку. Помоги пожалуйста. 7
 
 
 
#2
09.04.2021 22:55:00
Код
Sub MyCopy()
Dim LastRow As Long

    With Worksheets("Лист2")
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row + 1
        If LastRow < 7 Then LastRow = 7
        .Cells(LastRow, "D").Value = Worksheets("Лист1").Range("D5").Value
    End With
End Sub
 
 
 
#3
10.04.2021 18:43:35
Спасибо большое  
 
 
 
Страницы: 1
Наверх