Copy the whole row into their perspective company

[bri7697]

attached is a workbook that I am working on. The first tab is the master tracker, and then the subsequent tabs are the four different companies that we have. What I'm trying to do, is make it so that when you put data into the table for a certain person, it'll automatically copy that row to the perspective tab. so in the attachment, when I enter in PFC John Smith's info it'll autmoatically copy that whole row into the HHC tab, when I put CPT John Wayne's info in, it'll automatically add the data to the C-Co tab, and keep the information on the master tracker.

[majosum]

[code]
Dim CompanyName As String
Range("E2").Select
Do Until ActiveCell.Value = ""
CompanyName = ActiveCell.Value
ActiveCell.EntireRow.Select
Selection.Copy
Sheets(CompanyName).Select
Range("A1").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1,0).Select
Loop
ActiveSheet.Paste
Sheets("LEAVE CALCULATOR MASTER").Select
ActiveCell.Offset(1,4).Select
Loop
[code/]

[kalak]

you may like to try this macro and see if it works for you

Please Login or Register  to view this content.

[bri7697]

this didn't work, all it did was add another tab, with the header row highlighted, and i had to run the macro, I am trying to make it automatic

[jaslake]

Hi bri7697

Welcome to the Forum!

In order for this to be "truly"

automatic

the Code needs to be triggered by an "Event". Now, ideally, that "trigger" would be when you've completed filling out the Record. One way to do that is you make a "positive" selection to process the record. This would be my preferred approach and will allow you to have a Name/Control Number appear more than once in Sheet LEAVE CALCULATOR MASTER and in the Company Sheets.

However, if a Name/Control Number will NEVER appear more than once in Sheet LEAVE CALCULATOR MASTER or Company Sheets, a way to make it "truly" automatic would be to base it off the "Control Number"...so, questions for you:

• I assume you've not added "Control Number" for privacy purposes...is there a unique "Control Number" for each Name?
• Will that "Control Number" EVER appear more than once in Sheet LEAVE CALCULATOR MASTER or in the Company Sheets?