loop to go across columns

Hi!

So i need help, i have this script which i use to list out datebands however my start date and end date have multiple ranges so i have a list of dates in the first row and i want to add all the dates to the left hand side.

E.G
a1 = sdate
b1 = edate
c1 = sdate
d1 = edate and so on and so forth until there are no more dates in the first row.

How can i change my script so that it automatically does a1:b1 as sdate edate, list the dates between the ranges then move onto c1 as sdate and d1 as edate and put the dates inbetween that range underneth the rest of the dates and so on until there is no date is the first row.

Please Login or Register  to view this content.

Hi Millz!

That worked for the first date range, cells A1 & b1 however came up with a Type Mismatch after that on this line : For j = Cells(1, i).Value To Cells(1, i + 1).Value

Oopps, nevermind that didnt work as the dates had spaces in them, i removed the spaces that worked okay!!!! However is there anyway to make all of the dates go under each other in column A rather than spread out under each start date?

Thank you!!!!!

thanks for your quick reply millz, unfortunately that didnt return the correct values like the first one,
everything is for the year 2016

you sir, are an absolute legend!

Thank you so much for your help, i really need to practice my looping..

thank you!!!!!!!!!!

Just so i understand this correctly, can you let me know if this is broken down correctly?

sc = 4 'this is the start row?
For i = 1 To Columns.Count Step 2 'i = 1 means that it starts at column 1, if it was 2 it would start at column B etc..

basically i want to know how to change the script so that i can point it to dates in the correct row/ start column.

E.g E2 is the first start date.. Just so i can understand it correctly