Страницы: 1
RSS
Макрос на возврат на начало таблицы во всех листах при открытии книги.
 
Добрый день. Есть книга с примерно 15 листами. При открытии которой происходит автоматический сброс фильтров на всех листах. По завершению работы макроса активной становится ячейка в конце таблицы.  Подскажите пожалуйста дополнение в код макроса для перехода к началу таблицы сразу на всех листах, не прописывая каждый лист по отдельности.
Спасибо.
Приложенный файл - просто пример
 
Код
Private Sub Workbook_Open()
Dim actShName$: actShName = ActiveSheet.Name
Dim actCelAdr$: actCelAdr = ActiveCell.Address
Application.ScreenUpdating = False
Dim wsSh As Worksheet
On Error Resume Next
For Each wsSh In Sheets
    With wsSh
        If .AutoFilterMode Then .ShowAllData
        .Activate: .Range("A1").Select
    End With
Next
Application.ScreenUpdating = True
Sheets(1).Activate
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Спасибо. То, что надо.
 
Строки 2 и 3 можно безболезненно удалить
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх