Ocultar con macro filas de excel

Hola Dam buena tarde, espero me puedas ayudar nuevamente con el siguiente problema: Necesito crear una macro en un documento que contiene 2 hojas una llamada DATOS y otra llamada MOSTRAR, donde necesito se ejecuten las siguientes condiciones:

si en hoja datos c20="no"
en hoja mostrar se deberán ocultar filas 17, 29 y 30
pero si en hoja datos c20="si"

en hoja mostrar se deberán ocultar las filas 31 y 32

si en hoja datos c58="no"

en hoja mostrar se deberán ocultar las filas 28 a 38, 41 a 44, y 46 a 49.
si en hoja datos c50="no aplica"
en hoja mostrar de deberán ocultar las filas 33 a 38.

Gracias nuevamente de antemano.

1 Respuesta

Respuesta
1

¿También es para imprimir la hoja “MOSTRAR”?
Si es así pon la macro

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Por.DAM
If ActiveSheet.Name = "MOSTRAR" Then
    If UCase(Sheets("DATOS").Range("C20")) = "NO" Then
        Range("17:17,29:29,30:30").EntireRow.Hidden = True
    End If
    If UCase(Sheets("DATOS").Range("C20")) = "SI" Then
        Range("31:31,32:32").EntireRow.Hidden = True
    End If
    If UCase(Sheets("DATOS").Range("C58")) = "NO" Then
        Range("28:38,41:44,46:49").EntireRow.Hidden = True
    End If
    If UCase(Sheets("DATOS").Range("C50")) = "NO APLICA" Then
        Range("33:38").EntireRow.Hidden = True
    End If
End If
End Sub

Saludos.DAM
Si es lo que necesitas.

Hola Dam, muchas gracias. Fijate que este archivo lo necesito para enviarlo a otros usuarios via correo por lo que NO necesito imprimirlo. Me ayudas con esta modificación por favor?

Gracias nuevamente.

Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("C20,C58,C50")) Is Nothing Then
    Sheets("MOSTRAR").Cells.EntireRow.Hidden = False
    If UCase(Sheets("DATOS").Range("C20")) = "NO" Then
        Sheets("MOSTRAR").Range("17:17,29:29,30:30").EntireRow.Hidden = True
    End If
    If UCase(Sheets("DATOS").Range("C20")) = "SI" Then
        Sheets("MOSTRAR").Range("31:31,32:32").EntireRow.Hidden = True
    End If
    If UCase(Sheets("DATOS").Range("C58")) = "NO" Then
        Sheets("MOSTRAR").Range("28:38,41:44,46:49").EntireRow.Hidden = True
    End If
    If UCase(Sheets("DATOS").Range("C50")) = "NO APLICA" Then
        Sheets("MOSTRAR").Range("33:38").EntireRow.Hidden = True
    End If
End If
End Sub

Funciona así, cada vez que modifiques, en la hoja DATOS, una de las celdas "C20,C58,C50", en la hoja MOSTRAR, se ocultarán las filas correspondientes.

Saludos. DAM
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ocultar y mostrar filas por medio de una macro

Resulta que tengo 2 hojas de excel con los nombres "datos" y "detalle". Lo que quiero es que en la celda A5 de la hoja datos al poner valores del 1 al 4 oculte o muestre ciertas filas de la hoja detalle. Quiero que la macro se ejecute si cumple los...
1 respuesta

Como habilitar o deshabilitar un botón con macros.

Espero puedan ayudarme, no se mucho de macros, estoy elaborando en una misma plantilla de excel, ya sea una factura o un recibo, Tengo un botón que al presionarlo me muestra el texto del tipo de documento a generar "factura o Recibo" y me oculta...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Macro mostrar y ocultar filas

Tengo en la celda C1 una lista de validación con los valores Sí/No. Quiero que cuando seleccione No se oculten las filas 2:7 Por el contrario, cuando seleccione Sí aparezcan las filas 2:7 Estoy intentando crear un formulario en Excel con determinadas...
1 respuesta

Ocultar filas con celdas vacías

No he programado en mi vida una Macro, así que os cuento lo que necesito y lo que he utilizado "de oídas" buscando por internet. Tengo un Libro con distintas Hojas vinculadas y en una de ellas quiero ocultar las filas (desde la 52 hasta la 71) en las...
2 respuestas

Mostrar y ocultar filas usando casillas de verificación y Visual Basic

Me gustaría mostrar y ocultar las filas C1:C5 seleccionando y desmarcando respectivamente la casilla de verificación 1. También mostrar y ocultar las filas C6:C9 seleccionando y desmarcando respectivamente la casilla de verificación 2. Después...
1 respuesta

Macro para Ocultar Filas en Blanco

Tengo una hoja y en las filas J16:J61 trae datos de otra, en algunas ocasiones no se diligencian todos los campos, las fórmulas que tiene esa hoja hacen que si no hay datos para mostrar, se muestre vacía, pero quiero ocultar las filas que estén en...
1 respuesta

Como hacer una macropara ocultar y mostrar filas con un cuadro de verificación de activex

Quisiera solicitar su ayuda en la construcción de una macro, la idea es poner un botón de verificación, el cual cuando este activado se muestren las cuatro filas siguientes y cuando este desactivado se oculten, no se sime explico, por ejemplo pongo...
1 respuesta

Macro para hoja protegida

Hace poco me hiciste una macro estupenda que eliminaba filas con celdas vacías en una columna, si se habilitaba una casilla determinada (concretamente si la celda k38="X"). La macro recalculaba para que si la K38 volviera a estar vacía se mostrasen...
2 respuestas

Mostrar u ocultar filas o columnas en Excel según el valor de una casilla

Me gustaría saber como puedo ocultar o mostrar columnas o filas según si el valor de la casilla A4 de la pestanya INFORMACIÓN es si o no y lo mismo si la casilla es un número.
1 respuesta