Автоматически скрыть или свернуть строку

[kalbasiatka]

Вот оно чё:

[kashmax]

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

[Hugo121]

"отобнажаются только заполненные строки. незаболненые строки остаются пустыми но они никуда не прячутся" - это как?
Может пора показать файл (последнюю редакцию)?

[kashmax]

вот пожалуста

[Hugo121]

Ну конечно - Вы ведь не меняете значение в пятом столбце - оно там меняется само.
Тогда код такой:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
    Sheets("ddd").Rows(Target.Row).Hidden = Target = ""
  End If
End Sub

Вернее с учётом и нуля так:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
    Sheets("ddd").Rows(Target.Row).Hidden = CDbl(Target) = 0
  End If
End Sub

[kashmax]

спасибо большое