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
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas