Macro_Copio dato a otro archivo
Hola tengo que hacer una macro donde copie datos de celdas y hojas determinadas a otro archivo, en hoja y celdas determinadas, y esa celda, a la que dirijo el dato que estoy copiando tiene que ir bajando para que forme una lista... ¿se entiende?. Ejemplo. Archivo: Trabajos, Hoja:Base de Datos, Celdas: A13:BP13 Las quiero copiar al archivo Archivo:Estadística, Hoja1, Celdas: A13:BP13 (Las mismas que en el archivo anterior).
Les muestro lo que tengo y en donde se me queda!!!
Sub Copiarabasededatos()
Range("A13:BP13").Select Selection.Copy
ChDir "\\......\Base"
Workbooks.Open Filename:= _ "\\...Base\Trabajos.xls"
ActiveSheet.Unprotect
Range("A13:BP13").Select
Selection.Insert Shift:=xlDown
Range("A13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End SubCuando lo corro en el punto
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
se queda y no termina de pegar los datos??? Que puede ser?
Desde ya muchas gracias!!!!
1 Respuesta
Intenta hacer todos los pasos manualmente y seguramente vas a notar que se te perdió el modo 'copia'. Esto es posible cuando realizamos varias acciones en otro libro u otra hoja,
Lo correcto es realizar estos pasos:
'guardar el nombre de tu libro activo xq lo necesitarás para regresar
libroPrin = activeworkbook.name
'ahora realizá todos los pasos de apertura del nuevo lib ro, desproteger, etc, etc y también guardá el nombre del libro
'regresás a tu libro principal:
Workbooks(libroPrin). Activate
'seleccionás el rango, lo copiás y pegas en el otro. Por ej:
activesheet.range(....).copy destination:=workbooks(libro2).sheets(1).range("A13")
NOta: hay varios modos de copiar, este ejemplo copia todo con formatos incluido.
Preparalo, probalo y si todo quedó resuelto no olvides finalizar la consulta.
PD) En la sección Macros de mi sitio podés leer más sobre instrucciones básicas para hacer ref a libros, hojas y celdas. También el manual de Macros es una buena opción ;)
Muchísimas gracias por responder tan rapido...encontré que sacando un inmovilizar panel, lo copio sin problema.(Estoy en el trabajo y no me permite ingresar al link de tu firma)
Lo que quiero hacer ahora es guardar este archivo "LIMPIO", quitando un par de filas al final donde tengo los botones para la macro y un par de columnas donde tengo un par de formulas, todo esto en la primera hoja en las otras dos hojas tal cual están. En total serian las 3 hojas.
Como puedo hacer?
Después tengo que ver como hago para que cuando guarde siga un formato que tiene una numeración continuar...por ejemplo 1-001-12, el próximo archivo debería ser 1-002-12..pero para después.
Desde ya muchas gracias.
Disculpa pero solo podemos responder 1 consulta x vez y x usuario... cuando finalices la 1ra dejá las nuevas (separadas) y con mucho gusto te vuelvo a responder.
También tené presente que no podemos 'imaginarnos' las hojas de cada usuario. Por ej que tenías inmovilizados los paneles.
Cuando realices la consulta en lugar de '...quitando un par de filas al final donde tengo los botones para la macro y un par de columnas...'dejá indicadas las referencias para que te podamos entregar las instrucciones precisas.
En principio 'Delete' es la instrucción para eliminar tanto filas como col: x ej:, esto te elimina el rango de filas 120 a la 150 incluida.
Rows("120:150").select
selection.delete
Sdos
Elsa
