Altura de línea VBa
Resuelto
thomadu31
-
thomadu31 -
thomadu31 -
Hola a todos,
Necesito ayuda con una macro.
Tengo en un archivo de Excel un número de filas indefinido, algunas contienen datos y otras están vacías.
Me gustaría que la altura de todas las filas vacías sea de 4.5 y las filas con datos permanezcan en 15.
Espero haber sido claro.
Gracias de antemano.
Configuración: Windows XP / Chrome 47.0.2526.106
Necesito ayuda con una macro.
Tengo en un archivo de Excel un número de filas indefinido, algunas contienen datos y otras están vacías.
Me gustaría que la altura de todas las filas vacías sea de 4.5 y las filas con datos permanezcan en 15.
Espero haber sido claro.
Gracias de antemano.
Configuración: Windows XP / Chrome 47.0.2526.106
1 respuesta
-
hola
basándose en la columna A
Option Explicit
'---------------------------------------------------
Sub altaurligne_si_vide()
Dim Derlig As Long
Application.ScreenUpdating = False
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
If Application.CountIf(Range("A1:A" & Derlig), "") > 0 Then
Range("A1:A" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.RowHeight = 4.5
End If
End Sub
'---------------------------------------------------
Sub restaurar_altura()
Dim Derlig As Long
Application.ScreenUpdating = False
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
Range("A1:A" & Derlig).EntireRow.RowHeight = 15
End Sub
--
Michel