Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
При копирование макросом не сохраняется высота строк
 
#1
27.07.2016 16:37:29
При копирование макросом не сохраняется высота строк. Google молчит.  Помогите. Что нужно изменить?

Вот виновник:
Код
Sub шапка()
    Range(ActiveCell, ActiveCell.Offset(5, 0)).EntireRow.Insert
    Range("A4:AK9").Copy
    Cells(ActiveCell.Row, 1).PasteSpecial
    Application.CutCopyMode = False
End Sub
 
 
 
#2
27.07.2016 16:43:01
А так:
.PasteSpecial
 
 
 
#3
27.07.2016 16:44:51
Не пашет вообще.
 
 
 
#4
27.07.2016 16:50:42
Цитата
Игорь_Ка написал:
При копирование макросом не сохраняется высота строк.
А должна?
There is no knowledge that is not power
 
 
 
#5
27.07.2016 16:54:14
Должна что? Не пойму.
Мне бы хотелось, чтоб высота строк, формат текста и формат ячеек оставались как в родителе.
Изменено: Игорь_Ка - 27.07.2016 16:56:57
 
 
 
#6
27.07.2016 16:55:56
У вас как с логикой? Вы написали "не сохраняется высота", на что я спросил "а должна сохраняться?" - чего непонятно?
Изменено: SuperCat - 27.07.2016 16:58:09
There is no knowledge that is not power
 
 
 
#7
27.07.2016 16:56:14
Вам бы не хотелось заглянуть в правила, показать пример, где это не работает?
 
 
 
#8
27.07.2016 17:04:41
Думал, что формулы будет достаточно.
Sorry!
 
 
 
#9
27.07.2016 19:06:46
А так?
Код
Sub шапка()
    Range(ActiveCell, ActiveCell.Offset(5, 0)).EntireRow.Insert
    Range("A4:AK9").Copy Cells(ActiveCell.Row, 1)
End Sub
 
 
 
#10
28.07.2016 11:03:08
Михаил С., не работает.
Если копируешь в ручную строки, потом вставляешь, то все нормально, а c макросом засада.
 
 
 
#11
28.07.2016 18:41:07
а так не годится разве?
Код
Sub шапка()
    Rows("4:9").Copy
    ActiveCell.EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub
F1 творит чудеса
 
 
 
#12
28.07.2016 20:18:06
Цитата
Игорь_Ка написал:  Михаил С.  не работает.
Михаил С. работает... во всяком случае - старается работать...
 
 
 
Страницы: 1
Наверх