простинький макросс

[The_Prist]

Сообщение от moose123

Я не сравниваю D2-C2, ... D5-C5, мне надо сравнить D2-C2, D3-C2 D3-C3, D4-D2 D4-D3 D4-D4, и т.д.

Тогда понятно.

Sub myMacro()
    Dim li As Long, lr As Long, lLastRow As Long
    lLastRow = Cells(Rows.Count, 4).End(xlUp).Row
    For li = 1 To lLastRow
        For lr = 1 To lLastRow
            If YearDiff(Cells(li, 4), Cells(lr, 3)) >= 365 Then Cells(li, 5) = 0
        Next lr
    Next li
End Sub
Function YearDiff(ByVal Date1 As Date, ByVal Date2 As Date) As Integer
  YearDiff = Year(Date2) - Year(Date1) + IIf(Month(Date2) + IIf(Day(Date2) < Day(Date1), -1, 0) < Month(Date1), -1, 0)
End Function

Сообщение от moose123

И что вы имеете в виду "как и где Вы расположили код." я нажал Алт-Ф11 на текущем листе создал макрос

Я имею ввиду, что модули разные бывают и от того, в каком из них у Вас код его работа может различаться. Если в модуле листа, то обращение Cells без явного указания родителя будет идти к ячейкам того листа, в котором код расположен, а не к ячейкам активного.
Что такое модуль? Какие бывают модули?

Сообщение от moose123

Табличка у меня точно такая как на скрине

Ага. У Вас она есть, а те, кто хочет Вам помочь должны её перерисовывать с нуля по Вашей картинке. очень увлекательное занятие в то время когда Вы можете просто взять и выложить её на форум.

[moose123]

Спасибо за помощь, но не работает вообще.


За обьяснения про модули большое спасибо

За файл не знал что можно, теперь выкладываю файл с макросом, но не работает