Goeiemiddag,
Ik heb een probleempje om rijen in te voegen. Ik heb tien jaar dagelijkse data (in kolom A staat de datum) en wil onder elke afzonderlijke maand een lege rij. Aangezien ik zo'n dertig tabs met tien jaar moet doen zou een snellere manier dan per maand stuk voor stuk een rij invoegen een hoop verschil maken! Zelf ben ik bezig geweest met een macro, al ben ik er nog niet helemaal uit (de macro staat nu op een rij invoegen per 30 dagen). Hopelijk kan iemand me helpen. De data vd macro staat hieronder :
Sub InsertRows()
Dim startRow As Range
Set startRow = Rows("31:31")
Application.ScreenUpdating = False
Do Until Application.CountA(startRow) = 0
startRow.Insert Shift:=xlDown
Set startRow = startRow.Offset(30, 0)
Loop
End Sub
Alvast bedankt!
Groet,
Danny
Ik heb een probleempje om rijen in te voegen. Ik heb tien jaar dagelijkse data (in kolom A staat de datum) en wil onder elke afzonderlijke maand een lege rij. Aangezien ik zo'n dertig tabs met tien jaar moet doen zou een snellere manier dan per maand stuk voor stuk een rij invoegen een hoop verschil maken! Zelf ben ik bezig geweest met een macro, al ben ik er nog niet helemaal uit (de macro staat nu op een rij invoegen per 30 dagen). Hopelijk kan iemand me helpen. De data vd macro staat hieronder :
Sub InsertRows()
Dim startRow As Range
Set startRow = Rows("31:31")
Application.ScreenUpdating = False
Do Until Application.CountA(startRow) = 0
startRow.Insert Shift:=xlDown
Set startRow = startRow.Offset(30, 0)
Loop
End Sub
Alvast bedankt!
Groet,
Danny
