Macro para ocultar fila en Excel.

Vince7338 Mensajes publicados 1 Estado Miembro -  
 Jacquou -
Bonjour à tous,

tengo un problema con una macro en vba en Excel (¡preciso que no sé mucho!!! solo sé usar macros pero no crearlas!!!)
Aquí está, tengo una tabla del tipo:
''''''''''''''''''''''A''''''''''''''''''''''''''''''''''''''B'''''''''''''''''''''''''''''C''''''''''''''''''''''''''''''''''''''D
1
2
3
4
5'''''''''Equipos'''''''''''''Áreas'''''''''''''''Impacto '''''''''''''''''''Acción a realizar
6''''''''Compactadora''''''''''''''''''''Aire''''''''''''''''''''Polvo''''''''''Hacer análisis por laboratorio
7'''''''''''''''Torre
8'''''Puesto de soldadura
9'''''''''''''''Horno''''''''''''''''''''''''''''''''Aire'''''''''''''''''''''''Humo''''''''''''''Hacer análisis por laboratorio

Me gustaría tener un botón (macro) para obtener la siguiente forma de tabla para facilitar las impresiones porque mi tabla es muy grande:

''''''''''''''''''''''A''''''''''''''''''''''''''''''''''''''B'''''''''''''''''''''''''''''C''''''''''''''''''''''''''''''''''''''D
1
2
3
4
5'''''''''Equipos'''''''''''''Áreas'''''''''''''''Impacto '''''''''''''''''''Acción a realizar
6''''''''Compactadora''''''''''''''''''''Aire''''''''''''''''''''Polvo''''''''''Hacer análisis por laboratorio
9'''''''''''''''Horno''''''''''''''''''''''''''''''''Aire'''''''''''''''''''''''Humo''''''''''''''Hacer análisis por laboratorio

Entonces, la condición es: si no hay impacto (casilla vacía en la columna C), la fila entera debe ser ocultada. Luego, necesitaría un segundo botón para hacer reaparecer las filas ocultas. Quisiera que las 4 primeras filas se mantuvieran porque hay el logo de mi empresa + fecha de actualización del documento, etc...

Gracias de antemano

Vince
Configuración: Windows XP Firefox 2.0.0.5

4 respuestas

  1. TORTUE85 Mensajes publicados 12 Estado Miembro 17
     
    Allez, voyons si je peux te donner une solution
    ------
    POUR CACHER
    ----------

    Sub hide()
    Range("B1:B7").Select 'B1:B7 correspond à ta plage de cellules que tu souhaites vérifier
    For Each o In Selection
    If o.Value = "" Then
    o.EntireRow.Hidden = True
    End If
    Next

    End Sub
    -----------------------------------------------------

    POUR REVOIR TES CELLULES
    -----------
    Sub unhide()

    Range("B1:B7").Select
    Selection.EntireRow.Hidden = False
    End Sub

    ------------------------------------------------

    Et après tu vas dans Excel... Outils/Macro/Lire une macro...
    Magie magie, tu découvres deux macros (Hide et Unhide)

    Après tu peux ajouter des boutons sur ta feuille Excel et quand tu cliques dessus, cela lance les macros.

    AFFICHAGE / BARRE D'OUTILS / FORMULAIRE

    Tu sélectionnes le bouton
    Tu le mets sur ta feuille et tu sélectionnes la bonne macro à attribuer..

    TCHAO.... AU plaisir
    19
    1. 3ziwez Mensajes publicados 7 Estado Miembro
       
      Hola, foro, hola, hilo,
      Tu código tortues85 funciona de maravilla, el único problema es que las líneas no están completamente vacías, tengo fórmulas dentro, así que Excel no las considera como vacías.
      ¿Cómo puedo sortear este problema???!!!

      Gracias
      Azel
      0
    2. m
       
      Bonjour,

      Gracias por este código. Me ha sido útil. Pero tengo un problema: cuando coloco 3 veces seguidas este código con rangos diferentes pero siempre en la misma hoja, me indica: error de compilación, nombre ambiguo detectado: hide.

      ¿Podrían ayudarme?

      Gracias de antemano.
      0
    3. Jacquou
       
      ¡Gracias, genial y ideas simples!
      0