Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос на дублирование строки без значений
 
#1
30.11.2018 07:28:11
Здраствуйте.
Возможно ли создать команду на дублирование строки =Лист2!A6:E6 без данных внутри но с формулой?Итог (копия) (Автосохраненный).xlsm (269.16 КБ)
Принцип работы примерно такой : заполняется строка данными нажимается Кнопка добавить строку. Создается еще строка но пустая с формулой.
 
 
 
#2
30.11.2018 09:08:07
Добрый день.
Если правильно понял - может так?
Код
Sub Kofein()
    Dim lngI As Long
    lngI = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A" & lngI & ":E" & lngI).Copy
    Cells(lngI + 1, 1).PasteSpecial Paste:=xlPasteFormulas
    Cells(lngI + 1, 1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#3
30.11.2018 10:07:42
Спасибо большое за помощь.
Да помогло но только данные с неё тоже копирует.
 
 
 
#4
30.11.2018 10:18:27
Данные копирует, не поспоришь... Но данные никуда не вставляет! :)
 
 
 
#5
30.11.2018 10:22:51
ну допишите очистку ячеек
Код
Cells(lngI + 1, 3).ClearContents
    Cells(lngI + 1, 5).ClearContents

п.с. в столбце А лучше формулу прописать.
Код
=МАКС($A$5:A5)+1
Изменено: V - 30.11.2018 10:26:55
 
 
 
#6
30.11.2018 13:13:54
Да работает. Спасибо вам.
А можно осуществить чтоб макросы удаления и дублирования строки работали но при этом стояла защита.  То есть можно было удалять или очищать только с помощью кнопок. Заранее спасибо  
 
 
 
#7
30.11.2018 13:41:25
поищите по форуму, было уже такое.
 
 
 
#8
30.11.2018 13:57:17
Почитайте эту статью.
 
 
 
Страницы: 1
Наверх