Заполнить ячейки датами в выбранном интервале дат

[tgm]

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

[Hugo121]

Можно доработать и повесить на событие изменения ячеек А2 и B2 - если например вторая больше первой, то работаем

Sub tt()
    Dim n As Long, k As Long, i As Long, ii As Long
    n = [a2]
    k = [b2]
    For i = n To k
        ii = ii + 1
        Cells(2, 3 + ii) = CDate(i)
    Next
End Sub

Ещё можно разницу между датами отслеживать - чтоб был месяц.
Или можно сразу по изменению одной из дат выставлять другую и делать дело...
Вариантов много - дорабатывайте по задаче.

[MCH]

Если нужно только один месяц выбирать, и определять 28,29,30 или 31 день, то можно формулами обойтись

[tgm]

Супер,Спасибо большое!

[Khripunkov]

Большое спасибо!

[Казанский]

Есть штатный инструмент Главная - (Редактирование) - Заполнить - Прогрессия

Sub Макрос1()
  Range("D2").Value = Range("A2").Value
  Range("D2").DataSeries Rowcol:=xlRows, Type:=xlChronological, Date:=xlDay, _
    Step:=1, Stop:=Range("B2").Value - 1, Trend:=False
End Sub