Удалить столбцы Excel макросом

Posted by obzor under VBA

Задача такая: Есть 10 листов из них 5 вносятся данные из другой таблицы, в других 5 листах идет переработка под нужный вид.
Хранить их необходимости нет обработанные данные копируются в другой документ. Для удобства хотелось сделать чтобы при активации 5 го листа данные в первых 4 уже очищались

jillitil

Вот рабочий код. Вставляете и меняете названия листов «s1», «s2», … . Думаю код понятен.

Private ProcAct As Boolean
Private Sub Worksheet_Activate()
  If ProcAct Then Exit Sub Else ProcAct = True
  Ass = ActiveSheet.Name
  Application.ScreenUpdating = False
  For Each Sheet In Worksheets(Array("s1", "s2"))
    Sheet.Activate
    Sheet.Range("A:I").Delete
    Sheet.Range("A1").Select
  Next
  Worksheets(Ass).Activate
  Application.ScreenUpdating = True
  ProcAct = False
End Sub

Ошибка была в том что нельзя применять метод .Select на невидимые на экране объекты.

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel