Automatically Syncing Data from my master sheet to Individual Sh Closed

Question

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

vcoolio · Answer

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.

Automatically Syncing Data from my master sheet to Individual Sh

1 response

Similar discussions

Subscribe To Our Newsletter!