Как программно свернуть строки по условию

Ильдар

Гость

08.02.2008 16:55:46

Есть книга, содержащая два листа (1-ввод данных, 2-результирующая таблица).
Как при переходе ко второму листу программно свернуть строки, во второй колонке которых содержится "---" (делается для уменьшения количества строк в результирующей таблице). Спасибо.

Лузер Гость	#2 08.02.2008 17:16:24 Private Sub Worksheet_Activate() Dim cc As Range UsedRange.EntireRow.AutoFit For Each cc In UsedRange.Columns(2).Cells If cc.Value = "---" Then cc.EntireRow.Hidden = True Next End Sub

Ильдар Гость	#3 08.02.2008 17:32:15 Лузер, спасибо за ответ, но не работает. У меня "вторая" колонка - объединенная. Думал поэтому не работает. Попробовал в другом файле - резултат тотже (не работает).

Ильдар Гость	#4 08.02.2008 17:32:15 Лузер, спасибо за ответ, но не работает. У меня "вторая" колонка - объединенная. Думал поэтому не работает. Попробовал в другом файле - резултат тотже (не работает).

Лузер Гость	#5 08.02.2008 17:44:39 Да, погорячился. Private Sub Worksheet_Activate() UsedRange.EntireRow.AutoFit For i = 1 To Range("2:2").SpecialCells(xlCellTypeLastCell).Row If Cells(i, 2).Value = "---" Then Cells(i, 2).EntireRow.Hidden = True Next End Sub вот так должно

Ильдар Гость	#6 08.02.2008 18:04:22 Начинает работать, скрывает строки, но в конце выдает Run time error "13"! Как быть?

Ильдар Гость	#7 08.02.2008 18:04:22 Начинает работать, скрывает строки, но в конце выдает Run time error "13"! Как быть?

Лузер Гость	#8 08.02.2008 18:16:10 Наверно, пора файл выкладывать

Лузер Гость	#9 08.02.2008 18:16:10 Наверно, пора файл выкладывать

Ильдар Гость	#10 09.02.2008 08:14:43 Все получилось! Ограничил диапазон строк, в которых проверяется наличие "---", и заработало! Лузер, большое спасибо!

Читают тему