Подскажите как с помощью VBA скрыть строки где в одном столбце может оказаться пустое значение
пример:

1 2 3
4 5
6 7 8

должно остаться:
1 2 3
6 7 8
я понимаю, что это можно сделать автофильтром или расширенным фильтром, однако у меня в данные ячейки из другого листа постоянно подтягиваются различные данные и наличие пустых ячеек меняется:
могут быть различные варианты:
1 2
3 4 5
6 7
или
1 2 3
4 5 6
7 8 9
и мне необходимо, чтобы я постоянно видел только те строчки, в которых в третьем столбце есть данные
ни автофильтром ни расширенным фильтром я этого добиться не смог....
думаю для тех, кто шарит в энтом деле (в смысле VBA) такая задачка проблем не составит, но для меня это большая проблема, т.к. в VBA я даже не чайник,а заварка :)

Я здесь набросал на скорую руку файлик, типа того, где мне необходимо фильтрация.

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

чтой-то не прикрепилось
пробую еще раз

White OwlВот как раз автофильтром это и надо делать.

Можно еще для пущего веселья сделать макрос типа:
Тогда каждый раз при переключении обратно в лист автофильтр будет автоматически обновляться.

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

Народ, подскажите, кто - нибудь????!!!!!!
Пожалуйста, очень срочно нужно!!!!

Старик!
Преклоняюсь!
Спасибо огромное!
Все рабтает, просто супер!

вопросик
если я немного поменял код, а именно:
был:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 And Target.Row = 3 Then
Rows("6:6").EntireRow.Hidden = Range("C6") = 0
Rows("7:7").EntireRow.Hidden = Range("C7") = 0
Rows("8:8").EntireRow.Hidden = Range("C8") = 0
End If
End Sub

стал:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 And Target.Row = 3 Then
Rows("6:6").EntireRow.Hidden = Range("D6") = 0
Rows("7:7").EntireRow.Hidden = Range("D7") = 0
Rows("8:8").EntireRow.Hidden = Range("D8") = 0
End If
End Sub

у меня ничего не выходит.... ((

Спасибо, что отозвался :)
выкладываю...

Спасибо, сейчас попробую

Все работает, спасибо тебе огромное.
У меня были мысли, что где-то в этой строке, но я не разобрался раньше, теперь разобрался....