Как выделить все эти столбики макросом

[kartol]

Здраствуйте подскажите как выделить все эти столбики  (F,G,H) пропуская названия столбцов(пример на первых 3-х страницах),до самого низа(страница 42).Прошу сильно не пинать

[Шпец Докапыч]

Может для начала сгодится выделить 1 столбец?

Код Выделить Развернуть

Sub ШД_Выделялка()
  Range("A:A").SpecialCells(2, 1).Offset(, 5).Select
End Sub

[kartol]

Один хорошо ,но надо бы сразу все три (эти три столбика потом надо будет очистить от записей)

[Шпец Докапыч]

Тогда предлагаю очистить сразу:

Код Выделить Развернуть

Sub ШД_Выделялка2()
  For i = 5 To 7
    Range("A:A").SpecialCells(2, 1).Offset(, i).ClearContents
  Next
End Sub

[kartol]

Нет надо чтоб выделялось _ как бы для предупреждения (чтоб случайно не очистили),т.к. разные люди будут работать

[Шпец Докапыч]

Как вариант, можно предупредить прямо, например сообщением: "Точно чистим подчистую? [Да] [Нет] [Я подумаю]".

[kartol]

ну можно и такой вариант

[Шпец Докапыч]

Тогда вот код вопроса (вставить первой строчкой):

Код Выделить Развернуть

If Not MsgBox("Сотрём от факта до даты?!", 68) - 7 Then Exit Sub

[kartol]

А можно как-то привязать кнопку к числам(1,11,21) любого месяца,чтоб она работала только в эти числа,а в другие дни при нажатии небыло никакого действия

[Шпец Докапыч]

Запросто (вставить нулевой строчкой):

Код Выделить Развернуть

If InStr("|1|11|21|", "|" & Day(Now) & "|") = 0 Then Exit Sub

[kartol]

(вставить нулевой строчкой):
Извени за незнание ,это как?

[Шпец Докапыч]

Поскольку код выполняется последовательно (построчно), то нужно вставить перед вопросом ДаНет. Ну и раз я ранее писал, что If Not MsgBox... нужно вставить первой строчкой, то это условие перед ней. В общем, своеобразная шутка. 

Код Выделить Развернуть

Sub ШД_Стиралка()
  If InStr("|1|11|21|", "|" & Day(Now) & "|") = 0 Then Exit Sub
  If Not MsgBox("Сотрём от факта до даты?!", 68) - 7 Then Exit Sub
  For i = 5 To 7
    Range("A:A").SpecialCells(2, 1).Offset(, i).ClearContents
  Next
End Sub

[kartol]

[Шпец Докапыч ]
Спасибо!(отправил+)

[kartol]

[Шпец Докапыч ]
Ещё вопросик -Как защитить все остальные строчки и столбцы (кроме этих)от изменения ? Ставлю зашиту -макрос в ауте