Autopopulating data from one main sheet to multiple sheets Closed

Question

Hello, 
I'm making a workbook for my coworkers to easily know what specific person they need to work with from month to month. I have created a "Master Sheet" to which they go in and copy data from. I have run into inconsistency and missed work. I need the data to automatically feed to their separate work sheets. For Example on the master sheet cells A3-A24 has the name of person my coworkers should be working with. Cells B3-B24 has the names of my coworkers assigned to the data in A3-A24. I would like the data from column A to transfer to my coworkers individual workbooks... does anyone have any suggestions on how I would go about this? I really appreciate it! Thank you! 
Ashley

vcoolio · Answer

Hello Ashley,

I assume that you have one work book with a Master sheet and multiple other work sheets (named after each co-worker).

Try the following code in a standard module:-

Sub TransferData()

Application.ScreenUpdating = False

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

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

Application.ScreenUpdating = True

End Sub

The code should transfer Column A data only to Column A (or do you need it sent to a different column?) of each individual worker sheet.

I hope that this helps.

Cheerio,
vcoolio.

Autopopulating data from one main sheet to multiple sheets

1 response

Similar discussions

Subscribe To Our Newsletter!