Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Растянуть столбец, не выходя за границы страницы
 
Доброго дня уважаемые знатоки VBA!

В прикрепленном файле, кодом
Код
Sub rast()  
   Columns("A:A").ColumnWidth = 60.71
End Sub

растягиваю столбец "А" так, чтобы последний столбец таблицы, а именно столбец E не выехал за установленные границы страницы (пунктирная синяя линия).
Было так, после выполнения макроса стало так.
В моем случае это значение 60,71.
Но дело в том, что столбцы В,С,D,E могут быть разные по размеру в разных документах.
Вопрос - что прописать в коде вместо 60,71, чтобы макрос автоматом максимально растягивал бы столбец А и при этом столбец Е не вылезал бы за границы страницы, независимо от размеров столбцов В,С,D,E.

Спасибо
Программно растянуть столбец А до установленных границ листа
 
Здравствуйте уважаемые знатоки VBA!

В прикрепленном файле, кодом
Код
Sub rast()  
   Columns("A:A").ColumnWidth = 60.71
End Sub
растягиваю столбец "А" так, чтобы ни один столбец таблицы, а именно В,С,D,E не выехал за установленные границы листа.
В моем случае это значение 60,71.
Но дело в том, что столбцы В,С,D,E могут быть разные по размеру в разных документах. Вопрос - что прописать в коде вместо 60,71, чтобы макрос автоматом растягивал столбец А и при этом столбец Е не вылезал за границы листа, независимо от размеров столбцов В,С,D,E.

Спасибо
Удалить строки до строки с определенным словом
 
Здравствуйте уважаемые знатоки VBA!

В приложенном файле, код удаляет 13 верхних строк.
Вопрос - как подправить код, чтобы удалялись все строки до строки, в которой прописано слово "Ч.ч."

Спасибо
перенос данных на другой лист
 
Здравствуйте!    
Подскажите пожалуйста, к кому можно обратиться за помощью в написании простейшего макроса - есть список из 107 фамилий с именем - надо перенести на другой лист, но в определенные ячейки с определенным шрифтом.    
Посмотрите файлик пожалуйста    
 
Из листа "ФИО" раскидать в лист "бейдж" фамилию и отчество    
 
Спасибо.
Страницы: 1
Наверх