Split a Master Spreadsheet into Multiple Sheets with Multiple Criteria with 1 click

FREE actual workbook for my video "Split a Master Spreadsheet into Multiple Sheets with 1 click - VBA for Beginner". You can download and try it out yourself here: https://bit.ly/2UmeX2v

New course Launched! I created it to show you the end to end process for splitting a master data file as well as trouble-shooting:
https://caripros-hr-analytics.teachable.com/p/ultimate-end-to-end-course-split-a-master-data-file-into-multiple-spreadsheets-with-excel-vba

Email Contact: HR at Caripros.com

Topic: Split a master tab into multiple sub tabs with 1 click
Scenario: You want to split the data on a master file into multiple small sub-tabs by a chosen criteria (eg. Department, Country, etc.)
Function: Macro for Copy sheet, AutoFilter, and Loop

Related Video:
Excel Macro/VBA - Splitting a Master File https://goo.gl/m8CHya
Troubleshooting when your code does not work: http://bit.ly/35nwtat
Troubleshooting: Why my Split Macro does not work? http://bit.ly/313yxRJ
Save Sheets as Multiple Files with 1 click http://bit.ly/2OBEuTm
Save Multiple Sheets as Separate PDF Files http://bit.ly/316VOlr
Send or Draft Multiple Outlook Emails with Attachment http://bit.ly/2p3NUfv

***Macro Code SEE COMMENT FOR IMPORTANT NOTICE***
Sub SplitandFilterSheetwithMultipleCriteria()
'Step 1 - Copy sheet
'Step 2 - Filter by Department and delete rows not applicable
'Step 3 - in the active sheet, then filter by Country and split and save as a new sheet with new name
'step 4 - Loop until the end of the list

Dim Splitcode As Range
Dim Country As Range
Sheets("Master").Select
Set Splitcode = Range("Splitcode")
Set Country = Range("Country")

'filter by department
For Each cell In Splitcode
Sheets("Master").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = cell.Value

With ActiveWorkbook.Sheets(cell.Value).Range("MasterData")
.AutoFilter Field:=6, Criteria1:="NOT EQUAL TO" & cell.Value, Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilter.ShowAllData

'then filter by country and split
For Each cell2 In Country
Sheets(cell.Value).Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = cell.Value + "-" + cell2.Value

With ActiveWorkbook.ActiveSheet.Range("MasterData")
.AutoFilter Field:=9, Criteria1:="NOT EQUAL TO" & cell2.Value, Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilter.ShowAllData
Next cell2

Next cell
End Sub
******Follow-up Consulting Services******
If you have specific question regarding your issue, you can email me at the email here https://goo.gl/WejijZ Note that there will be a fee of US$200 charged for solving your issue. The turnaround is within 24 hours. Any follow-up issue in 3 days will also be answered with no charge. Payment link: https://www.paypal.me/caripros

******More Videos in Playlists******
Power BI for Beginners: https://bit.ly/3ivKitD
Power BI for Advanced Users: http://bit.ly/3lE9zmO
Excel for HR https://goo.gl/JdeVnd
Excel for HR - Master Class https://goo.gl/LYfq2f
Excel Macro - Beginner https://goo.gl/Yae5nc
Excel Macro/VBA - Splitting a Master File https://goo.gl/m8CHya
Excel Macro/VBA - Auto-hide Rows or Columns http://bit.ly/2Mzteb5
Excel Charts Data Visualization https://goo.gl/2ao6BP
Excel Vlookup Function https://goo.gl/kP2Wpz
Excel Pivot Table Function https://goo.gl/rukkPs
Excel Array Function https://goo.gl/i4sQH8
Excel Index and Match Function https://goo.gl/i7VGU4
Excel Solver/Goal Seek Functions https://goo.gl/FTkTnj
Excel Cell Formatting Solutions https://goo.gl/gpa6MY
HR Analytics - Merit Matrix https://goo.gl/Koy7co
HR Analytics - Salary Structure https://goo.gl/uZBnFa
Excel Tricks https://goo.gl/TeqGDw
Excel Troubleshooting https://goo.gl/bdY5by
Fun HR Topics https://goo.gl/7zVg8h

For more successful stories, view at: http://caripros.com/index.php/success-stories/


#ExcelforHR#HRAnalytics#Excel#HR