Macro "inversa": importar en lugar de exportar

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Macro "inversa": importar en lugar de exportar

Notapor danippp » 11 Ene 2018 18:52

Buenas noches, Agradeceria si me podeis ayudar. Uso un codigo para copiar del libro 1 (personal 2018) a 4 libros vinculados. Lo que necesito es justo lo contario, es decir, "importar" desde los otros libros los datos, y no sólo desde la ultima linea añadida, sino que sobre escriba todo el rango de nuevo. He probado cruzando el origen y destino al reves, pero me da error.
El codigo que uso es este:


Sub PropagarCAMBIOS()

Application.ScreenUpdating = False

'Definir objetos a utilizar
Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range

'Indicar el libro de Excel destino
Set wbDestino = Workbooks.Open("O:\Tabla 2018\CAMBIOS 2018.xlsm")

'Activar este libro
ThisWorkbook.Activate

'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("PERSONAL")
Set wsDestino = wbDestino.Worksheets("PERSONAL")

'Indicar la celda de origen y destino
Const celdaOrigen = "A3"
Const celdaDestino = "A3"

'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False

'Guardar y cerrar el libro de Excel destino
wbDestino.Save
wbDestino.Close savechanges:=True

End Sub
danippp
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 28
Registrado: 06 Oct 2017 12:58

Re: Macro "inversa": importar en lugar de exportar

Notapor Cacho R » 13 Ene 2018 11:49

.
Hola! Dani. La mejor forma de plantear tu consulta sería:

- Prepara tres archivos de esos en los que tienes la info distribuída (si esos archivos tienen más info no relacionada: ¡quítala! pues no hacen a tu pregunta/necesidad). De aquí interesará ver el nombre de las hojas y la posición de tu info.

- Prepara el archivo receptor, esto es: copia y pega de aquellos tres archivos la info deseada en este libro (aquí interesará ver "qué" copias y "a donde" lo copias).

- Prepara un ".zip" con los 4 archivos referidos.

- Y finalmente sube al Foro el ".zip" para que podamos darle una mirada a lo que tienes y a lo que deseas conseguir.

Feliz 2018.
Saludos, Cacho R.
Avatar de Usuario
Cacho R
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10227
Registrado: 23 Jun 2011 17:15
Ubicación: Buenos Aires


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Antoni y 5 invitados