Data transfer from master to other sheets by type [Closed]

Report
-
 Blocked Profile -
Hello,

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!

Lucaso


1 reply

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

ThisWorkbook.Worksheets(whatsheet).Select
sheetexist = True
Exit Function

NotExists:
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

ExitSub:

End Sub


Function copyrowX(towhatsheet, whatrow)
        ThisWorkbook.Worksheets("Sheet1").Select
        ThisWorkbook.Worksheets("Sheet1").Range("A" & whatrow).EntireRow.Select
        Selection.Copy
        
        ThisWorkbook.Worksheets(towhatsheet).Select
        cellcount = Cells(ThisWorkbook.Worksheets(towhatsheet).Rows.Count, 1).End(xlUp).Row
        ThisWorkbook.Worksheets(towhatsheet).Range("A" & cellcount).EntireRow.Select
        Selection.Insert
        
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)
    ThisWorkbook.Worksheets("Sheet1").Select
Next
End Sub


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

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!