|
|
Hola, lo que nesecito es poder ocultar un numero determinado de filas vacias, como por ejemplo 30, de la hoja llamada 1 a la hoja llamada 13.
El criterio para ocultar las 30 filas vacias seria de las ultimas, ya que son las que menos utilizo, y preferentemente de abajo hacia arriba.
Esto es para que si una de las 30 filas no esta vacia, no oculte 29, porque lo que nesecito en realidad es que oculte "LAS 30 ULTIMAS FILAS VACIAS"
Tengo mi archivo por el cual estoy consultando en: http://www.subir-archivos.com.ar/
con el nombre de: -AA PEDIDOS PUEBLOS pero no esta la macro en el archivo.
Yo cuento con esta:
Sub OcultarFilas()
Dim r As Range
Application.ScreenUpdating = False 'volverla a True al finalizar la macro
For Each r In Range("C3:C80")
If r.Value = "" And r.Offset(0, 1) = "" And r.Offset(0, 2) = "" And _
r.Offset(0, 3) = "" And r.Offset(0, 4) = "" And r.Offset(0, 5) = "" And _
r.Offset(0, 6) = "" And r.Offset(0, 8) = "" And r.Offset(0, 9) = "" And _
r.Offset(0, 10) = "" And r.Offset(0, 11) = "" Then
r.EntireRow.Hidden = True
Else
r.EntireRow.Hidden = False
End If
Next
End Sub
Pero esta macro con el rango que tiene oculta todas las vacias y yo lo que nesecito es que oculte las 30 ultimas vacias, si pongo el rango (c49:c80) y una de ellas no esta vacia, supongamos una , oculta 29 filas y no 30. ¿Me podrias ayudar?
Desde ya muchas gracias.
A la espera de una pronta respuesta, le saludo atte. Jacinto.
|