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

Buscar valor y resaltar el valor encontrado

Recommended Posts

Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que me ayuden a mejorar la macro que describo a continuación:

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

Hoja BUSQUEDA

Lo que realiza dicha macro como su propio nombre dice busca valores que provienen de la hoja INGRESO (hoja protegida clave “A” para ocular las fórmulas), por ejemplo cuando digito en DNI a buscar en hoja BUSQUEDA celda Q6 dicho valor se resalta en la hoja INGRESO como indicador que valor buscado se encuentro, dicha macro trabajar sin ningún problema cuando la hoja INGRESO no se encuentra protegida, pero cuando la hoja INGRESO se protege  genera error en la instrucción:

Los valores buscados van desde la fila A6 a U6.

'''''''''''''''''''''''''''''''''''''''''''''''''''''' error a buscar el valor solicitado con hoja INGRESO protegida
Range("DATOS").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _
    "FILTRO")
Range("DATOS").Font.ColorIndex = 3
Range("DATOS").AutoFilter
''''''''''''''''''''''''''''''''''''''''''''''''''''''

Por lo que he intentado colocando al inicio de la macro las instrucciones para que la desproteja y proteja automáticamente la hoja con la clave, pero sin ningún resultado,

Adjunto archivo.

https://drive.google.com/file/d/1W3GRpCt_XdxzoC9zHXLlZ15vnhsIpYRH/view?usp=sharing

Desde ya agradezco su apoyo y colaboración, saludos.

Share this post


Link to post
Share on other sites

Si quieres intenta lo siguiente:

 


Protegemos la hoja activa

'Pega este código al principio. 
ActiveSheet.Protect "TU CONTRASEÑA"


Desproteger una hoja de cálculo
'Pega este código al final. 
ActiveSheet.Unprotect "TU CONTRASEÑA"

 

Share this post


Link to post
Share on other sites
Hace 1 minuto , DiegoLG dijo:

Si quieres intenta lo siguiente:

 


Protegemos la hoja activa

'Pega este código al principio. 
ActiveSheet.Protect "TU CONTRASEÑA"


Desproteger una hoja de cálculo
'Pega este código al final. 
ActiveSheet.Unprotect "TU CONTRASEÑA"

 

ya lo he intentado e inclusive designando variables a la hoja y no funciona.

Share this post


Link to post
Share on other sites
Hace 4 horas, SALAVERRINO dijo:

pero cuando la hoja INGRESO se protege  genera error en la instrucción:

Por eso es importante pegar este código al principio:

Ejemplo en la hoja1 quiero desproteger y pego esta línea al principio:

Hoja1.Unprotect "TU CONTRASEÑA"

y despues si quieres que la hoja quede protegida de nuevo pega lo siguiente al final de tu código:

Hoja1.protect "TU CONTRASEÑA"

Intentalo de nuevo y me comentas.

 

Saludos

Share this post


Link to post
Share on other sites
Hace 58 minutos , DiegoLG dijo:

Por eso es importante pegar este código al principio:

Ejemplo en la hoja1 quiero desproteger y pego esta línea al principio:


Hoja1.Unprotect "TU CONTRASEÑA"

y despues si quieres que la hoja quede protegida de nuevo pega lo siguiente al final de tu código:


Hoja1.protect "TU CONTRASEÑA"

Intentalo de nuevo y me comentas.

 

Saludos

@DiegoLG realice la modificación indicada, pero al consignar la instrucción Hoja1.Unprotect "CONTRESEÑA", en la hoja INGRESO borra toda la fila 6 y en la hoja busqueda el valor consignado como criterio a buscar no se borrar.

Share this post


Link to post
Share on other sites

Creo que es mejor que busques la manera de adjuntar tu archivo.

Hace 22 horas, SALAVERRINO dijo:

n la hoja INGRESO borra toda la fila 6 y en la hoja busqueda el valor consignado como criterio a buscar no se borrar.

No creo que tenga algo que ver con las líneas que te pase, ya que solamente es para desproteger y proteger hojas.

Saludos,

Share this post


Link to post
Share on other sites
Hace 1 hora, DiegoLG dijo:

Creo que es mejor que busques la manera de adjuntar tu archivo.

No creo que tenga algo que ver con las líneas que te pase, ya que solamente es para desproteger y proteger hojas.

Saludos,

Hola @DiegoLG salvo que se pueda confeccionar otra macro pero sin realizarlo con filtros.

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