Thread: input box dosent quite work

Hello there, im new to macros got a macro an im trying to do a filter with a inputbox that deletes the rows if it dosent found the word or if the cell is blank in the column, heres the code:

Sub filtro()
    Dim lr As Long
    Dim box    

    box = InputBox("Filtrar:")
    lr = Range("D" & Rows.Count).End(xlUp).Row
    
    With Range("D1:D" & lr)
        .AutoFilter Field:=1, Criteria1:="<>box"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With

End Sub

it deletes everything :P i just whant to delete the words of the inputbox and rows containing blank cells

well thats all thanks.

the result of Inputbox method depends on the TYPE of data:

If the number plz, change to

 box = InputBox("Filtrar:",Type:=1)

if the text (string)

 box = InputBox("Filtrar:", Type:=2)

if the range

 box = InputBox("Filtrar:", Type:=8)

AND also change

.AutoFilter Field:=1, Criteria1:="<>box"

to

.AutoFilter Field:=1, Criteria1:="<>" & box

Hi babar48, you were close. Notice the "<>" & box in

Sub filtro()
    Dim lr As Long
    Dim box As String
    box = InputBox("Filtrar en Categoría:")
    lr = Range("D" & Rows.Count).End(xlUp).Row
      With Range("D1:D" & lr)
        .AutoFilter Field:=1, Criteria1:="<>" & box
        .EntireRow.Delete
        .AutoFilter
    End With
End Sub

If it remains in quotes then the criteria will always be box and that's it.

If your problem has been solved please mark your thread as solved. Also, if you feel that members of this forum have helped you out then don't be bashful and tap their scales (located at the top right of each post).


Kind Regards: