Espaciado extra (anterior y posterior) entre linea y linea (sin ayuda de lineas auxiliares)

verzulsan · el 21 de julio

Hola, la pregunta va al final.

Estoy diseñando un modelo de factura que he adjuntado al post, en donde quiero insertar un espaciado extra antes y después de cada línea de detalle.

Las líneas de detalle pueden estar formadas por una o varias filas. En caso de haber más de una fila por línea de detalle, en las primeras cuatro columnas (ALBARÁN, FECHA, MEDICO, PACIENTE), las celdas de cada línea de detalle van combinadas para que pueda usarse la alineación vertical.

En la “Hoja1”, he conseguido el espaciado insertando antes y después de cada línea de detalle una fila de 6px de altura.

En la “Hoja2”, está la factura original sin dichas líneas auxiliares de espaciado.

¿Existe alguna manera de obtener el mismo efecto de la “Hoja1” en la “Hoja2”, pero sin usar líneas auxiliares?

Gracias.

PD: Los datos de la factura no son los reales con motivo de mantener la privacidad de mi cliente.

Pruebas Factura.xls

tuve · el 21 de julio

Hola verzulsan,

Prueba así:

Sub AltoFila()

    Dim UltFila As Long

    Dim paciente As Range

    Dim AumentoFila As Double


    UltFila = Cells(Rows.Count, "D").End(xlUp).Row

    AumentoFila = 2 * 4.5


    Application.ScreenUpdating = False


    For Each paciente In Range("D14:D" & UltFila)

        With paciente

            .EntireRow.AutoFit

            .RowHeight = Round(.EntireRow.RowHeight + AumentoFila, 0)

        End With

    Next paciente


    Application.ScreenUpdating = True

End Sub[/CODE]