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

[konstantin1990]

Доброго всем времени суток! Я не являюсь программистом, поэтому столкнулся с небольшой проблемой в эксель. Суть проблемы:
Я не могу придумать код который бы решил третий шаг
Шаг 1 - есть таблица с данными, я её создал для примера
шаг 2 - теперь в ячейке f2 я пишу слово из таблицы в данном случае "яблоко"
Шаг 3 - после ввода слова "яблоко" в соседних строках появляется часть таблицы, которая имеет отношение только к яблокам.
Кто сможет помочь заранее спасибо!!!

[konstantin1990]

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

[kuklp]

Поставьте автофильтр, запишите это макрорекордером. Вместо criteria1 укажите нужную ячейку.
И будет Вам счастье

[konstantin1990]

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

Поставьте автофильтр, запишите это макрорекордером. Вместо criteria1 укажите нужную ячейку.
И будет Вам счастье

не могли бы вы на моём примере показать?

[kuklp]

Показать что? Как ставить автофильтр? Как включить макрорекордер? Как в поиске набрать "скопировать только видимые строки"?

[konstantin1990]

без макросов способа нет?

[kuklp]

Есть. Поставьте автофильтр, скопируйте только видимые.

[konstantin1990]

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

Есть. Поставьте автофильтр, скопируйте только видимые.

я дуб очень тупой дуб

[kuklp]

С этим я Вам помочь не смогу. Разве что дам готовое решение.
В модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$F$2" Then Exit Sub
    Application.EnableEvents = 0
    [h1].CurrentRegion.ClearContents
    With Range("A1").CurrentRegion
        .AutoFilter 1, Target
        .SpecialCells(12).Copy Range("H1")
        .Parent.AutoFilterMode = 0
    End With
    Application.EnableEvents = -1
End Sub

[konstantin1990]

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