Anónimo
Guardar datos en otro excel
Hola experto, tengo el siguiente código que me gustaría modificar:
Private Sub CommandButton1_Click()
uf = Sheets("BaseDeDatos").[g65536].End(xlUp).Row
uf = uf + 1
xuf = Trim(uf)
Range("G1") = Range("G1") + 1
Range("G1").Select
Selection.Copy
ActiveSheet.Paste Destination:=ActiveSheet.Next.Range("G" & xuf)
Range("A2").Select
Selection.Cut
ActiveSheet.Paste Destination:=ActiveSheet.Next.Range("A" & xuf)
'borra el contenido de las celdas selecciondas
Range("A2").Select
Selection.ClearContents
MsgBox ("Sus Datos fueron Guardados Correctamente")
Range("A2").Select
ActiveCell.EntireRow.Delete
End Sub
lo que hace es que me guarda los datos de una hoja a otra. Se podria modificar para que tambien los guarde en otro libro de excell?
Private Sub CommandButton1_Click()
uf = Sheets("BaseDeDatos").[g65536].End(xlUp).Row
uf = uf + 1
xuf = Trim(uf)
Range("G1") = Range("G1") + 1
Range("G1").Select
Selection.Copy
ActiveSheet.Paste Destination:=ActiveSheet.Next.Range("G" & xuf)
Range("A2").Select
Selection.Cut
ActiveSheet.Paste Destination:=ActiveSheet.Next.Range("A" & xuf)
'borra el contenido de las celdas selecciondas
Range("A2").Select
Selection.ClearContents
MsgBox ("Sus Datos fueron Guardados Correctamente")
Range("A2").Select
ActiveCell.EntireRow.Delete
End Sub
lo que hace es que me guarda los datos de una hoja a otra. Se podria modificar para que tambien los guarde en otro libro de excell?
{"Lat":-37.7185903255881,"Lng":-67.5}
1 Respuesta
Respuesta de prozac
1
Si no me equivoco los datos del rango simplemente los copias a otro sitio, pero no los guardas a no ser que le des a Guardar Archivo al salir.
Este código (asociado a un botón) te permite abrir el menú y seleccionar un archivo para guardar tus cosas. Lo puedes modificar para que abra el archivo concreto que tu quieras y luego seleccionas la hoja y copias tu rango.
Espero te sirva.
Saludos.
Sub Abrir_Fichero()
fichero = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Escoja un fichero")
If fichero = False Then
' Cancel
MsgBox "Nada seleccionado"
Else
MsgBox "Se abrirá: " & fichero
Workbooks.Open Filename:=fichero
End If
End Sub
Este código (asociado a un botón) te permite abrir el menú y seleccionar un archivo para guardar tus cosas. Lo puedes modificar para que abra el archivo concreto que tu quieras y luego seleccionas la hoja y copias tu rango.
Espero te sirva.
Saludos.
Sub Abrir_Fichero()
fichero = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Escoja un fichero")
If fichero = False Then
' Cancel
MsgBox "Nada seleccionado"
Else
MsgBox "Se abrirá: " & fichero
Workbooks.Open Filename:=fichero
End If
End Sub
oo gracias,,, tienes razón los rangos se copian,, ¿pero cómo se hace para que se copien a otro libro? Por que ahora se copian en otra hoja,,,
Tras ejecutar el código anterior estás en nuevo libro. Al abrir el fichero estás en la hoja por defecto del nuevo libro. Si quieres cambiarte a otra hoja puedes hacerlo.
Con esto te sitúas en la primera celda del libro abierto.
ThisWorkbook.ActiveSheet.Range("A1").Select
Y con esto cambias de hoja a una que se llama "Myhoja".
Sheets("Myhoja").Select
Si previamente a estas instrucciones has copiado con selection. Copy ahora puedes hacer el selection. Paste
Para volver al anterior que está en otra ventana puedes hacerlo de una de estas dos maneras:
Workbooks(1). Activate
ó
Windows("Book1"). Activate
Si en ambos casos es el uno y se llamaba "Book1"
Con esto te sitúas en la primera celda del libro abierto.
ThisWorkbook.ActiveSheet.Range("A1").Select
Y con esto cambias de hoja a una que se llama "Myhoja".
Sheets("Myhoja").Select
Si previamente a estas instrucciones has copiado con selection. Copy ahora puedes hacer el selection. Paste
Para volver al anterior que está en otra ventana puedes hacerlo de una de estas dos maneras:
Workbooks(1). Activate
ó
Windows("Book1"). Activate
Si en ambos casos es el uno y se llamaba "Book1"