Start Loop in "A2"

silentwolf

Well-known Member
Joined
May 14, 2008
Messages
1,108
Hi guys,

I got this code from a a gast user of a different forum. "Volker"

I did modify it a little but seam not be able to get the loop started at "A2" rather then "A1".

Code:
Sub FillDaysOfMonth()
    Dim datStart As Date
    Dim datEnd As Date
    Dim d As Date
    
    Columns(1).ClearContents
    Range("A1").Value = "Datum"
    
    datStart = DateSerial(Year(Cells(1, 5)), Month(Cells(1, 5)), 1)
    datEnd = DateSerial(Year(datStart), Month(datStart) + 1, 1) - 1
    
    For d = datStart To datEnd
        Cells(Day(d), 1) = d
    Next d
End Sub
does anyone know how I need to change this code above to make that work?

Many thanks"
 

Some videos you may like

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.

Rick Rothstein

MrExcel MVP
Joined
Apr 18, 2011
Messages
35,661
Office Version
2010
Platform
Windows
Hi guys,

I got this code from a a gast user of a different forum. "Volker"

I did modify it a little but seam not be able to get the loop started at "A2" rather then "A1".

Code:
Sub FillDaysOfMonth()
    Dim datStart As Date
    Dim datEnd As Date
    Dim d As Date
    
    Columns(1).ClearContents
    Range("A1").Value = "Datum"
    
    datStart = DateSerial(Year(Cells(1, 5)), Month(Cells(1, 5)), 1)
    datEnd = DateSerial(Year(datStart), Month(datStart) + 1, 1) - 1
    
    For d = datStart To datEnd
        Cells(Day(d) [B][COLOR="#FF0000"]+ 1[/COLOR][/B], 1) = d
    Next d
End Sub
does anyone know how I need to change this code above to make that work?
Maybe adding what I show in red will do it.
 

silentwolf

Well-known Member
Joined
May 14, 2008
Messages
1,108
Hi Rick,

yes it works fine!
I tried with Cells(Day(d)1 ,1)=d
before...

hmm never stop learning :)
 

Watch MrExcel Video

Forum statistics

Threads
1,089,964
Messages
5,411,544
Members
403,377
Latest member
chrisj2812

This Week's Hot Topics

Top