подсчет строк в таблице

[Екатрина]

всем доброго времени суток.
прошу вашей помощи.

имеется форма в листе excel.
в ней таблица, которая начинается с 16 строки.
а заканчивается ... когда как ))
но всегда заканчивается строкой, содержащей слово "всего".
как подсчитать количество строк в таблице до всего ?

прилагаю для наглядности файл с табличкой.
заранее спасибо !

[IgorGO]

=МАКС((C1="всего")*СТРОКА(C1))-16
или
=МАКС(($A:$A="всего")*СТРОКА($A:$A) )-16

[vikttur]

=ПОИСКПОЗ("всего";A:A;)-16
=ПОИСКПОЗ("всего";A16:A100;)-1

[Hugo121]

Sub tt()
MsgBox "В текущем диапазоне " & [a16].CurrentRegion.Rows.Count - 1 & " строк."
End Sub

Может быть нужно -2 или вообще не отнимать - смотря на то, нужно Вам считать и заголовок и строку с "всего" или не нужно.

[Екатрина]

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

Sub tt()
MsgBox "В текущем диапазоне " & [a16].CurrentRegion.Rows.Count - 1 & " строк."
End Sub

Может быть нужно -2 или вообще не отнимать - смотря на то, нужно Вам считать и заголовок и строку с "всего" или не нужно.

всем спасибо большое
что значит текущий диапазон? к сожалению вывести значение на лист или записать в переменнную не получается.
задача в целом следующая:
у меня несколько листов и лист свод.
вот я в свод макросом переношу эти цели с каждого листа.
простым перебором это нельзя сделать так как у всех разное количество целей.
соотв-но хотела в макрос вписать функцию по поиску всего, определить кол-во строк, и сделать цикл по переносу данных.

я не могу понять как в макросе на листе свод написать формулу ПОИСКПОЗ для всех листов?
у меня выдает ошибку (Н/Д)

[Hugo121]

Насчёт "текущий диапазон" - это не Вы писали:

MsgBox "В текущем диапазоне " & z & " строк."

Я просто взял фразу из Вашего файла.

Ну и поиск и перенос (т.е. скорее всего нужно копирование) можно так организовать:

Sub tt()
Dim x As Range, rr As Range

Set x = Cells.Find("всего", , , xlWhole)
If Not x Is Nothing Then
'MsgBox "В текущем диапазоне " & x.CurrentRegion.Rows.Count - 1 & " строк."
Set rr = Range(Cells(x.CurrentRegion.Row + 1, 1), Cells(x.CurrentRegion.Row + x.CurrentRegion.Rows.Count - 2, 15))
With Workbooks.Add.Sheets(1)
rr.Copy .[a1]
End With
End If

End Sub

Или так:

Sub ttt()
Dim x As Range, rr As Range

Set x = Cells.Find("всего", , , xlWhole)
If Not x Is Nothing Then
'MsgBox "В текущем диапазоне " & x.CurrentRegion.Rows.Count - 1 & " строк."
Set rr = x.CurrentRegion
Set rr = rr.Offset(1, 0).Resize(rr.Rows.Count - 2, rr.Columns.Count) 'сдвиг выбора таблицы на  строку ниже и низ затем на 2 строки выше
With Workbooks.Add.Sheets(1)
rr.Copy .[a1]
End With
End If

End Sub

[Екатрина]

вот такой пишу макрос и не считает
Sub макрос3()
'
'
Application.ScreenUpdating = False: Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
'Set ws = ActiveWorkbook.Worksheets("свод")
nm = ActiveSheet.Name ' nm yoi naia
i = 0
For Each ws In Worksheets
i = i + 1
If ws.Name = nm Then

Exit For
End If
r = 3
Sheets(nm).Cells(1, r).Formula = "=MATCH(""sheets(ws)!всего"",A16:A2 3,)"

r = r + 1
Next ws

Application.ScreenUpdating = True: Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub

диапазон A16 A23 - написан без пробелов, это так здесь разместилось

[vikttur]

Зачем вставлять функцию листа? Почему не хотите CurrentRegion?

[Екатрина]

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

я не понимаю, как я могу применить currentregion в принципе, тк я не знаю как он работает при моей проблеме.
и синтаксиса его не знаю.

в общем стараюсь решить так, как могу )

а насколько я понимаю, currentregion - только для выделенного диапазона. а у меня такого не имеется. листов несколько и активный лист - лист свод

[vikttur]

Придут знатоки, объяснят более подробно.
Hugo121 предложил:
[a16].CurrentRegion.Rows.Count
Относительно [a16]. Весь диапазон. Строки.Количество, т.е. количество строк заполненного диапазона.
А функции листа в макросе работают медленно.