Здравствуйте.  
 
В архивчик запихайте.

Извините, не заметил!

=)) да хотелось бы, чтобы само! +  я пару фамилий ввел, а их может быть и больше

Утро доброе! Я в РБ проживаю.  
И дело не в форме табеля, а как можно привязать отпуска разбитые на 3 части в табель.  
 
Ладно, вижу, что идей пока нет - буду сражаться в одиночестве =((

Если я правильно понял, то в зависимости от месяца/года у меня на форме в календаре выводится выходные даты и рабочие (+там еще можно выбрить в какой день работаем, в какой нет) а дальше так  
x = 3  
   For Each cntrlArr In Me.Controls  
   If (cntrlArr.Tag = "Day" Or cntrlArr.Tag = "Holliday") And cntrlArr.Visible = True Then  
       If cntrlArr.SpecialEffect = 2 Then  
           With Cells(m, x)  
           .Value = "В" ' Выходной день  
           .Borders.Weight = xlThin  
           .Interior.Color = RGB(153, 204, 255)  
           End With  
           x = x + 1  
       ElseIf cntrlArr.SpecialEffect = 1 Then  
           With Cells(m, x)  
           .Value = "Я" ' рабочий для "общий" учета времени  
           .Borders.Weight = xlThin  
           End With  
           If Лист1.Cells(n, 3) = "суммарный" Then  
               With Cells(m, x)  
               .Value = "8" ' рабочий для "суммарный" учета времени  
               End With  
           End If  
           x = x + 1  
       End If  
   End If  
   Next

эх... пошел в библиотеку! книжки читать =))

Утро доброе!  
Теперь думаю над тем как обработать данные в табеле  
Т.е. хочу, чтобы в ячейки очередной отпуск вводилась функция,  которая просматривала диапазон и там где «ОТ» суммировала. И в итоге возвращала кол-во дней отпуска =))