Custom Search

Macro oculta y muestra hoja en base a criterio



La siguiente macro tiene por objeto ocultar y mostrar la hojas de un libro en base a criterios, en el post, buscar datos y listar hojas, se presenta un ejemplo relacionado con hojas de Excel, ya que busca un dato en todas las hojas del libro, una vez encontrado el dato lo trae a la primer hoja y lista la hoja, también se presenta otro ejemplo el cual recorre todas las hojas y extrae datos para resumen.

En el link a continuación encontrarás un libro que muestra las distintas formas de seleccionar o referenciar celdas, tema más que necesario si estás por confeccionar una macro para automatizar Excel.


Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

MASTERCARD PAYONEER

El código de VBA o macro se agrega en Worksheet, si en la celda A2 se elige "Yes" oculta todas las hojas excepto la "Hoja1"; si se elige "No" muestra todas las hojas que pudieran estar ocultas.

Para ocultar o mostrar hojas se realiza un bucle, recorriendo todas las hojas del libro, determina si la hoja que se recorre en el bucle es distinta a "Hoja1", en caso positivo oculta o muestra la hoja dependiendo si se selecciona "Yes" o "No".

Desde el link del final podrás descargar el ejemplo y adaptarlo a tus necesidades.

Código que se ingresa en Worksheet



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim she As Worksheet
If Cells(2, 1) = "Yes" Then
For Each she In Worksheets
b = she.Name
If Sheets(b).Name <> "Hoja1" Then Sheets(b).Visible = False
Next
Else
For Each she In Worksheets
b = she.Name
If Sheets(b).Name <> "Hoja1" Then Sheets(b).Visible = True
Next
End If
Application.ScreenUpdating = True
End Sub


Otros post de utilidad:
  1. Mandar un correo electrónico o mail
  2. Hyperlink o hipervinculo a Google Maps
  3. Insertar un hyperlink en Excel
  4.  Determina la última fila con datos o primer fila libre
  5. Combobox que lista archivos
  6. Llenar combobox con hojas de un libro
  7. Llenar combobox con datos del mismo libro
  8. Recuperar password de hoja bloqueada
  9. Función BUSCARV
  10. Función BUSCARH 
  11. Función SI
  12. Abre explorador de archivo de Windows e inserta foto
  13. Abre explorador de archivo de Windows
  14. Combobox suma datos repetidos
  15. Busca un dato en todas las hojas de excel
  16. Combobox incrustado en Excel
  17. Formulario para insertar datos en hoja de excel
  18. Formulario de alera y envío de mail
  19. Tutoriales sobre VBA
  20. Llenar combobox y buscar datos
  21. Mensaje de Alerta y envío de mail con Excel
  22. Combobox que lista hojas de excel y las selecciona
  23. Busca un dato en todas las hojas de excel



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.



If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends