....можно конечно через FOR - NEXT, но для ускорения работы (может быть до 30 000 строк) - хотелось бы ввести метод автоформулы....
Может есть - кто с этим уже сталкивался?

....вот код:

NL = ActiveSheet.Name
Selection.AutoFilter Field:=3, Criteria1:="ЗП"
With Worksheets(NL).AutoFilter.Range.Columns(6)
Set iFilterRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible)
X1 = iFilterRange.Row
End With

Range("J" & X1 & "").Formula = "=E" & X1 & "*G" & X1 & ""
Range("J" & X1 & "").Select
Selection.FillDown

Файл с таблицей и встроенном кодом прикрепил...
Метод Selction.FillDown в VBA почему-то не работает... Без VBA - всё выполняется...

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

примерную таблицу сейчас попытаюсь сочинить...

Доброго времени дня!

Столкнулся с такой фигнёй - нужно протощить автоформулу в автофильтре для отобранных и видимых ячеек. Без VBA - выполняется элементарно. Через макрос записал процедуру в VBA - почему-то обнуляет первое значение и встаёт - вместо протаскивания автоформулы.
Поискал по форуму - ответа не нашёл...
Вод код:

Selection.AutoFilter Field:=3, Criteria1:="ЗП"
With Worksheets(NL).AutoFilter.Range.Columns(6)
Set iFilterRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible)
X1 = iFilterRange.Row
End With

Range("J" & X1 & "" .Formula = "=BH" & X1 & "*F" & X1 & "*R" & X1 & "*H" & X1 & "*I" & X1 & ""
Range("J" & X1 & "" .Select
Selection.FillDown

Без нижних 2-х строк - всё выполняется. Добавляю эти строки - не работает (Autofill тоже пробовал).

Помогите разобраться плиз...

......вроде разобрался:
заменил:
...пошло...

Доброго времени суток, форумчане!
Нашёл эту тему по поиску. Но мою проблему - не решила:
имею ячейки, в которых есть значения типа *1,2 или *1,15 или /1,18
Через функцию СЦЕПИТЬ получаю ячейки с содержимым =1*1,2 или =1*1,15 или =1/1,18
Далее мне нужно получить значение этих ячеек, по совету из темы применяю:
ActiveCell.FormulaLocal = ActiveCell.Text
Так как мне надо для группы ячеек заменил на:
Но вот какая фигня - для группы из 3-х ячеек с одинаковым значением (например =1*1,2) - эта операция проходит; Если в группу попадает другое значение (например =1) - операция не действует.

Помогите разобраться, плиз....