A Sorting Issue

If you have the same criteria each time you need to filter and cut and paste, then I would develop some automation. If you post your worksheet with the criteria, I am sure that someone here can help you develop some VBA that will save you lots of time and energy.

Attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are demonstrated, mock them up manually if needed. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Hi,

This macro might work for you...

Sub CreateTabs()
'
' CreateTabs Macro
'

'
    Selection.AutoFilter Field:=1, Criteria1:="(Criteria1)"
    Range("$A:$AN").Select
    ActiveWindow.SmallScroll Down:=3
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add.Name = "(Criteria1)"
    ActiveSheet.Paste
    ActiveSheet.Next.Select
    Selection.AutoFilter Field:=1, Criteria1:="(Criteria2)"
    Range("$A:$AN").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add.Name = "(Criteria2)"
    ActiveSheet.Paste
    
End Sub

@aganesan99

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added the code tags on this post to allow it to continue without interruption. Please read all our rules and abide by them.)

So I just noticed that the way the script works, it creates unmanageable files. In this case 96 mb. In its current form, this is probably not going to work. Is there a way to cur the range down?