Сравнение нескольких строк

[kuklp]

.SpecialCells(12).Copy Range("H1")

Вместо Н1 поставьте свой адрес.

[konstantin1990]

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

Забыл сказать, что я использую Exel 2010, и пример я сохранил тоже в его формате!

вы сделали то же самое или что то добавили?

[kuklp]

Я Ваш файл сохранил, как книгу с поддержкой макросов.

[konstantin1990]

я записал автофильтр
вот его код:
Sub Макрос1()
Range("A1:D7").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$7").Auto Filter Field:=1, Criteria1:=Range("f1")
End Sub
а что вы сделали дальше не понимаю, у вас макрос всегда активен, но я его не вижу у себя

[kuklp]

Почитайте здесь:
http://www.excel-vba.ru/chto-umeet-e...gde-ego-iskat/
и здесь:
http://www.excel-vba.ru/chto-umeet-e...yvayut-moduli/

[konstantin1990]

по поводу вашего кода, а как изменить значение ячейки ввода данных? например не f2, f8

[kuklp]

В строке:

If Target.Address <> "$F$2" Then Exit Sub

поменяйте цифру.

[VictorK]

Можно ещё сводную таблицу попробовать

[konstantin1990]

Не подскажете почему так получается? В Примере 2, все нормально в поле U2 вводим значение которое надо отфильтровать и вывести потом эти строки отдельно. А в примере 3 количество стобцов увеличилось на один (добавился МК), при этом появляется ошибка 1004 "метод афтофильтра из класса range завершен неверно". Как с этим боротся?

[kuklp]

[i1].CurrentRegion.ClearContents