Autofilter between numbers not working correctly

Please let me know which case doesn't work, but I'm guessing that if you change this

If Application.WorksheetFunction.Subtotal(103, .Resize(, 1)) > 0 Then
                    .Columns(1).Hidden = True

Select allOpen in new window

to this

                .Columns(1).Hidden = True
                If Application.WorksheetFunction.Subtotal(103, .Resize(, 1)) > 0 Then

Select allOpen in new window

that it will work.

Your numbers are formatted as Text, try changing to a Number Format

I still need to have Column one hidden, as I don't need those values...only to sort by those values.  I sort by column A, but do not copy the column A values.  I need to have the 'values' in column A set as text, to keep the leading zeros.

Martin...can you explain the resize line?

It's just one way of determining if there are any visible rows. If the result is > 0 then there are.

I need to have the 'values' in column A set as text, to keep the leading zeros.

No you don't, use a Custom Numberformat - "000000000000"

Generally numbers should be used as numbers not text

the Custom Numberformat works sometimes, but not always. There were too many times when it didn't work. Especially when importing a .csv file.  Maybe if I put to text first, then custom format it might work as intended.

The filtering between two values still doesn't work with the numbers in Col A, even after changing to Custom format.

Please describe what you mean when you say "doesn't work" because in your question you said it works some of the time.

Using these values in the spreadsheet. If I start with a number that is not 00, say 95, it worked fine. 

What I forgot to include in Column A values is an alpha character...hence the reason it needs to be a text value. Wait...that may be the issue. The other values where it worked on have an Alpha character in the middle.  These don't.  Need to check.

I went to my original and no they don't have an alpha character.  Why would it only work with an alpha in the middle?  Need to check.

How about not using AutoFilter?

Sub Filter_Between_Two_Numbers()
Dim wsManifest As Worksheet
Dim wsData As Worksheet
Dim DLastRow As Long, MLastRow As Long, lRow As Long, x As Long
Dim NumOfRows(1 To 41) As Long
Dim vStart As Variant, vEnd As Variant, vBox1 As Variant, vPallet As Variant, vBox2 As Variant
Dim rngAE As Range, rng As Range
Dim StartRow As Long, EndRow As Long
Dim arrIn As Variant
Dim arrOut As Variant
Dim idxRow As Long
Dim cnt As Long

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

    Set wsData = Worksheets("DATA")
    Set wsManifest = Worksheets("MANIFEST")

    With wsManifest
        MLastRow = .Range("A" & Rows.Count).End(xlUp).Row
        vPallet = .Range("A2:A" & MLastRow).Value
        vBox1 = .Range("B2:B" & MLastRow).Value
        vBox2 = .Range("C2:C" & MLastRow).Value
        vStart = .Range("D2:D" & MLastRow).Value
        vEnd = .Range("E2:E" & MLastRow).Value
    End With

    With wsData
        DLastRow = .Range("A" & Rows.Count).End(xlUp).Row
        Set rngAE = .Range("A1:E" & DLastRow)

        arrIn = rngAE.Value

        For x = LBound(vStart) To UBound(vStart)
            ReDim arrOut(1 To 1, 1 To UBound(arrIn))
            cnt = 0
            For idxRow = LBound(arrIn, 1) To UBound(arrIn, 1)
                If Val(arrIn(idxRow, 1)) >= Val(vStart(x, 1)) And Val(arrIn(idxRow, 1)) <= Val(vEnd(x, 1)) Then
                    cnt = cnt + 1

                    arrOut(1, cnt) = arrIn(idxRow, 1)
                End If
            Next idxRow
            
            If cnt > 0 Then
            
                ReDim Preserve arrOut(1 To 1, 1 To cnt)
                
                Sheets.Add(After:=Sheets(Sheets.Count)).Name = vBox2(x, 1)   'Add New Worksheet - Name Worksheet (vBox)
    
                ActiveSheet.Range("A2").Resize(cnt).Value = Application.Transpose(arrOut)
                'Add Headings
                [A1:G1].Value = Array("OBLIGOR", "DOC TYPE", "OBLIGATION", "STATUS CODE", "  ", "PALLET #", "BOX")
                [F2].Value = vPallet(x, 1)
                [G2].Value = vBox1(x, 1)
                With ActiveSheet
                    ActiveWindow.DisplayGridlines = False
                    .Columns.AutoFit
                    Set rng = .Range("A1:G" & DLastRow)
                    rng.FormatConditions.Add Type:=xlExpression, Formula1:="=mod(row()+1,2)"
                    rng.FormatConditions(1).Interior.Color = RGB(235, 235, 235)
                End With
            End If
        Next x
    End With

    With wsData
        .Columns(1).Hidden = False
        .Rows(1).Hidden = False
        .AutoFilterMode = False
        Application.Goto .Range("A1"), True
    End With

    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With

End Sub

Select allOpen in new window

In your Manifest data, row 4, the 'From' is greater than the 'To'. Is that correct? I believe that's why you aren't getting any results.

No, the From should be smaller.  When putting this together I was more concerned about rows 1 and 2, should have been more careful.  The code you provided, will it display all values regardless of where they are in the column?  The sorting for these is not exact, many times in doing a A-Z sort, the column values do not display a true low to high sort.

The alpha character, which is missing, will cause it to autofilter properly, or not.  I did a replace all with 0007 to 0007A, and added an alpha in row one, and it works properly, or at least it filters.  But, i have a potful of these, which are not filtering because they don't have the alpha.   I need to run Norie's code and see if it works.

I was more concerned about rows 1 and 2,

In your code you never look at those rows, but instead always the last row in the Manifest.

No... I'm copying everything into an array from the second row to the last row.

    With wsManifest
        MLastRow = .Range("A" & Rows.Count).End(xlUp).Row
        vPallet = .Range("A2:A" & MLastRow).Value
        vBox1 = .Range("B2:B" & MLastRow).Value
        vBox2 = .Range("C2:C" & MLastRow).Value
        vStart = .Range("D2:D" & MLastRow).Value
        vEnd = .Range("E2:E" & MLastRow).Value
    End With

Select allOpen in new window

Or into a variant...

I'm copying everything into an array from the second row to the last row.

Sorry, but you're not. With the data in the workbook you posted MLastRow is 4 which is the last row,.

Norie's code seems to filter, but it doesn't copy the values in Column C to paste with those in Column B...I actually have three columns total needing to be copied and pasted..just showed two.

Doesn't vPallet, vBox1, etc. copy everything from ("A2:A" & mLastrow)  or ("B2:B" & mLastRow), etc...

I wasn't sure what needed to be copied as the code wasn't running.

Do you need all 3 columns on the MANIFEST sheet to be copied?

Yes, I actually have four columns in my work environment A-D.  Col A is not copied. Columns B-D are copied and pasted into their respective sheets.

It looks like I will need to format the cells in the new worksheets to either text or custom.  Where is the best place to put this code?