VBA Formatting a date is swapping the year for the day.

[RockandGrohl]

Hello, I have a date set as "mindate" which is a long, the serial is 43467 which is 02/01/2019 (2nd Jan)

I'm then turning this into the first day of that month using dateserial

And finally, pasting it in sequence, iterating up one month.

RBD.Activate
LastrowRBD = Cells(Rows.Count, "A").End(xlUp).Row
mindat = CLng(Application.WorksheetFunction.Subtotal(5, Range("B2:B" & LastrowRBD)))
mindat = DateSerial(Year(mindat), Month(mindat), 1)
maxdat = DateSerial(Year(Date), 12, 31)
x = DateDiff("m", mindat, maxdat)

Rarise.Activate
Range("C3").Activate
y = 0
Do Until y = x
ActiveCell.Value = Format(DateAdd("m", y, mindat), "mmmm-yy")

y = y + 1
ActiveCell.Offset(0, 1).Activate
Loop

What's happening is that if I include the format section, for some reason it's formatting in a weird way and I'm getting "19/01/21"

When I remove format, it goes in perfectly as 01/01/2019, 01/02/2019 etc all the way up to 01/12/2021 (35 iterations)


I'd like to have those dates display neatly as Jan-19, Feb-19, Mar-19 etc.

Thanks.

 

[Joe4]

Note that the "FORMAT" function in VBA will return a Text value, not a Date one, which will probably mess up your calculations, since you are looping.
I think what you want to do is to paste the value, and then format the cell with your desired format, i.e.

Replace:

ActiveCell.Value = Format(DateAdd("m", y, mindat), "mmmm-yy")

with

ActiveCell.Value = DateAdd("m", y, mindat)
ActiveCell.NumberFormat = "mmmm-yy"

 

[RockandGrohl]

Oh right. Super. Thanks for that. Guess it's another one of those little intricacies to know.

 

[Joe4]

Oh right. Super. Thanks for that. Guess it's another one of those little intricacies to know.

You are welcome.

The "FORMAT" function in VBA is very similar to the "TEXT" function in Excel.
They both return text values (otherwise, things like leading zeroes would be dropped).