Thanks a lot. Let me see if the formula worksTry this,
=INDEX(EDATE(--"14/6/2008",(ROW(A$1:A$100)-1)*12),AGGREGATE(15,6,ROW(A$1:A$100)/(MOD(EDATE(--"14/6/2008",(ROW(A$1:A$100)-1)*12),7)=0),ROWS($1:1)))
and, custom cells format to : "yyy"
formula copy down
Regards
Thanks a lot @r2c2. I have understood the formula. But I have a small question: how did you decide to have ROW(A1:A14)? What is your rationale? Thanks againAlso, this array formula...
=2008+MATCH(7,WEEKDAY(DATE(2008+ROW(A1:A14),6,14)),0)
Thanks @r2c2. Based on your assistance I have come up with 2 variations:Also, this array formula...
=2008+MATCH(7,WEEKDAY(DATE(2008+ROW(A1:A14),6,14)),0)
Sub WhichYear()
Dim i As Long, j As Long
j = 1
For i = 2008 To 9999
If Format(DateSerial(i, 6, 14), "ddd") = "Sat" Then
Cells(j, 1).Value = i
j = j + 1
End If
Next i
End Sub