Previous Topic Next Topic

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 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - 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
Related:

1 response

Answer 1 / 1
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 259
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