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

[clever77]

А столбец данных
Применен автофильтр по критерию (Пусть будет значение ячейки=1)

Columns(1).AutoFilter Field:=1, Criteria1:="=1"

Найдено 10 значений
Итог
ячейка А1 Заглавие столбца+10 видимых ячеек, со значением=1

Вопрос:
Как узнать адресс каждой из 10 видимых ячеек. Достаточно номер строки, т.к. номер столбца известен

Можно использовать:

Set orange = [a2:a105]
With orange
А = orange.SpecialCells(xlVisible).Addr ess
End With

А-в итоге будет равна адресу всех видимых ячеек
$A$2,$A$35,$A$58,$A$90..... и.т.д и из этой строки выбирать адреса, но хочется попроще

Как присвоить переменной А адрес к примеру второй видимой ячейки?

[IgorGO]

a = Split(orange.SpecialCells(xlVisible ).Address, ",")(2 - 1)

[clever77]

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

a = Split(orange.SpecialCells(xlVisible ).Address, ",")(2 - 1)

Да, это работает....
Но не совсем то что хотелось......
После применения автофильтра у Вас есть столбец с 1 строкой (Cells(1,1) -заголовок и несколько видимых строк удовлетворяющих условию (в нашем случае=1), которые распологаются не подряд....
Пусть активная ячейка - заголовок столбца, т.е первая строка

Тогда как обратиться ко второй строке (видимой)?

По средствам ActiveCell.Offset(1,0) не получается .....
Если исп ActiveCell.Offset(1, 0).SpecialCells(xlVisible).Select
Выделяются все видимы строки включая заголовок
А надо сделать активной только вторую видимую ячейку в столбце А
А уж опр адресс активной ячейки - это просто...

[clever77]

Додумался чтобы выделялись только видимые ячейки в столбце А (не вся строка) исключая заголовок

With [a2:a105].SpecialCells(xlVisible)
.SpecialCells(xlVisible).Offset(xlV isible = True, 0).Select
End With

Может кто знает как из этого оставить выделенной только вторую видимую ячейку в столбце A?

Или как присвоить видимым ячейкам столбца В номера выделенных ячеек столбца А?

[IgorGO]

  Dim A As String
  A = [a2:a105].SpecialCells(xlVisible).Address
  If InStr(A, ",") = 0 Then
    SecCelAdr = Range(A).Cells(2).Address
  Else
    If Range(Split(A, ",")(0)).Count > 1 Then
      SecCelAdr = Range(Split(A, ",")(0)).Cells(2).Address
    Else
      SecCelAdr = Range(Split(A, ",")(1)).Cells(1).Address
    End If
  End If

в SecCelAdr получите адрес второй видимой ячейки (при включенном фильтре, выключенном)

[IgorGO]

Или как присвоить видимым ячейкам столбца В номера выделенных ячеек столбца А?

"выделенных" - видимо видимых, извините за тавтологию.
в В2=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(102;A$2:A2), тянете вниз по данным, применяете фильтры, смотрите... шлете деньги

[clever77]

[QUOTE=IgorGO;816124]"выделенных" - видимо видимых, извините за тавтологию.

Нет имелось ввиду именно выделенных, т.к. после

With [a2:a105].SpecialCells(xlVisible)
.SpecialCells(xlVisible).Offset(xlV isible = True, 0).Select
End With

В столбце А остаются выделенными только ячейки удовлетворяющие условию (критерию фильтра),а вот скрытые ячейки столбца не выделяются. Причем ActiveCell не заголовок столбца, а вторая видимая строка, Простите не строка,а ячейка..

На данный момент вопрос закрыт!

Результат достигнут другим путем. Перемещение между видимыми ячейками происходит без опр адреса и без исп циклов . Решение оказалось довольно простым - по средствам включения в программу Intersect – пересечения двух диапазонов:
1. Диапазон фильтра
2. Видимых ячеек
В итоге при выполнении макроса перемещение происходит последовательно по всем видимым (отфильтрованным значениям), причем как вниз, так думаю возможно организовать и обратное перемещение - вверх, аналогично табличному EXCEL при нажатии стрелок перемещения ВВЕРХ и ВНИЗ.
3 дня ушло на поиск в интернете 5 строчек кода!!!! Начал было уже думать, что простого решения НЕТ................

Спасибо всем за участие!

[CooperNick]

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

Спасибо.

[Казанский]

Выделить ячейки первого столбца, в строку формул ввести текст, Ctrl+Enter.

[CooperNick]

Я неправильно сформулировал, сорри.

После записи макроса получился вот такой код

    Selection.AutoFilter Field:=2, Criteria1:="=Вася", Operator:=xlOr _
        , Criteria2:="=Петя"
    
    Range("A3246").Select 'Это я мышкой кликнул на первой ячейке
    ActiveCell.FormulaR1C1 = "Друг"
    
    Selection.FillDown

Но при воспроизведении срабатывает только автофильтр.

Ну и адрес первой ячейки полсле применения автофильтра будет меняться