Code To Add Date And Seven Day Week Number From Start Of Year

[Excel Fox]

Try this instead...

Sub AddDates() 
    Dim dt  As Date
    
    If IsDate(Range("d10").Value) Then
        dt = Range("d10").Value
        With Range(DateRange)
            .FormulaR1C1 = "=rc[-1]+1"
            .Cells(1) = dt
            .Offset(-1).FormulaR1C1 = "=IF(MOD(COLUMNS(RC4:RC)-1,7)+1=1,ROUNDUP((R[1]C-DATE(YEAR(R[1]C),1,0))/7,0),"""")"
            .Offset(-1).Resize(2) = .Offset(-1).Resize(2).Value
        End With
    End If
    
End Sub

[rich_cirillo]

Hi Excel Fox

Thanks that works great with the buttons...the only issue is if i place 31-12-2012 it has the week number as 53 instead of 1

Thanks again