Saltar al contenido

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

publicado

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.xlsFetching info...

Featured Replies

publicado

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]

publicado
  • Autor

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.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.