Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Протащить формулу в автофильтре
 
....можно конечно через 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 тоже пробовал).

Помогите разобраться плиз...
Активация формул с помощью VBA
 
......вроде разобрался:
заменил:
Код
Range("R" & X0 & ":R" & X10 & "".FormulaLocal = Range("R" & X0 & ":R" & X10 & "".Text
на 
Range("R" & X0 & ":R" & X10 & "".FormulaLocal = Range("R" & X0 & ":R" & X10 & "".Value
...пошло...
Активация формул с помощью VBA
 
Доброго времени суток, форумчане!
Нашёл эту тему по поиску. Но мою проблему - не решила:
имею ячейки, в которых есть значения типа *1,2 или *1,15 или /1,18
Через функцию СЦЕПИТЬ получаю ячейки с содержимым =1*1,2 или =1*1,15 или =1/1,18
Код
Range("R" & X0 & ":R" & X10 & "".Formula = "=CONCATENATE(""=1"",RC[-1])"
Далее мне нужно получить значение этих ячеек, по совету из темы применяю:
ActiveCell.FormulaLocal = ActiveCell.Text
Так как мне надо для группы ячеек заменил на:
Код
Range("R" & X0 & ":R" & X10 & ".FormulaLocal=Range("R" & X0 & ":R" & X10 & ".Text
Но вот какая фигня - для группы из 3-х ячеек с одинаковым значением (например =1*1,2) - эта операция проходит; Если в группу попадает другое значение (например =1) - операция не действует.

Помогите разобраться, плиз....
Код
Range("R" & X0 & ":R" & X10 & "".Formula = "=CONCATENATE(""=1"",RC[-1])"
Range("R" & X0 & ":R" & X10 & "".FormulaLocal = Range("R" & X0 & ":R" & X10 & "".Text
Страницы: 1
Наверх