Como oculto filas que contengan error y otras que están en cero, y tienen fórmula
Tengo una macro que me realiza unos procesos sencillos, anexo a eso necesito ocultar unas filas que aparecen con error, otras que aparecen en cero y otras que deben estar dentro de un rango
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia "F" por la columna donde tienes tus valores.
El rango lo puse entre el 3 y el 5, cambia esos datos a tu rango.
Sub OcultarFilas() 'Por.Dante Amor col = "F" For i = 2 To Range(col & Rows.Count).End(xlUp).Row 'Si tiene error If IsError(Cells(i, col)) Then Rows(i).EntireRow.Hidden = True 'si es igual a 0 ElseIf Cells(i, col) = 0 Then Rows(i).EntireRow.Hidden = True 'Si está entre el 3 y el 5 ElseIf Cells(i, col) >= 3 And Cells(i, col) <= 5 Then Rows(i).EntireRow.Hidden = True End If Next End Sub
Saludos.Dante Amor
Si es lo que necesitas.
¡Gracias!
Hey Dante sos un duro, je je, lo digo en serio, desde Colombia, te lo agradezco, uyy hermano quedo genial mil y mil gracias, quiero aprender todo lo que sabes ja ja en serio muchas gracias, vieras mi cara de alegría jajajaj
Que tal! Copie exactamente igual a lo que explicas y me funcionó, felicidades, eres un maestro!, solo lo adecue a lo que necesitaba. El detalle es que tengo otras columnas y la condición es que si en todas las columnas está el error o el 0 oculte el renglón, pero si en una de ellas hay un valor no lo oculte, alguna idea de como hacerlo? las columnas que necesito son F, J, N, R.Aclaro que nunca he programado nada, solo le pongo algo de sentido común pero no lo logre en esta ocasión. Gracias!! - Roberto Mandujano
Utiliza lo siguiente: ElseIf Cells(i, "F") = 0 and cells(i, "J") = 0 and cells(i, "N") = 0 and cells(i, "R") = 0 Then Rows(i).EntireRow.Hidden = True - Dante Amor