Macro para guardar copi en otoro libro
Buenos días
Me colaboras con
Esta misma macro pero que me guarde en otro libro y no en al hoja del mismo libro
Sub copia_rango()
'buscamos la primer fila libre de la hoja 2
fila = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
'copiamos el rango seleccionado en hoja1 a la hoja 2, a partir de la col 1 (A)
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila, 1)
End Sub
Me colaboras con
Esta misma macro pero que me guarde en otro libro y no en al hoja del mismo libro
Sub copia_rango()
'buscamos la primer fila libre de la hoja 2
fila = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
'copiamos el rango seleccionado en hoja1 a la hoja 2, a partir de la col 1 (A)
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila, 1)
End Sub
1 respuesta
Respuesta de afbrand
1
Para copiar en otro libro debes especificar la ruta de esta forma:
Selection.Copy Destination:=Workbooks("Libro").Sheets("Hoja2").Cells(fila, 1)
Selection.Copy Destination:=Workbooks("Libro").Sheets("Hoja2").Cells(fila, 1)
Buenos días
Me colaboras con
Esta misma macro pero que me guarde en otro libro y no en al hoja del mismo libro
Sub copia_rango()
'buscamos la primer fila libre de la hoja 2
fila = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
'copiamos el rango seleccionado en hoja1 a la hoja 2, a partir de la col 1 (A)
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila, 1)
End Sub-
Me colaboras con
Esta misma macro pero que me guarde en otro libro y no en al hoja del mismo libro
Sub copia_rango()
'buscamos la primer fila libre de la hoja 2
fila = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
'copiamos el rango seleccionado en hoja1 a la hoja 2, a partir de la col 1 (A)
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila, 1)
End Sub-
Muchas garcías funciona de maravilla pero tengo otra duda esta función sirve cuando al libro que voy al guardar esta abierto pero en caso de que no lo tenga abierto existe alguna manera para guardarlo así
Debe estar abierto. Si no está abierto lo puedes abir de esta forma
Workbooks.Open Filename:="C:\Mis documentos\Libro.xls"
Workbooks.Open Filename:="C:\Mis documentos\Libro.xls"
