Macro Input Box y filtrado
Buenas, necesito ayuda con respecto a una macro para office 2003 de petición de dato con input box y posterior filtrado de ese dato en la hoja.
Tengo una hoja donde están todos los datos de los clientes y quisiera a través de un input box me pida el campo dni y me lo filtre todo lo que encuentre con ese dni.
Los títulos empiezan en A3 y los Datos en A4 los datos a filtrar del Dni empiezan en O4.
Gracias y Saludos
Te mando mi solución con esta macro. (Mis datos están en hoja1, esto lo puedes cambiar en la macro)
Sub proceso()
'por luismondelo
Sheets("hoja1").Select
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
dato = InputBox("introduzca el dni")
If dato = "" Then Exit Sub
Range("a1").AutoFilter field:=15, Criteria1:=dato, Operator:=xlFilterValues
End Subrecuerda valorar la respuesta
No funciona, me da el siguiente error : Error em método Autofilter de la clase Range
Prueba con la macro así:
Sub proceso()
'por luismondelo
Sheets("hoja1").Select
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
dato = InputBox("introduzca el dni")
If dato = "" Then Exit Sub
Range("a3").AutoFilter field:=15, Criteria1:=dato, Operator:=xlFilterValues
End Sub
Sigue sin funcionar, error 1004 en tiempo de ejecución error definido por la aplicación o el objeto.
Acabo de probar la macro y funciona perfectamente:
-Todos los encabezados están en la fila3
Y los datos a filtrar están en la columna O
Puede ser por la version de office ? tengo office2003
Recuerda que yo he puesto esta línea:
sheets("hoja1").select
Si tus datos están en otra hoja tendrás que cambiar el entrecomillado para poner el nombre de tu hoja.
