Ayuda Ocultar filas con valores en cero
buenos días
tengo una tabla dinámica con muchos valores, necesito ocultar una serie de filas cuyo valor sea mayor o menor a 1, son 3 columnas que deben estar en este rango para ocultarla, aunado a esto, si las 3 columnas tienen los rangos para ser ocultas, solo se oculten si la columna G esta vacía ejemplo:
D E F G
5 0 10 NO SE OCULTA
0 0 0 A NO SE OCULTA
0 0 0 SI SE OCULTA
la siguiente macro la dio como respuesta un experto en otra pregunta, pero solo es para valores en cero, y aunque en mi hoja de excel me aparecen ceros la realidad es que son valores muy pequeños como: 0.000000012, por lo que no se puede aplicar esta macro.
Sub oculta()
Application.ScreenUpdating = False
Range("d8").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = 0 And ActiveCell.Offset(0, 1) = 0 And ActiveCell.Offset(0, 2) = 0 Then
ActiveCell.Select
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub
1 respuesta
Dam, buenos dias
efectivamente, que sea menor a 1 y mayor a -1, es decir tengo datos numéricos pequeños como 0.0003 o -0.00004, obvio que mi hoja de calculo al redondearlo a decimales los toma como ceros, pero la realidad es que no lo son, por lo que no oculta estas filas.
te agradezco la ayuda.
Cambia tu macro por esta:
Sub oculta()
Application.ScreenUpdating = False
Range("d8").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell < 1 And ActiveCell > -1 _
And ActiveCell.Offset(0, 1) < 1 And ActiveCell.Offset(0, 1) > -1 _
And ActiveCell.Offset(0, 2) < 1 And ActiveCell.Offset(0, 2) > -1 _
And ActiveCell.Offset(0, 3) = "" Then
ActiveCell.Select
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub Saludos.Dam
Si es lo que necesitas.
