Подскажите пожалуйста, как изменить код, что бы скрытые строки отображались скажем начиная с 10 строки, а не все, а если есть до 10 скрытые, что бы так и оставались скрытыми.
| Код |
|---|
Private Sub tgbZero_Click()
Application.ScreenUpdating = False ' отключить обновление экрана
With Sheets("4646").tgbZero
If .Value Then ' если кнопка нажата
Cells.EntireRow.AutoFit ' показать все строки
.Caption = "Скрыть " ' сменить надпись на кнопке
Else ' если кнопка не нажата
For Each cell In ActiveSheet.UsedRange.Columns(3).Cells 'проходим по всем ячейкам первого столбца
If cell.Value = "x" Then cell.EntireRow.Hidden = True 'если в ячейке x - скрываем строку
Next
.Caption = "Отобразить" ' сменить надпись на кнопке
End If
End With
Application.ScreenUpdating = True ' включить обновление экрана
End Sub
|
