Breakout data (2003)

I have a source spreadsheet with data in colums. col A=city, B=temp,C=humidity,D=cloudy. etc.... What I want to do on a daily basis is extract each city, and create a sheet with a corresponding name and copy cols B,C,D to the sheet along with the date. The source data will change daily and when thecode is run I want to append/update the appropiate sheet with the new data, if the city is new start a new sheet.

Something similar was done in article "Automate break-out of data (2003) ", but it did not append data.

Re: Breakout data (2003)

I was proposing to run the script once per day max, thus avoiding duplicate data.
There will only be one row per sheet to be appended, I was planning to insert this after the "last row". This avoids having to keep track of the rows across the macro runs.

Re: Breakout data (2003)

The range to be copies is set in the instruction

Set oCpyRange = Range(oCpyStart, oNxtCell.Offset(-1, 4))

The 4 in the Offset function means that 4 columns to the right of the first column are included, i.e. the first 5 columns are included. If you want to transfer 27 columns, use 26 instead of 4 in the Offset function.