Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание новой строки с копированием формата и формул
 
#1
19.10.2019 22:33:30
Добрый день!

Пытаюсь сделать макрос, который бы создавал новую строку после последней заполненной с копированием формата и формул с предыдущей (или с эталонной, в данном случае она 3-я).

Вставляю примеры, которые нахожу, но они не работают.
Помогите пожалуйста.
Изменено: medal527 - 25.11.2019 23:51:00 (Изменился файл)
 
 
 
#2
20.10.2019 18:03:35
Код
Sub Кнопка3_Щелчок()
    Lr = Cells(Rows.Count, 2).End(xlUp).Row + 1
    Range("A3:T3").Copy Range("A" & Lr)
    Cells(Lr, "A") = Cells(Lr - 1, "A") + 1
    Range("B" & Lr).Resize(, 4).ClearContents
    Range("G" & Lr).Resize(, 5).ClearContents
    Range("M" & Lr).Resize(, 8).ClearContents
End Sub
Мой канал
 
 
 
#3
20.10.2019 21:10:39
Спасибо, большое! То, что нужно!
 
 
 
#4
24.11.2019 21:23:35
Еще раз добрый день!
Я уже близок к завершению. Правда немного переделал файл.
Возникла проблема. В столбце К не копируются формулы. В столбцах C и D тоже не копируются, но я обошел это выбором из списка. Хотя лучше бы, чтобы копировались. В чем проблема - не пойму.
Помогите, пожалуйста
 
 
 
#5
25.11.2019 22:19:51
Код
Sub Кнопка3_Щелчок()
    Lr = Cells(Rows.Count, 2).End(xlUp).Row + 1
    Range("A3:T3").Copy Range("A" & Lr)
    Cells(Lr, "A") = Cells(Lr - 1, "A") + 1
    Range("B" & Lr).Resize(, 4).ClearContents
    Range("G" & Lr).Resize(, 5).ClearContents
    Range("M" & Lr).Resize(, 8).ClearContents
End Sub
Друзья, помогите пожалуйста еще раз
макрос не хочет в некоторых столбцах переносить формулу на новую строку. Что подкрутить не знаю
Изменено: medal527 - 25.11.2019 22:37:04
 
 
 
#6
25.11.2019 22:30:03
medal527, код следует оформлять соответствующим темгом - даже не придётся вручную нумеровать строки. Ищите такую кнопку (см. скрин) и исправьте своё сообщение.
 
 
 
#7
25.11.2019 23:25:18
Цитата
или с эталонной, в данном случае она 3-я).
В этой строке в ячейках, где формулы закрепите диапазон
=ВПР(E3;'все представители заказчиков'!$B$3:$C$16;2;ЛОЖЬ)
 
 
 
Страницы: 1
Наверх