Как получить значение ячейки в отфильтрованном списке?

[SkyWay]

Подскажите пожалуйста. Есть большой список на 100тыс записей.
Есть фильтры, по котором этот список можно отфильтровать.
В итоге при применение фильтр, к примеру на страницу отображаются 10 записей.
У этих записей номер строки например будет 300-400.
Вопрос, как обращаться к ячейкам, чтобы нумерация строки бралась не из общего списка, а именно по той позиции, что в полученном отфильтрованом списке. То есть с 1 и дальше.

[SkyWay]

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

Подскажите пожалуйста. Есть большой список на 100тыс записей.
Есть фильтры, по котором этот список можно отфильтровать.
В итоге при применение фильтр, к примеру на страницу отображаются 10 записей.
У этих записей номер строки например будет 300-400.
Вопрос, как обращаться к ячейкам, чтобы нумерация строки бралась не из общего списка, а именно по той позиции, что в полученном отфильтрованом списке. То есть с 1 и дальше.

Обращаться из VBA. Диапазон имелось ввиду, что номер эти строк будет 340, 346,375, 376 и т.д.
Такую нумерацию брать для цикла, так как в полном списке 116тыс записей, а надо чтобы макрос выполнил только по тем, что выдал фильтр.

[IgorGO]

отлично, уже теплее...
ответы начнут поступать, как только сформулируете вопрос так, что его начнут понимать

[Казанский]

Отфильтрованные ячейки - видимые. Перебрать в цикле отфильтрованные ячейки 1-го столбца автофильтра, включая заголовок, можно так:

Sub bb()
Dim x
For Each x In ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
    x.Select 'для примера
Next
End Sub

[SkyWay]

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

Подскажите пожалуйста. Есть большой список на 100тыс записей.
Есть фильтры, по котором этот список можно отфильтровать.
В итоге при применение фильтр, к примеру на страницу отображаются 10 записей.
У этих записей номер строки например будет 300-400.
Вопрос, как обращаться к ячейкам, чтобы нумерация строки бралась не из общего списка, а именно по той позиции, что в полученном отфильтрованом списке. То есть с 1 и дальше.

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

For i = 1 To Z
If max < Cells(i, 10) Then max = Cells(i, 10)

где i это первая строка, а Z количество всего строк.


Вопрос в том, как правильно записать тот же самый алгоритм, но не на простом листе, а с отфильтрованными данными

[IgorGO]

обьединяем то, что написал Казанский и Вы

Function MaxInFilter(c As Long)
  Dim x, mx
  mx = ActiveSheet.AutoFilter.Range.Columns(c).SpecialCells(xlCellTypeVisible).Cells(1)
  For Each x In ActiveSheet.AutoFilter.Range.Columns(c).SpecialCells(xlCellTypeVisible)
    If x.Value > mx Then mx = x.Value
  Next
  MaxInFilter = mx
End Function

здесь с - из какой колонки брать значения для поиска максимального.

[pashulka]

Кстати, для "поиска" максимального (и не только) значения в отфильтрованном диапазоне - существует стандартная функция рабочего листа =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(4; ДИАПАЗОН)

Разумеется, вызвать эту функцию можно и программно, например :

MsgBox Application.Subtotal(4, ActiveSheet.AutoFilter.Range.Columns(1))

Если же в столбце нет чисел над/под отфильтрованным диапазоном, то можно сразу указать весь столбец, типа :

MsgBox [Subtotal(4,A:A)]

MsgBox Application.Subtotal(4, [A:A])

[SkyWay]

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

обьединяем то, что написал Казанский и Вы

Function MaxInFilter(c As Long)
  Dim x, mx
  mx = ActiveSheet.AutoFilter.Range.Columns(c).SpecialCells(xlCellTypeVisible).Cells(1)
  For Each x In ActiveSheet.AutoFilter.Range.Columns(c).SpecialCells(xlCellTypeVisible)
    If x.Value > mx Then mx = x.Value
  Next
  MaxInFilter = mx
End Function

здесь с - из какой колонки брать значения для поиска максимального.

Большое спасибо, очень помогло

[SkyWay]

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

обьединяем то, что написал Казанский и Вы

Function MaxInFilter(c As Long)
  Dim x, mx
  mx = ActiveSheet.AutoFilter.Range.Columns(c).SpecialCells(xlCellTypeVisible).Cells(1)
  For Each x In ActiveSheet.AutoFilter.Range.Columns(c).SpecialCells(xlCellTypeVisible)
    If x.Value > mx Then mx = x.Value
  Next
  MaxInFilter = mx
End Function

здесь с - из какой колонки брать значения для поиска максимального.

Сильно не пинайте, но я новичок в VBA, написанный вами код подходит, вот только надо сместить вниз на одну строку, чтобы он не брал шапку. Поискал, и насколько понял надо использовать свойство Offset(1), но что то куда не вставлял его, никак не получалось, как надо(

[IgorGO]

а Вам вообще-то нужно максимальное значение среди отфильтрованных?

Function MaxInFilter(c As Long)
  MaxInFilter = application.max(ActiveSheet.AutoFilter.Range.Columns(c).SpecialCells(xlCellTypeVisible))
End Function