Распределение по датам

[Kot070]

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

Например в любой строке в ячейке добавили запись 10.10.2015 сначала макрос должен понять что нужно искать в таблице с 2015 годом, затем что месяц октябрь и туда вставить определенные данные

[Aleksandr H.]

Лучше приложить файл-примера что Вы на выходе хотите получить.

[Sasha_Smirnov]

Неделю назад делал такую болванку для анализа даты и времени (не пора ли на обед).

Просто в качестве опытного образца:

[Kot070]

Вот такой на выходе должен получиться файлик

[Aleksandr H.]

Можно формулами сделать. Или необходимо макросом?
если даты будут не 2015 года, то надо еще условие на год добавить

[Kot070]

лучше конечно если будет макрос

[Aleksandr H.]

принимаем что в столбце А даты йдут строка в строку.

Sub smth()
    Dim r As Long, i As Long
    Dim mon1 As Byte, mon2 As Byte
    r = 4
    Do While Cells(r, 1) <> ""
      mon1 = Month(CDate(Cells(r, 1).Value))
      mon2 = Month(CDate(Cells(r, 2).Value))
      For i = 1 To 12
        If i >= mon1 And i <= mon2 Then Cells(r, i + 3) = Cells(r, 3)
      Next
      r = r + 1
    Loop
End Sub

Sub smth()
    Dim r As Long, i As Long
    Dim mon1 As Byte, mon2 As Byte, y1 As Integer, y2 As Integer
    r = 4
    Do While Cells(r, 1) <> ""
      mon1 = Month(CDate(Cells(r, 1).Value))
      mon2 = Month(CDate(Cells(r, 2).Value))
      y1 = Year(CDate(Cells(r, 1).Value))
      y2 = Year(CDate(Cells(r, 2).Value))
      For i = 1 To 12
        If i >= mon1 And i <= mon2 And Trim(CStr(y1)) = Trim(CStr(y2)) And Trim(CStr(y2)) = Trim(CStr(Year(CDate(Cells(2, 5).Value)))) Then Cells(r, i + 3) = Cells(r, 3)
      Next
      r = r + 1
    Loop
End Sub

[IgorGO]

Sub smth()
    Dim r As Long:  r = 4
    Do While Not IsEmpty(Cells(r, 1))
      Cells(r, 3 + Month(Cells(r, 1))).Resize(1, Month(Cells(r, 2) - Cells(r, 1))).Value = Cells(r, 3)
      r = r + 1
    Loop
End Sub

[Aleksandr H.]

как из числа (например 10-09-2015 и 31-12-2015) 112 получается 4 месяца?

Month(Cells(r, 2) - Cells(r, 1))

[IgorGO]

число 112, это в "екселевском летоисчислении" 21 апреля 1990 года
21 апреля это по Вашему какой месяц?