Para dante Amor, Ampliar macro para la generación de boletas en excel
Hola experto, Deseo mejorar un pequeño detalle en la macro anterior.
"Ayuda en Macro para crear Boleta de Notas automáticamente "
Es cuando realiza la copia de la matriz (hoja frm) de la "Imagen1" hacia la hoja Boleta que se muestra en la Imagen2, me gustaría que las copias de las boletas realicen idénticas a la matriz (hoja frm), es decir redimensionadas las filas y columnas, y no como se muestra en la imagen2.
Gracias! Saludos!
1 respuesta
Respuesta de Dante Amor
2
Cambia la macro por esta
Sub boletas()
'Por.DAM
Application.ScreenUpdating = False
Set h1 = Sheets("C1")
Set h2 = Sheets("Boleta")
Set h3 = Sheets("frm")
h2.Cells.Clear
h2.DrawingObjects.Delete
j = 1
For i = 26 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "K") = "" Then Exit For
h3.Range("A1:AM40").Copy h2.Range("A" & j)
h3.Range("A1:AM40").Copy
n = 1
For k = j To j + 47
alto = h3.Rows(n).RowHeight
h2.Rows(k).RowHeight = alto
n = n + 1
Next
j = j + 48
Next
For k = 1 To Columns("AM").Column
ancho = h3.Columns(k).ColumnWidth
h2.Columns(k).ColumnWidth = ancho
Next
Application.ScreenUpdating = True
h2.Select
MsgBox "El proceso de generación de boletas ha terminado", vbInformation, "BOLETAS"
End SubAhora lo que tienes que hacer es, poner los anchos de columna y altos de fila que deseas en al hoja "frm" y cuando ejecutes la macro tomará las nuevas dimensiones para la hoja "Boleta"
