Automatically Syncing Data from my master sheet to Individual Sh

Closed
saral.saraf
Posts
1
Registration date
Tuesday May 5, 2015
Status
Member
Last seen
May 5, 2015
- May 5, 2015 at 12:33 PM
vcoolio
Posts
1343
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
May 12, 2022
- May 6, 2015 at 05:08 AM


Hi,

What would be the procedure for automatically Syncing Data from my master sheet to Individual Artist sheet.

I basically would be entering all the data in the master sheet for all the artists I am managing (ie Master Sheet) i want the same data for Individual artist to be automatically synced to individual Artist Sheets.

Please refer the picture attched.

Thanks in advance

1 reply

vcoolio
Posts
1343
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
May 12, 2022
249
May 6, 2015 at 05:08 AM
Hello Saral,

The following code should do the job for you:-
Sub TransferData()

Application.ScreenUpdating = False

Dim lRow As Long
Dim MySheet As String
lRow = Range("A" & Rows.Count).End(xlUp).Row

For Each cell In Range("A2:A" & lRow)
    MySheet = cell.Value
    cell.EntireRow.Copy Sheets(MySheet).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next cell

Sheets("Master").Range("A2:K" & Rows.Count).ClearContents
MsgBox "Data transfer completed!", vbExclamation
Application.ScreenUpdating = True

End Sub


You can have a look at my test work book here:-

https://www.dropbox.com/s/eanhaab28tt54vo/SaralSaraf.xlsm?dl=0

to see how it works.

I have placed fictitious names in Column A and the sheet tabs rather than just letters.

The code also deletes all data from the Master Sheet once the data is transferred to each individual sheet.

Cheerio,
vcoolio.
0