Best Approach to Do This Report

homerl2409

New Member
Joined
Dec 26, 2019
Messages
4
Office Version
  1. 365
Platform
  1. Windows
I am creating a reporting file where I want to add new sheets and add tables in these new sheets, using vba. As shown in the image below, there are two column Main Category and Sub Category. I want to create new sheet for every Main Category and add tables for every Sub Category based on the sheet it belongs to. Additionally I may add new entries to Main Category and Sub Category, the vba code should add sheet and tables for those as well.

1.PNG


So far I am able to add the new sheets , but couldn't add the tables , This is what I have:

VBA Code:
Sub CreateSheetsFromAList()
Dim MyCell As Range, myRange As Range
        Dim MyCell1 As Range, myRange1 As Range
        Dim WSname AsString

        Sheet1.Select
        Range("A2").Select
        Range(ActiveCell, ActiveCell.End(xlDown)).Select
        Set myRange = Selection
        Application.ScreenUpdating =False

         ForEach MyCell In myRange
            If Len(MyCell.Text)>0Then
                'Check if sheet exists
                IfNot SheetExists(MyCell.Value)Then

                    'run new reports code until before Else

                    Sheets.Add After:=Sheets(Sheets.Count)'creates a new worksheet
                    Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet

                    WSname = MyCell.Value 'stores newly created sheetname to a string variable

                    'filters consolidated sheet based on newly created sheetname
                    Sheet3.Select
                    Range("A:T").AutoFilter
                    Range("D1").Select
                    Range("D1").AutoFilter Field:=4, Criteria1:=WSname, Operator:=xlFilterValues

                    Range("A1:U1").Select
                    lastRow = Cells(Rows.Count,1).End(xlUp).Row
                    Range("A1:U"& lastRow).Select
                    Selection.Copy 'copies filtered data

                    'search and activate WSname
                    ChooseSheet WSname

                    Range("AH2").Select
                    ActiveCell.PasteSpecial xlPasteValues

                    Range("AJ:AJ").Select
                    Selection.NumberFormat ="hh:mm"
                    Range("B2").Select
                 EndIf
            EndIf

        Next MyCell

        EndSub

         Function SheetExists(shtName AsString,Optional wb As Workbook)AsBoolean
        Dim sht As Worksheet

         If wb IsNothingThenSet wb = ThisWorkbook
         OnErrorResumeNext
         Set sht = wb.Sheets(shtName)
         OnErrorGoTo0
         SheetExists =Not sht IsNothing
         EndFunction

        Public Sub ChooseSheet(ByVal SheetName AsString)
        Sheets(SheetName).SelectEndSub

The result should look like this

2.PNG


What is the best approach in getting the above result? Please help
 

Excel Facts

Do you hate GETPIVOTDATA?
Prevent GETPIVOTDATA. Select inside a PivotTable. In the Analyze tab of the ribbon, open the dropown next to Options and turn it off

Forum statistics

Threads
1,213,535
Messages
6,114,194
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top