Макрос по переходу между листами и с действием на них

Пользователь

Сообщений: 82 Регистрация: 27.12.2017

06.06.2019 12:30:19

Добрый день!

Прошу вашей помощи, в написании макроса:
Макрос должен зайти на каждый лист после листа "Tabble 1" поставить фильтр на значение больше 3, и удалить столбцы "B:Z" так же сделать столбец "A" шириной в 61.50
Файл пример будет во вложении.

Так же прошу написать код в тексте письма, так как я его буду немного менять, спасибо за понимание.

Всем спасибо за внимание, жду вашей помощи.

Прикрепленные файлы

Новий Microsoft Excel Worksheet.xlsx (12.45 КБ)

Изменено: zhekachan - 06.06.2019 12:31:14

Sanja Модератор Сообщений: 16561 Регистрация: 10.01.2013	#2 06.06.2019 12:40:29 Запишите вышеописанные действия макрорекордером. Можете менять полученный код под себя без всяких проблем Согласие есть продукт при полном непротивлении сторон

zhekachan Пользователь Сообщений: 82 Регистрация: 27.12.2017	#3 06.06.2019 12:42:22 Sanja, Спасибо за совет, я уже это делал, но название моих листов может меняться, точно так же как и их название

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#4 06.06.2019 12:47:00 Варианты: 1.Перебирайте циклом листы по индексу (со второго по последний). 2. Перебирайте все листы, проверяя имя (если не равно "Tabble 1").

Ivan.kh

Гость

06.06.2019 12:49:47

Код

Sub qqq()
    For i = Sheets("Tabelle1").Index + 1 To Sheets.Count
        With Sheets(i)
            .Rows("1:1").AutoFilter
            .Range("$A$1:$F$11").AutoFilter Field:=1, Criteria1:=">3", Operator:=xlAnd
            .Columns("B:Z").Delete Shift:=xlToLeft
            .Columns("A:A").ColumnWidth = 61
        End With
    Next i
End Sub

zhekachan Пользователь Сообщений: 82 Регистрация: 27.12.2017	#6 06.06.2019 13:05:02 Господа, всем спасибо, все работаем! Всем хорошего дня!