Macro que Filtre y Busque
Buenos días.
Necesito una macro que filtre en una hoja con mas de 20mil datos y que busque solo en esa región filtrada, esto con el fin de agilizar la búsqueda. Es decir, estoy buscando una referencia que tengo en una hoja ("Ref: 0022DL"), en otra hoja que tiene los registros, pero solo me interesan de esa referencias los que estén en Decorado, asi no lo buscara en todos los 20 mil registros, sino que filtraría los decorados que son 50 por asi decirlo y si no lo encuentra en esos filtrados pues no demoraría la búsqueda.
Actualmente me recorrre en un bucle For pero en todo los 20 mil registros y se demora mucho, este es un ejemplo que cito, pqara que tengan una idea.
Gracias de antemano
1 respuesta
Puede que esto te sirva,
Sub Filtrarybuscar()
Selection.AutoFilter Field:=1, Criteria1:="1"
'En Field, deberás poner la columna de filtrado y en Criteria1 el criterio de filtrado
Dim rango As Range
Set rango = Range("b:b") 'cambia por la columna dónde quieras buscar la referencia
Set rango = rango.SpecialCells(xlCellTypeVisible) 'de esta manera se selecciona sólo las celdas activas del filtrado
rango.Select
criterio = "b" 'pon el criterio de búsqueda p.e.: ("Ref: 0022DL")
For Each cell In Selection
If cell.Value = criterio Then
'escribe lo que quieras que haga la macro
End If
Next cell
End Sub
