Exportar informes en excel en diferentes archivos
Para Dante amor.
Hola Dante, siguiendo en lo que estábamos de los informes y habiéndome pasado la marco actualizada .
Para poner cada informe en carpetas diferentes, teniendo éstas el mismo nombre del informe, ¿es haciéndolo con mkdir?
Esta es la macro que me has pasado;
Sub Generar_Informes()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("TABLA DINAMICA")
Set h2 = Sheets("Plantilla")
Set h3 = Sheets("Informe")
h3.Cells.Clear
i = 5
usu = h1.Cells(i, "A")
ant = usu
h2.Cells.Copy h3.[A1]
h3.Range("A2") = h3.Range("A2") & " " & usu
Do While h1.Cells(i, "D") <> ""
If h1.Cells(i, "A") <> "" Then
usu = h1.Cells(i, "A")
End If
If ant <> usu Then
'guarda hoja
H3. Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Informe UL" & ant
ActiveWorkbook. Close
'nuevo informe
H3. Cells. Clear
h2.Cells.Copy h3.[A1]
h3.Range("A2") = h3.Range("A2") & " " & usu
End If
h3.Rows(8).Insert
h3.Cells(8, "A") = h1.Cells(i, "D")
If h1.Cells(i, "C") <> "" Then
fec = h1.Cells(i, "C")
End If
h3.Cells(8, "B") = fec
'
If h1.Cells(i, "A") <> "" Then
ant = h1.Cells(i, "A")
End If
i = i + 1
Loop
MsgBox "Proceso terminado"
End Sub
Cuandontesuelva esto, solo falta lo del calendario diario.