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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buscar datos que se repiten en 2 archivos

Hace poco me diste una rpta Tu rpta en ese momento fue así y la puse en practica y quedo ok. ---- Pero, que pasaría si fuese así Buscar datos que se repiten en 2 archivos y que los pinte, eso sucede cuando 2 o más personas llenan un libro, y alguno...
1 respuesta

Filtrar una tabla con datos de otra tabla

Tengo dos tablas La tabla A contiene 1200 facturas La tabla B contiene 150 facturas Me gustaría saber como puedo hacer para filtrar la tabla A con las facturas distintas a las de la tabla B. Y viceversa, filtrar la tabla A con las facturas iguales a...
1 respuesta

Funcion si() no me da resultados, apoyenme

He tomado un ejercicio propuesto de internet, y me trabe en lo siguiente q funcion va en L5 y en M5 He armado mal la función, y estoy errando en cada intento
1 respuesta

¿Cómo conectar y vincular usuarios de la red local a una BD (Excel 2016) para consultar y actualizar datos? (DAM)

Cordiales Dante Amor. Nuevamente para solicitar amablemente de tu amplia experiencia par resolver lo siguiente: La BD que tengo la necesito compartir con varios usuarios de una red local para poder trabajar de forma colaborativa, por lo tanto, el...
1 respuesta

Como aplicar filtro en hoja protegida

Expertos Tengo una base de datos en excel en hoja protegida y contraseña esta hoja tiene permiso para aplicar filtro en las columnas, pero al cerrar el archivo y volver abrir, los filtros quedan bloqueados Es decir, los filtros funcionan en hoja...
1 respuesta

Como agregar datos a una tabla desde un form de access usando script vba que no me funciona?

Adjunto este código que no me funciona porque me dice que hay un error en la sentencia INSERT INTO ... Agradecería desde ya si me pudieran ayudar a resolverlo Private Sub Comando16_Click() Dim SENTSQL As String On Error GoTo ManipularError If...
2 respuestas

Crear Formulario Tipo Lista Access

Tengo 80 Maquinas operado cada una con un numero de orden distinto Necesito crear un formulario que al abrir me ponga Automáticamente los números de la Maquinas del 1 al 80,,, y la fecha Actual Y si se pudiera traer los números de Orden de cada...
2 respuestas

Como solucionar error en vba

Espero puedan ayudarme tengo este código 'Abrir el formulario para modificar Private Sub CommandButton3_Click() If Me.ListBox1.ListIndex < 0 Then MsgBox "No se ha elegido ningún registro", vbExclamation, "EXCELeINFO" Else MsgBox "abriendo",...
2 respuestas

¿Cómo hacer una fórmula que me indique el 10% de los valores superiores de un rango?

Sé que existe un formato condicional que puede hacer esto mismo, de hecho ya lo utilicé, pero no me sirve colorear los números, porque necesito esos números en una lista para luego hacer otra fórmula en base a los resultados obtenidos por dicha fórmula.
1 respuesta

Si mi archivo .csv abre bien en excel desde mis archivos, ¿Por que al importarlo desde otro archivo de excel lo copia unido?

Mi archivo .csv abre bien, si solo lo abro desde mis archivos, como se ve en la imagen, se mira perfecto. Pero si yo abro un archivo nuevo en excel, y le pongo un botón con código vba para exportar mi archivo .csv de la imagen anterior, lo pega asi:...
1 respuesta