Data transfer from master to other sheets by type

Lucaso - May 23, 2018 at 04:53 PM
 Blocked Profile - May 24, 2018 at 04:35 PM

I'm trying to create a workbook with a master sheet and four subsequent sheets. Ideally the master sheet will be where my admin assistant will enter various assignments and tracking items. There are various categories and ways of recording the items so they fall under a single table. They each have their own table for tracking in the master sheet. The master sheet, through a macro or command button, would then identify who the item is assigned to and populate the information in the right location in the corresponding sheet.

The person viewing the workbook could then simply look at their sheet and scroll through the categories for what they are responsible for, due dates, and progress.

I hope the explanation of my conundrum makes sense. Thanks in advance for looking at it!



1 response

So what part are you stuck on? Getting the users to use it? Building the sheet?

Post some code and we can help.

Or, you can cut and past this one, and change it to fit your model.

Function sheetexist(whatsheet)
On Error GoTo NotExists

sheetexist = True
Exit Function

sheetexist = False

End Function

Function testsheet(whichsheet, rowNum)
nret = sheetexist(whichsheet)
        If nret = False Then makesheet (whichsheet)
        nret = copyrowX(whichsheet, rowNum)        
End Function

Sub makesheet(whatsheet)
On Error GoTo ExitSub
    With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = whatsheet
    End With


End Sub

Function copyrowX(towhatsheet, whatrow)
        ThisWorkbook.Worksheets("Sheet1").Range("A" & whatrow).EntireRow.Select
        cellcount = Cells(ThisWorkbook.Worksheets(towhatsheet).Rows.Count, 1).End(xlUp).Row
        ThisWorkbook.Worksheets(towhatsheet).Range("A" & cellcount).EntireRow.Select
End Function

Sub ReadSheet()
cellcount = Cells(ThisWorkbook.Worksheets("Sheet1").Rows.Count, 1).End(xlUp).Row
For RowCount = cellcount to 1 step -1
    cellvalue = ThisWorkbook.Worksheets("Sheet1").Range("A" & RowCount).Value
    nret = testsheet(cellvalue, RowCount)
End Sub

Let us know where you get stuck.....