Código VBA que muestre filas, dependiendo del contenido calculado en una celda

Hola. Estoy intentando generar el código adecuado que me muestre algunas filas ocultas, dependiendo del contenido calculado en una celda y he generado el procedimiento que anexo a este, pero no logro que la acción se realice. ¿Alguien me puede indicar que estoy haciendo mal? Gracias anticipadas.

Private Sub Worksheet_Calculate()
Dim Wkb As Workbook, WksInfGen As Worksheet
Dim Sel As Integer
 Set Wkb = ThisWorkbook
 Set WksInfGen = Wkb.Worksheets("Inf Gen")
 Sel = Range("Y17").Value
 Application.ScreenUpdating = False
 Application.EnableEvents = False
 Select Case Sel
 Case 1
 Rows("18:24").EntireRow.Hidden = False
 Case 2
 Rows("18:20").EntireRow.Hidden = False
 Rows("25:28").EntireRow.Hidden = False
 Case 3
 Rows("18:20").EntireRow.Hidden = False
 Rows("29:32").EntireRow.Hidden = False
 Case 4
 Rows("33:36").EntireRow.Hidden = False
 Case 5
 Rows("37:40").EntireRow.Hidden = False
 Case 6
 Rows("41:44").EntireRow.Hidden = False
 End Select
End Sub

1 Respuesta

Respuesta
1

Después de esta línea

End Select

Tienes que poner esta línea, para que el evento se active nuevamente.

Application.EnableEvents = True

Si no se está ejecutando, crea una pequeña macro, para que los eventos estén activos, por ejemplo:

Sub ev()
Application.EnableEvents = True
End Sub

Ejecuta la pequeña macro y luego haz cambios en tu hoja para que veas los resultados.

Saludos. Dante Amor
Si es lo que necesitas.

Discúlpame, estoy aprendiendo VBA. No te capto cuando dices "si no se está ejecutando". Gracias por tu tiempo.

Vamos desde el principio; tu macro se ejecuta cuando modificas algún valor que afecta el resultado de tu fórmula que tienes en la celda Y17, ¿correcto?

La macro se ejecuta, gracias a que tienes este evento: Private Sub Worksheet_Calculate, correcto? Para esto tu macro debe estar en la hoja "Inf Gen".

Tu macro funciona bien, pero solamente una vez. Ya que tienes en tu macro está instrucción:

Application.EnableEvents = False

Esta instrucción se utiliza para "apagar" los eventos, quiere decir que este evento: Private Sub Worksheet_Calculate, ya no va a funcionar.

Para que los eventos funcionen otra vez, ejecuta primero esta macro, solamente tienes que ejecutarla una vez.

Sub ev()
Application.EnableEvents = True
End Sub

Ahora, para corregir tu macro, tienes que agregar esta línea, en donde te dije.

Application.EnableEvents = True

Esta sería tu macro completa:

Private Sub Worksheet_Calculate()
Dim Wkb As Workbook, WksInfGen As Worksheet
Dim Sel As Integer
 Set Wkb = ThisWorkbook
 Set WksInfGen = Wkb.Worksheets("Inf Gen")
 Sel = Range("Y17").Value
 Application.ScreenUpdating = False
 Application.EnableEvents = False
 Select Case Sel
    Case 1
        Rows("18:24").EntireRow.Hidden = False
    Case 2
        Rows("18:20").EntireRow.Hidden = False
        Rows("25:28").EntireRow.Hidden = False
    Case 3
        Rows("18:20").EntireRow.Hidden = False
        Rows("29:32").EntireRow.Hidden = False
    Case 4
        Rows("33:36").EntireRow.Hidden = False
    Case 5
        Rows("37:40").EntireRow.Hidden = False
    Case 6
        Rows("41:44").EntireRow.Hidden = False
 End Select
Application.EnableEvents = True
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

Actualizar celdas con función personalizadas

He creado una función en excel 2007 y necesito que refresque el resultado dado un cambio en otras celdas. La ocupo en muchas otras celdas, pero al cambiar el valor de una no se como indicarle a la función que recalcule. No le estoy pasando la celda...
1 respuesta

Activar una macro en excel con el enter

Estoy creando una macro en excel 2007... Primero grabe la macro donde solo ingreso el dato código y se autocompletan los demás campos con los datos de otra hoja por medio de la fórmula BuscarV ... Pero ahora necesito que al ingresar el código y dar...
1 respuesta

Ejecutar macro una sola vez

Tengo el siguiente macro para que cuando el resultado de una fórmula me de "-1" ejecute otro macro que me envía un mail automáticamente y a la vez, me indica en la columna siguiente a la fórmula que me ha enviado el mail. El problema es que cada vez...
1 respuesta

Ejecutar macro si cambia valor en lista!

Os escribo porque quisiera crear una macro que, cuando cambiara el valor en una lista por medio de validación de datos, me ejecutase otra macro. Lo que tengo es lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address =...
1 respuesta

Al ingresar datos en un rango de celdas ejecute un macro

Elijo 2 columnas por ejempoi la columna A y la column J necesito que cuando ingrese algún dato en cualquier celda de la columna ejecute una macro que yo e y que cuando elija cualquier celda de la columna j me ejecute otra macro que distinta.
1 respuesta

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

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta

Macro para copiar valores desde una celda determinada

Necesito su ayuda si no es ninguna molestia para resolver un problema en una macro. El asunto es que en dicha macro los valores me los empieza a copiar desde la celda M2 y yo necesito que los empiece a colocar desde M100 para abajo. Me puede echar un...
1 respuesta

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