Macro to Copy Data from One Sheet onto Multiple Sheets

Hi,

I am wondering if it is possible to create a macro to Look at a Sheet and Copy to Existing Sheets by Initials? I have attached a copy of my Workbook. The first sheet is called "Synchrono" this is imported from a different Workbook, what I would like to do is have it automatically Add/Delete to the appropriate Worksheets by the "Designers" Initials.

The final sheet is "Combined", I have created a "rough" macro using previous threads to combine all of the Designers into one sheet. If possible would like to have this all happen all together.

Unfortunately, I have to share this document so mutliple users can update at the same time. I know macros don't work with "shared" workbooks...so wondering if you had any ideas on this as well? For now I am going to designate a time where I will go in and unshare and run the update macros.

Hope this makes sense...any help is appreciated.

Thank you,
Sandi

It would make life easier (though not vital) if the sheet names could be the same as the initials - is that possible?

What is the difference between the Synchrono and Combined sheets?

Actually, yeah that would be ok if the initials were the names of the sheets.

The Synchrono tab only has certain information coming in (i have just added the columns i needed for so i could copy and paste into each of the sheets easier). The Combined sheet will have all their updates added on to one sheet that i am using as a scheduling tool.

Thanks
Sandi

OK, should the data in the Synchrono sheet be added to the bottom of the sheets, or overwrite?

Not sure I follow about the combined sheet. Do you mean everything in the designers' sheets should be copied there? Seems like a duplication of effor to split up and then combine.

I think it should be added to the bottom of the sheet, as they will be making updates to the columns on their individual sheets and I wouldn't want to overwrite their information.

Yes...they update on their individual tabs and then i need to compile that information (with updates) all back on to one sheet. Then I can combine into a chart to create our design backlog.

The first spreadsheet is coming from a scheduling software and imported into excel (which we don't have access to update) that is why I have to do an excel import. Just thought I would mention that so maybe this whole mess makes a little more sense.

OK, will come back to later today or tomorrow (if nobody else has stepped in in the meantime).

Hi Stephen,

I am wondering if we could modify this to just add the jobs instead of add/delete.

Thanks
Sandi

Sandi - sorry, slipped off the radar. Will try to look later today.

That's ok......just thankful for the assistance.

Also, there has been thoughts of adding a totals column at the end, would it be possible to add the new jobs prior to a totals line?

Thanks
Sandi

This should transfer the data from the synchro sheet to the others. You have to change sheet names to initials first. It will add a sheet if the initials do not exist. See if that works, then let's take it from there.

Please Login or Register  to view this content.

Hi,

I received a :Compile error: Syntax error" it highlighted here:

Function SheetExists(ByVal sName As String) As Boolean

On Error Resume Next
SheetExists = (Sheets(sName).Name <> "") On Error GoTo 0

End Function

Thansk
Sandi

Please use code tags. Did it do anything? I tested it on your sample and it worked. Do you know how to step through code using F8?

Sorry not sure what code tags are...I have attached my spreadsheet with the code. It seems to stop at the following:

Function SheetExists(ByVal sName As String) As Boolean

Thanks
Sandi

You must just have pasted incorrectly. Make sure

Please Login or Register  to view this content.

is on a separate line. Code tags above - forum rules.

Hi Stephen,

That code doubled everything it didn't just add the new ones? Where the blank ones suppose to show up on a separate sheet?

Thansk
Sandi

Hi,

I still have not figured this issue out yet, any ideas?

Thanks
Sandi

Sorry, what's the problem? What is it doing or not doing as the case may be?

Sorry....having trouble attaching the document, let me try again...

Thanks
Sandi

Hi,

The code doubled the items instead of just adding new ones. They also had me add totals to each of the sheets. Not sure how that is going to work either? I have been manually copying to the sheets but would really like to get it automated.

I have attached the newest version.

Thanks
Sandi

Sandi - the attachment failed.

Attachment not loading ... any ideas?

Thanks
Sandi

I keep getting a Database Error and when I e-mail the "Contact Us" address i get a bounce back that it is not a valid e-mail address?

Oops, perhaps the owners have done a bunk. Leave it a while, could just be a temporary problem with the site. I assume the file is not too big.

Yeah I think my original one was to big, I shortened and now it worked, thanks for your patience!

Sandi

Is the problem being caused by the point I raised in my very first post?

It would make life easier (though not vital) if the sheet names could be the same as the initials - is that possible?

Sorry...when making my original smaller I grabbed the one without the sheet changes. I have update and no it still didn't work. It still doubled instead of just adding new ones.

Thanks
Sandi

When I run the code the only sheet which is added is HOLD.

Are the jobs doubling on the individual's Initials sheets?

I didn't check. At the moment the code just dumps all the records below the pre-existing records. If the latter need to be removed first, not hard to do.

Can we add the New Lines at the bottom without overwriting any of the information above?

I'm confused now - isn't that what happens now?

I think they all duplicate I only want new ones? I could be wrong it's been a while I will have to look at closer.