Generar lista de datos con word y excel
Dante buenas tardes.
Tengo este formato en word
y en excel
y necesito este resultado. Cada alumno de la lista de excel de ir en su formato.
Intenté con correspondencia pero lo hace en hoja separada. Cuento contigo con tu ayuda experto ilustre
1 respuesta
Tienes que hacer la correspondencia con etiquetas
Revisa vídeos de correspondencia de word-excel pero de etiquetas.
Sal u dos
Hola Dante gracias por la respuesta lo estoy haciendo todo en excel
Sub generar()
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set h3 = Sheets("Hoja3")
'
h3.Cells.Clear
u = h1.Range("A" & Rows.Count).End(xlUp).Row
'
j = 1
f = 3
h2.Range("A1:I4").Copy h3.Range("A" & j)
'
For i = 3 To u
h3.Cells(f + 1, "A") = h1.Cells(i, "A")
h3.Cells(f + 1, "B") = h1.Cells(i, "B")
'
h2.Range("A1:I4").Copy h3.Cells(f + 4, "A")
f = f + 6
Next i
End Sub
ayúdame a dar un retoque a la macro
Hoja1 es mi lista, hoja2 el formato y hoja3 el resultado
me sale al final una tabla vacía
Dante precisamente tengo problemas con el salto de página que tengo que hacerlo manualmente 5 tablas en cada hoja como lo hago ?
No es tan simple.
Tienes que quitar todos los cortes de hoja con:
ActiveSheet. ResetAllPageBreaks
El corte de hoja que tienes vertical lo quitas con esto:
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Luego contar las filas e ir poniendo cada corte de hoja con esto:
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, "A")
sal u dos
