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

Страницы: 1
Автоматическое заполнение актов выполненных работ
 
Необходимо автоматизировать заполнение актов выполненных работ, с возможностью выбора определенных условий из раскрывающегося списка (дата, исполнители, номер акта и т.д.)
Также должна быть база содержащая исполнителей чтобы в случае увольнения/принятия на работу можно было откорректировать список и то же самое для типов работ (их около 100)

Например:
После выполнения работ открываю форму ввода в которой указываю Дату, номер акта(было бы хорошо если номера присваивались автоматически) фамилии исполнителей и тип работ(есть перечень работ, для каждого типа разное содержимое акта), нажимаю сформировать и получаю готовый Акт (желательно в формате MS Word)

Имеются шаблоны актов( в прикрепленном файле)
Изменено: jamaicarso - 26.05.2017 08:32:54
Бесконечный цикл loop, Помогите разобрать фрагмент макроса
 
Здравствуйте, помогите разобраться в следующем фрагменте макроса:
Код
 Dim i As Integer
i = 1
Do Until Cells(1, i).Value = "Number"
    Columns("A:A").Delete Shift:=xlToLeft
Loop

Насколько я понимаю условие выполнения этого цикла это любое числовое значение в ячейке, как только значения не станет цикл должен прекратить работать?
Но цикл продолжает выполняться бесконечно. Где косяк?
лист к которому применяю макрос во вложении
Страницы: 1
Наверх