Нужен обновляемый диапазон Selection.AutoFill Destination:=Range("B3:B10278")

@BSH · Регистрация: 20.04.2016

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Есть таблица в которой каждый день будут добавляться данные по столбцу. Но есть проблема функция протаскивать ячейки автоматически макрос не хочет, то есть формула "=VLOOKUP(R3C1,[" & Format(Date, "ddmmyy") & ".XLSX]Sheet1!C1:C4,4,0)"
прописывается нормально в нужной на тот день ячейке. Но протаскивать он не может так как прописан диапазон

PureBasic

1
2
3

ActiveCell.FormulaR1C1 = "=VLOOKUP(R3C1,[" & Format(Date, "ddmmyy") & ".XLSX]Sheet1!C1:C4,4,0)"
    Selection.AutoFill Destination:=Range("B3:B10278")
    Range("B3:B10278").Select

1. Есть задумка сделать диапазон меняющимся (я не нашёл как это сделать)
2. В первой строчки у меня прописывается дата на момент формирования данных, можно оттолкнуться от нее, но все равно все упирается в диапазон протаскивания формулы.
Помогите.

@bedvit · 31.03.2017, 17:21

Приложите пример, укажите что хотите получить. Range можно менять программно.

@BSH · 31.03.2017, 17:40 **[ТС]**

В файле только один макрос. И он выдает ошибку как раз когда нужно формулу протащить вниз.

@BSH · 31.03.2017, 17:41 **[ТС]**

забыл вложить)))

@aequit · 31.03.2017, 19:06

Сообщение от BSH

Selection.AutoFill Destination:=Range("B3:B10278")

Почему столбец "B"? Ведь формула прописывается в другом столбце, а столбец "B" уже заполнен?
Попробуйте заменить эту строку на:

Visual Basic

1	ActiveCell.AutoFill Range(ActiveCell, Cells(10278, ActiveCell.Column))

Из файла и описания в стартовом посте непонятно, что Вы хотите.

@bedvit · 31.03.2017, 19:16

Не вникая в алгоритм, только то, что вы просили.

Visual Basic

Sub Макрос1()
    Range("a3").Select
    ActiveCell.Offset(0, 1).Select
            Do While Not IsEmpty(ActiveCell)
                ActiveCell.Offset(0, 1).Select
            Loop
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R3C1,Лист2!C1:C2,2,0)"
    Selection.AutoFill Destination:=ActiveCell.Resize(10278, 1) 
    Range("B3:B10278").Select
End Sub

Добавлено через 3 минуты
Или напишите какой конечный результат хотите получить. Не совсем понятен нужный результат. "Протягивание" я вам показал.

@BSH · 31.03.2017, 20:00 **[ТС]**

Спасибо. оба ответа мне подходят.

@bedvit 1102 / 237 / 21 Регистрация: 20.05.2016 Сообщений: 1,068 Записей в блоге: 21
	31.03.2017, 17:21	2
	Приложите пример, укажите что хотите получить. Range можно менять программно. 0

@BSH 17 / 1 / 2 Регистрация: 20.04.2016 Сообщений: 120
	31.03.2017, 17:40 [ТС]	3
	В файле только один макрос. И он выдает ошибку как раз когда нужно формулу протащить вниз. 0

@BSH 17 / 1 / 2 Регистрация: 20.04.2016 Сообщений: 120
	31.03.2017, 20:00 [ТС]	7
	Спасибо. оба ответа мне подходят. 0