Por que no funciona ésta instrucción en Excel
Si alguien es capaz de indicarme por qué no funciona esta macro para ocultar filas le agradezco muchísimo
Private Sub WorkSheet_Calculate()
Dim r As Range
Application.EnableEvents = False
For Each r In Range("P13:P20, W22:W28")
If r.Value = 0 Then
r.EntireRow.Hidden = True
Else
r.EntireRow.Hidden = False
End If
Next r
Application.EnableEvents = True
End Sub
Private Sub WorkSheet_Calculate()
Dim r As Range
Application.EnableEvents = False
For Each r In Range("P13:P20, W22:W28")
If r.Value = 0 Then
r.EntireRow.Hidden = True
Else
r.EntireRow.Hidden = False
End If
Next r
Application.EnableEvents = True
End Sub
{"Lat":-36.8092847020594,"Lng":-58.18359375}
1 Respuesta
Respuesta de juanbauzam
1
Yo creo que tienes que cambiar la forma de cálculo de automática a manual en el menú Herramientas-Opciones pestaña Calcular y, posteriormente, ejecutar la macro con la tecla F9.
De otra manera, sin hacer el cambio del párrafo anterior, cambiar el nombre a la macro y ejecutarla en forma manual o, si creas un botón de ejecución, lo haces a través de éste.
Un saludo y que te vaya bien.
Nos vemos.
Juan
De otra manera, sin hacer el cambio del párrafo anterior, cambiar el nombre a la macro y ejecutarla en forma manual o, si creas un botón de ejecución, lo haces a través de éste.
Un saludo y que te vaya bien.
Nos vemos.
Juan
Hola Juan: Gracias por contestarme, pero tampoco me funciona de la forma que me dijiste. Quizás sea necesario aclararte que las hojas donde debería funcionar esa macro no es una sino 22. Por supuesto que la instrucción de VB está en cada una de esas hojas. Y otra aclaración es que los datos que figuran en las celdas mencionadas en la instrucción de la macro provienen de fórmulas desde otra hoja.
De cualquier forma te agradezco la atención y si quieres que te mande un adjunto de la hoja en cuestión escribime un mail a [email protected]
De cualquier forma te agradezco la atención y si quieres que te mande un adjunto de la hoja en cuestión escribime un mail a [email protected]
Te envié un e-mail
Juan
Juan
