Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

SALAVERRINO

RESALTAR FILTRO DE BUSQUEDA

Recommended Posts

Buenos días a los integrantes de este foro, esta ocasión recurro a Uds, para que me brinden su apoyo y colaboración a esta macro el cual me permite realizar la búsqueda y copiar la información solicitada, pero a la vez necesito que tras haber realizada la búsqueda en la hoja INGRESO (base de datos) los valla resaltando aquellos datos que fueron solicitados desde la hoja BUSQUEDA en cualquiera de sus opciones ya indicadas en la fila A6 hasta la U6. Adjunto Archivo e imagen.

Agradezco desde ya su colaboración brindada.

Sub FILTOR()
Range("DATOS").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "FILTRO"), CopyToRange:=Range("RESULTADO"), Unique:=False
ActiveWindow.ScrollColumn = 1
Range("A6:V6").Select
Selection.ClearContents
Range("A6").Select
End Sub

Saludos.

 

SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part01.rar

SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part02.rar

SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part03.rar

SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part04.rar

SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part05.rar

SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part06.rar

SEMANA 07 DEL 17 AL 20 DE MARZO 2018.part07.rar

Share this post


Link to post
Share on other sites
Guest jorgeivan117

Hola SALAVERRINO intenta con este código tal vez te sea útil. 

Sub FILTOR()
Range("DATOS").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "FILTRO"), CopyToRange:=Range("RESULTADO"), Unique:=False
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Range("DATOS").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _
    "FILTRO")
Range("DATOS").Font.ColorIndex = 3
Range("DATOS").AutoFilter
''''''''''''''''''''''''''''''''''''''''''''''''''''''
ActiveWindow.ScrollColumn = 1
Range("A6:V6").Select
Selection.ClearContents
Range("A6").Select
End Sub

espero te sirva saludos.

Share this post


Link to post
Share on other sites

Hola @SALAVERRINO

Te dejo una posible opción.

Que tengas una buena jornada! 

ae20180221_SORT TRAB - copia.xlsb

Pd.:Aclaro que borre los bordes para poder enviar archivo

Edited by tierra_pampa
Aclaro que borre los bordes para poder enviar archivo

Share this post


Link to post
Share on other sites
Guest jorgeivan117
Hace 16 horas, SALAVERRINO dijo:

Buenas noches jorgeivan117al ejecutar el codigo brindo me emite el siguiente error, pantallazo.

Gracias.

RESALTAR FILTRO DE BUSQUEDA.png

Hola SALAVERRINO, debes "reemplazar" el código que tenias por el código que te envié , o sea debes "borrar" este código:

Sub FILTOR()
Range("DATOS").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "FILTRO"), CopyToRange:=Range("RESULTADO"), Unique:=False
ActiveWindow.ScrollColumn = 1
Range("A6:V6").Select
Selection.ClearContents
Range("A6").Select
End Sub

Ya que dos procedimientos no pueden tener el mismo nombre.

Ahora si eso no te funciona por favor adjunta el archivo. Porque a mi si me funciona bien.

Saludos.

image.thumb.png.a88f2fe14b419c7db575943b897e0112.png

Share this post


Link to post
Share on other sites

Buenas tardes  jorgeivan117ahora ya esta funcionando la macro, al parecer estaba cometiendo un error al copiar el código, por lo que agradezco tú apoyo y colaboración, pero también quisiera solicitarte, si a la misma macro o crear una nueva macro, es decir luego de haber filtrado la búsqueda y que los halla pintado de color rojo como check de verificación, se restablezcan (poner las letras de color rojo a negro).

Agradezco nuevamente tu apoyo y colaboración.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png