create date format

Create date as this  format

backward or fowars as needed

as show here


22222aaaaa.PNG

here the file
DATA_TO_.xlsx
ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?
 
Rgonzo1971Commented:
Hi,

pls try
Sub fillYear()
Application.ScreenUpdating = False
yr = Year(Date)
rw = 4
For Idx = 1 To 53
    With Range("b" & rw)
        .Value = Idx & "W" & yr
        .Font.Bold = True
        With .Interior
            .Pattern = xlSolid
            .ThemeColor = xlThemeColorDark2
            .TintAndShade = -0.249977111117893
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .Weight = xlThin
        End With
    End With
    rw = rw + 1
    For Idx1 = 1 To 6
        With Range("b" & rw).Resize(2)
            .Value = Format(DateSerial(yr, 1, 1) + ((Idx - 1) * 7) + Idx1 - 1, "dddd, mmmm d, yyyy")
            .HorizontalAlignment = xlRight
        End With
        rw = rw + 2
    Next
Next
Application.ScreenUpdating = True
End Sub

Open in new window

Regards
DATA_TO_V1.xlsm
1
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Thanks Rgonzo1971

Great ! Gld to see you !
0
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Great JOB !!

Great Expert !
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.