Значение выбранного диапазона.

[Vasek007]

Для запуска макроса нужно узнать кол-во строк в диапазоне выбора например их 7:

aaaaaaaa
sssssssss
ddddddd

gggggg
hhhhhh
jjjjjjjjjjj

curr_Row = ActiveCell.Row
'Количество строк в диапазоне
cnt_Rows = ActiveCell.CurrentRegion.Rows.Count
'Текущий столбец 
curr_Column = ActiveCell.Column

или

'Количество строк в диапазоне
numRows = Selection.Rows.Count

Иногда бывает бзик по переменным cnt_Rows или numRows практически должно быть одно и тоже значение 7, но они иногда показывают до первой "дырки" в диапазоне.
Где я ошибаюсь?

[R Dmitry]

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

Для запуска макроса нужно узнать кол-во строк в диапазоне выбора например их 7:

aaaaaaaa
sssssssss
ddddddd

gggggg
hhhhhh
jjjjjjjjjjj

curr_Row = ActiveCell.Row
'Количество строк в диапазоне
cnt_Rows = ActiveCell.CurrentRegion.Rows.Count
'Текущий столбец 
curr_Column = ActiveCell.Column

или

'Количество строк в диапазоне
numRows = Selection.Rows.Count

Иногда бывает бзик по переменным cnt_Rows или numRows практически должно быть одно и тоже значение 7, но они иногда показывают до первой "дырки" в диапазоне.
Где я ошибаюсь?

а так Cells(Rows.Count, 1).End(xlUp).Row

[Vasek007]

...
curr_Column = ActiveCell.Column
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, curr_Column).End(xlUp).Row
...

Получаем номер последнего заполненого ряда в curr_Column столбце
Вот только если этот столбец например

aaaaaaaa
sssssssss
ddddddd

gggggg
hhhhhh
jjjjjjjjjjj

рррр
уекек
уеууе

и нам нужно только до hhhhhh, то данный механизм не пройдет.