Necesito una MACRO para excel! Parte2
Siguiendo con la macro inicial, me gustaría saber si se puede luego de ingresar los datos en hoja 1. Guardar la hoja 2 como un libro aparte en c:/ con el nombre hoja 2.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada
Sub CopiarEnResumen()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
If h1.[A1] = "" Then u = 1
h1.Cells(u, "A") = h2.[B9]
h1.Cells(u, "B") = h2.[B12]
h1.Cells(u, "C") = h2.[C14]
'
Application.DisplayAlerts = False
Application.ScreenUpdating = False
h2.Copy
ActiveWorkbook.SaveAs "C:\" & "hoja2.xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
'
h2.[B9] = ""
h2.[B12] = ""
h2.[C14] = ""
End Sub‘
