error al copiar archivos
Publicado por JUANMA (2 intervenciones) el 25/11/2016 12:38:06
Hola ... necesito ayuda con una macro .. quiero copiar de un libro que selecciono con getopenfilename una celda al libro que tengo abierto ... pero me dice calificador no valido ¿?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Copiar_en_otro_libro()
Dim Libro_Inicial As Workbook
Dim RutaArchivo As String
Set Libro_Inicial = ThisWorkbookOn Error Resume Next
RutaArchivo = Application.GetOpenFilename(Title:="Seleccion de Diario anterior")
Workbooks.Open Filename:=RutaArchivo
Libro_Inicial.Sheets("AJUSTE BODEGA").Range("h11") = RutaArchivo.Sheets("caja").Range("d18")
ActiveWorkbook.Close savechanges:=False
End Sub
Valora esta pregunta
0