Excel macro para borrar rows con input box
Buenas a todos soy nuevo con los macros quisiera saber porque no anda esto, tiene que borrar las filas que no contengan la palabra que yo pongo el input box y ademas las que tienen espacios blancos, en cambio me borra todo.
Sub filtro()
Dim bb As Long
Dim box As String
bb = Range("D" & Rows.Count).End(xlUp).Row
box = InputBox("Filtrar en Categoría:")
With Range("D1:D" & bb)
.AutoFilter Field:=1, Criteria1:="<>" & box
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Desde ya, gracias.
Sub filtro()
Dim bb As Long
Dim box As String
bb = Range("D" & Rows.Count).End(xlUp).Row
box = InputBox("Filtrar en Categoría:")
With Range("D1:D" & bb)
.AutoFilter Field:=1, Criteria1:="<>" & box
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End Sub
Desde ya, gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
En 2010, y me borra todo.
¿Qué puedo hacer? Instalar el 2007 jaja, lastima que no lo tengo.
No parece tener nada especial tu rutina, pero te dejo otra para que la pruebes.
Si tampoco te da resultado debieras dejar nuevamente la consulta en el tablón ACLARANDO tu versión. No tengo en estos momentos la 2010 para probarla.
Sub MacroFiltro()
'x Elsamatilde
'
Dim bb As Long
Dim box As String
bb = Range("D" & Rows.Count).End(xlUp).Row
box = InputBox("Filtrar en Categoría:")
Range("$D$1:$D$" & bb).AutoFilter Field:=1, Criteria1:="<>" & box
Range("D1").CurrentRegion.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
Range("D1").Select
ActiveSheet.Range("$D$1:$D$" & bb).AutoFilter 'Field:=1
End Sub
Si tampoco te da resultado debieras dejar nuevamente la consulta en el tablón ACLARANDO tu versión. No tengo en estos momentos la 2010 para probarla.
Sub MacroFiltro()
'x Elsamatilde
'
Dim bb As Long
Dim box As String
bb = Range("D" & Rows.Count).End(xlUp).Row
box = InputBox("Filtrar en Categoría:")
Range("$D$1:$D$" & bb).AutoFilter Field:=1, Criteria1:="<>" & box
Range("D1").CurrentRegion.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
Range("D1").Select
ActiveSheet.Range("$D$1:$D$" & bb).AutoFilter 'Field:=1
End Sub
