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

[Екатрина]

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

[vikttur]

Я не знаток VBA, но советовать могу
Постарайтесь до прихода макросоведов выложить пример с 2-3 листами-источниками и сводом, "ГдеКудаКак".
А уж специалисты создадут вам цикл прохода по листам.

[Екатрина]

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

А уж специалисты создадут вам цикл прохода по листам.

так цикл прохода по листам у меня создан.
в моем тексте указан.
а вот поискпоз, то есть match в листах не пашет (

[Hugo121]

CurrentRegion - это область, прилегающая к выбранной ячейке. Выделена или нет - без разницы.
А по задаче - я показал, как можно часть нужной таблицы скопировать в нужное место. Если конечно подходит приём с CurrentRegion.
Куда копировать - это другой вопрос. Можно всё собирать в один лист, сдвигая целевую ячейку или определяя её после каждого копирования заново (iLastRow = Cells(Rows.Count, 1).End(xlUp).Row)

Или так, в существующий Sheets("свод"):

Sub tttt()
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 Sheets("свод")
rr.Copy .Range("A" & .Rows.Count).End(IIf(Len(.Range("A" & .Rows.Count)), xlDown, xlUp)).Offset(1)
End With
End If

End Sub

[Екатрина]

Hugo121 , в вашем макросе перенос идет вместе с объединенными ячейками, а я переношу в 1.
я понимаю, что задача каждый раз обновляется.
поэтому макрос по переносу данных в свод у меня написан, цикл есть, указан выше.
не могу прописать функцию "поискпоз" для каждого листа, чтобы определить количество столбцов, которые перенести.
потом я поячеечно переношу их в свод (без объединения ячеек).

[Hugo121]

Не очень понял, что именно нужно, но так выводит то же самое, что и MsgBox "В текущем диапазоне " & x.CurrentRegion.Rows.Count - 1 & " строк." :

Sheets(nm).Cells(1, r).Formula = "=MATCH(""всего""," & ws.Name & "!A16:A23,0)"

[Екатрина]

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

Не очень понял, что именно нужно, но так выводит то же самое, что и MsgBox "В текущем диапазоне " & x.CurrentRegion.Rows.Count - 1 & " строк." :

Sheets(nm).Cells(1, r).Formula = "=MATCH(""всего""," & ws.Name & "!A16:A23,0)"

ООО!
моя ошибка в синатксисе .... большое вам спасибо!!! )
дальше я разберусь сама ))))