Не работают вместе Autofill + Resize

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не работают вместе Autofill + Resize (Макросы/Sub)

Almost

Дата: Четверг, 13.10.2016, 09:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 2 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте!
Не могу понять, почему не работает код, в интернете и на форуме не удалось найти ответ.
Необходимо автозаполнение колонки справа (нужны формулы, хотя в примере простые значения). Колонки определяются расстоянием от именованного диапазона.
Через копирование и спец. вставку мог бы сделать, но тут уже спортивный интерес, почему не работает Autofill?

[vba]

Код

Sub test()

Sheets("Лист2").Cells(1, [Start].Column + 1).Resize(10, 1).AutoFill _
Destination:=Cells(1, [Start].Column + 2).Resize(10, 1), Type:=xlFillDefault

End Sub

[/vba]

К сообщению приложен файл: test.xlsb (12.5 Kb)

Ответить

Karataev

Дата: Четверг, 13.10.2016, 10:14 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Диапазон "Destination" должен включать в себя и копируемый диапазон и диапазон, куда вставляются данные:
[vba]

Код

Sub test()
Sheets("Лист2").Cells(1, [Start].Column + 1).Resize(10, 1).AutoFill _
Destination:=Cells(1, [Start].Column + 1).Resize(10, 2), Type:=xlFillDefault
End Sub

[/vba]

Сообщение отредактировал Karataev - Четверг, 13.10.2016, 10:22

Ответить

Almost

Дата: Четверг, 13.10.2016, 10:19 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 42

Репутация: 2 ±

Замечаний: 0% ±

Excel 2016

Спасибо! Заработало

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не работают вместе Autofill + Resize (Макросы/Sub)

Страница 1 из 1
1