Related:
- Data transfer from master to other sheets by type
- How to type # in laptop - Guide
- Free fire transfer - Guide
- Keyboard won't type - Guide
- Master royale - Download - Strategy
- Typing master mod for pc - Download - Education
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.
Let us know where you get stuck.....
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.....