Loop through data to copy to other sheets.

[Anne Troy]

Hello, everybody. :wink:

Input Workseet:

Col A: Date
Col B through M: Headings are employee names, data is how many hours of vacation per DATE.

User will enter a date in column A, and then the corresponding number of vacation hours a person took that day. There are a dozen or so employees, so we're only entering a record on the dates that someone has taken vacation time. Dates are mm/dd/yyyy format. The hours are number/two decimals.

What I would like:

An update command button (hey, I can actually do that part!) that has an on-click that:

Loops through each column B through M, and copies the information to the employee's individual sheet.

The individual sheets:

Columns are:
A = Date of vacation
B through M are months Jan through Dec.

Data starts *paste* in cell A12, where the date of the first vacation day they take should appear. If it was a half-day in February, .5 (or .50) will appear in cell A14.

If it's not clear, I'm happy to send the file! If you put your email here, I'll send it right away. If you email me at home, it'll be a few hours before I can send.

No rush on my part.

Really appreciate it!! I'm not a coder. I know small bits and pieces. When you start talking about Dim, I think of chinese food.

_________________
TheWordExpert
This message was edited by Dreamboat on 2002-04-11 10:20

 

[Cosmos75]

Thanks, Jay.

What's HTH mean? "Hard to handle"?

Edit: "Heart to Heart"?
This message was edited by Cosmos75 on 2002-04-16 14:40

 

[Jay Petrulis]

Hi,

HTH -- Hope this helps

HTH,
Jay
This message was edited by Jay Petrulis on 2002-04-16 14:47

 

[Anne Troy]

Jay:

Have to let you know: The user loves her new vacation workbook.

 

[littleme]

[/quote]

Hi,

Short answer:

1. Get a list of unique names and add a sheet, then name it the person's name

a) advanced filter and cycle through the list

b) loop through the list of names and determine whether the sheet exists or not. If it does, go on, else add the sheet.

2. Cycle through the data list and add each item to the appropriate sheet. You will match the name in the cell and transfer the data to the relevant sheet.

These two can/should be separate routines as you will only have to add sheets initially and/or when new people are added.

[/quote]

What you just described is exactly what I need. But I have no clue how toget there.... Did anyone manage to get there? Would be ever so grateful....