Имеется макрос (записан макрорекордером, каюсь)))) в нем, перед тем как отдать команду на заливку, прописано какую область пометить - абсолютными адресами: вот эти строки:[vba]
Код
... ActiveSheet.Range[b]("$A$10:$BS$1126")[/b].AutoFilter Field:=39 ActiveSheet.Range[b]("$A$10:$BS$1126")[/b].AutoFilter Field:=8, Criteria1:=">=150" _ , Operator:=xlAnd Range("A14:AM1126").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5296274 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A2").Select End Sub
[/vba]и все бы ничего, да оказалось, что количество строк может гулять туда-сюда. Чем заменить абсолютную величину на относительную - выделить весь активный лист, но начало с той же ячейки - А10 (она неизменна).
Сразу сори за ламерство (я только учусь)
Имеется макрос (записан макрорекордером, каюсь)))) в нем, перед тем как отдать команду на заливку, прописано какую область пометить - абсолютными адресами: вот эти строки:[vba]
Код
... ActiveSheet.Range[b]("$A$10:$BS$1126")[/b].AutoFilter Field:=39 ActiveSheet.Range[b]("$A$10:$BS$1126")[/b].AutoFilter Field:=8, Criteria1:=">=150" _ , Operator:=xlAnd Range("A14:AM1126").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5296274 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A2").Select End Sub
[/vba]и все бы ничего, да оказалось, что количество строк может гулять туда-сюда. Чем заменить абсолютную величину на относительную - выделить весь активный лист, но начало с той же ячейки - А10 (она неизменна).tigor
А еще я слышу голоса...
Сообщение отредактировал Serge_007 - Пятница, 25.07.2014, 21:26
Погуглите, как посчитать количество строк в таблице (есть несколько способов). Если обозвать полученное число Х, то запись Range("$A$10:$BS$1126") примет вид Range("A10:BS" & X) где долларами можно свободно пожертвовать. Будьте внимательны и убедитесь, что считаете строки Вы именно на Вашем листе.
tigor, здравствуйте.
Погуглите, как посчитать количество строк в таблице (есть несколько способов). Если обозвать полученное число Х, то запись Range("$A$10:$BS$1126") примет вид Range("A10:BS" & X) где долларами можно свободно пожертвовать. Будьте внимательны и убедитесь, что считаете строки Вы именно на Вашем листе.Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279
Сообщение отредактировал Rioran - Пятница, 25.07.2014, 17:01