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

[kartol]

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

[SAS888]

...как выделить все эти столбики (F,G,H) пропуская названия столбцов...

Выполнить такой макрос:

Sub qq()
    Intersect([F:H], [A:A].SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow).Select
End Sub

Пример во вложении.

[kartol]

То что надо,спасибо. и ещё как защитить другие ячеики от случайного удаления?(ставлю защиту- макрос в стопор)

[SAS888]

Установите защиту листа. В макрос первой строкой добавьте снятие защиты, а последней строкой - ее установку. Например, так:

Sub qq()
    ActiveSheet.Unprotect Password:="abcd"
    '
    'Ваш код
    '
    ActiveSheet.Protect Password:="abcd", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Естественно, пароль и разрешение требуемых действий при защищенном листе укажите свои.

[kartol]

Спасибо.

А как чтоб при закрытии ,он сохранялся в определённое место и в тоже время отправлялся почтой (Microsoft Outlook 2010)на конкретный адрес?
и ещё чтоб при сохранении он перезаписывался сам ,а не спрашивал ,что такой файл есть-заменить?

[SAS888]

...чтоб при закрытии ,он сохранялся в определённое место...
и ещё чтоб при сохранении он перезаписывался сам ,а не спрашивал ,что такой файл есть-заменить?

В модуль "Эта книга" вставьте код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    ThisWorkbook.SaveAs Filename:="C:\Temp\qq.xls"
    Application.EnableEvents = True
    Cancel = True
End Sub

Естественно, путь и имя файла подставьте требуемые.
Вопрос отправки файла по почте неоднократно обсуждался на нашем форуме. Поищите самостоятельно.

[Hugo121]

Только SAS88 хотел написать не Application.EnableEvents, а Application.DisplayAlerts

[SAS888]

Hugo121
Отнюдь...
Если не запрещать обработку событий, то при сохранении файла макросом, мы получим бесконечное вложение события Workbook_BeforeSave. A Application.DisplayAlerts действительно нужен. Упустил.

[kartol]

Спасибо за помощь. С почтой нашел темы .Вроде бы всё работает.

[Hugo121]

Да, точно, одно заметил, второе пропустил