Macro para ocultar filas si celdas contienen "0" o celdas vacías
No conozco mucho acerca de macros, estuve investigando y con una macro me puede ayudar al proceso que requiero. Espero alguien me pueda ayudar. :D
Necesito una macro que oculte las filas de la fila 7 a la fila 515 si dentro de las columnas N y O contienen como valor 0 y/o están vacías. Me gustaría que se cumplieran las dos condiciones, es decir, que para que oculte dicha fila esta debe contener un 0 y/o vacía en la columna N y O. No debe esconderla si en alguna columna aparece algún dato diferente a "0" o este vacío.
1 Respuesta
[Hola
Te paso la macro, cambia el nombre de la hoja yo puse Hoja1
Valora la respuesta para finalizar saludos!
Sub ocultar_fila()
'
'***Por Adriel Ortiz
'
Set h1 = Sheets("Hoja1")
'
u = h1.Range("N" & Rows.Count).End(xlUp).Row
For i = u To 7 Step -1
'
h1.Rows(i).Hidden = False
If h1.Cells(i, "N") = "" And h1.Cells(i, "O") = "" Then
h1.Rows(i).Hidden = True
ElseIf h1.Cells(i, "N") = 0 And h1.Cells(i, "O") = "" Then
h1.Rows(i).Hidden = True
ElseIf h1.Cells(i, "N") = "" And h1.Cells(i, "O") = 0 Then
h1.Rows(i).Hidden = True
ElseIf h1.Cells(i, "N") = 0 And h1.Cells(i, "O") = 0 Then
h1.Rows(i).Hidden = True
End If
Next i
'
MsgBox "Fin"
End Sub
Muchas gracias si funciona muy bien, justo como lo necesitaba. :D!!!
Sólo que creo no me explique bien, la macro que amablemente me compartiste funciono en la columna "N", podrías hacer que funcionará también en la columna "O". Exactamente lo mismo pero que lo haga tanto en la columna N y la columna O.
Muchas muchas gracias. :D!!
Ya no entendí bien, la macro lo preparé para ambas columnas, entonces tendrías que explicar las condiciones para ocultar las filas con una imagen resaltado si es posible saludos!
¡Gracias!
Buenas tardes amigo.
Disculpa, yo me equivoqué, es que no eran las columnas "N" y "O", sino las columnas "M" y "N". Je je, pero ya modifique las columnas dentro de la macro y me quedo excelente.
Te agradezco infinitamente por tu ayuda y tu paciencia. :D
Saludos.
