Copiar datos a una plantilla Excel en otra ruta distinta
Tengo un archivo con una serie de datos, me gustaría copiar la celda A12 del libro1 pegado especial solo valor a un libro distinto que se encuentra en la ruta C:\1\2\2018 que es una plantilla solamente para pegar el valor en la celda M4 y lo guarde la plantilla con un nombre " pegado M4"
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, ajusta los nombres de las hojas del libro que contiene la macro y de la plantilla. También cambia "libro8.xltx" por el nombre de tu plantilla
Sub Poner_Dato_Planilla()
'Por Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1")
'
ruta = "C:\1\2\2018\"
arch = "libro8.xltx" 'planilla de excel
If Dir(ruta & arch) = "" Then
MsgBox "No existe la planilla"
Else
Set l2 = Workbooks.Open(ruta & arch)
Set h2 = l2.Sheets("Hoja1")
h2.Range("M4").Value = h1.Range("a12").Value
l2.SaveAs ruta & "pegado M4.xlsx"
l2.Close False
MsgBox "Archivo guardado"
End If
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda .
