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

[verzulsan]

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]

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]

[verzulsan]

Muchas gracias tuve, muy buena solución.

Está incluso mejor que lo que yo buscaba ya que los espacios que deja tu macro entre trabajo y trabajo quedan muy bien. :applouse:

Un saludo y gracias nuevamente.