Добрый день!
Не получается объединить два макроса.
Один макрос - это создание n-го количества строк после активной ячейки:
[vba]Код
ActiveCell.Offset(1).Resize(--InputBox("rows")).EntireRow.Insert
а второй - это копирование данных из активной ячейки, удаление данных с n-го столбца и вставка в добавляемую:
With ActiveCell.EntireRow
.Offset(1).Insert
.Copy .Offset(1)
End With
Cells(ActiveCell.Row + 1, 4).Resize(, 15).ClearContents
[/vba]
Помогите пожалуйста объединить.
Т.е. на выходе хочется: добавить n-строк, в которые скопировалось бы из активной ячейки необходимые данные.
Кнопочка хорошо работает на просто добавление nстрок, но никак не могу сообразить как еще и скопировать.