Filter code works on text but not numbers

[worlamptey]

Hi All,

This is a similar question to another thread:https://www.mrexcel.com/forum/excel-questions/1081373-code-works-text-not-numbers.html

I've tried the solution suggested on the thread but still isn't working for me.

The column I am filtering on has numbers in text formats, such as "004", "032", "250" and also has cells contains alpha-numeric combinations, such as "2TX", "TZ7".

This is the part of the code where I am filtering on this column:

ActiveWorkbook.Sheets(Cstr(cell.Value)).Range("MasterData").AutoFilter Field:=6, Criteria1:="N<>" & CStr(cell.Value), Operator:=xlFilterValues.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.DeleteEnd With

Does anyone knows of a way to make this filter work?
Or another way to filter out the rows I want to delete?

Thank you.

 

[worlamptey]

This is the entire code:

Sub SplitandFilterSheet()Dim Splitcode As RangeSheets("Master").SelectSet Splitcode = Range("Splitcode")For Each cell In SplitcodeSheets("Master").Copy After:=Worksheets(Sheets.Count)ActiveSheet.Name = cell.ValueWith ActiveWorkbook.Sheets(CStr(cell.Value)).Range("MasterData").AutoFilter Field:=6, Criteria1:="<>" & CStr(cell.Value), Operator:=xlFilterValues.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.DeleteEnd WithActiveSheet.AutoFilter.ShowAllDataNext cellEnd Sub

 

[worlamptey]

[COLOR=#0A0A0A][FONT=Roboto]Sub SplitandFilterSheet()
Dim Splitcode As RangeSheets("Master").Select
Set Splitcode = Range("Splitcode")
For Each cell In SplitcodeSheets("Master").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = cell.Value

With ActiveWorkbook.Sheets(CStr(cell.Value)).Range("MasterData")
.AutoFilter Field:=6, Criteria1:="<>" & CStr(cell.Value), Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

End With

ActiveSheet.AutoFilter.ShowAllData
Next cell

End Sub[/FONT][/COLOR]