UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

fdbchp


Buenos días,

Tengo dos libros excel 

1.- Copia de localizar_duplicados_hoja1_en_hoja2_a_4 

2.- Archivo_A

ambos comparten 4 hojas con el mismo nombre

MAYO_15
Devolucion_MAYO_15
Anulacion cobros_MAYO_15
Anulacion_devolución_MAYO_15

Querría conseguir que la primera columna de estas hojas del libro MAYO_2015 se copiaran en la primera columna de las respectivas hojas del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4.

Adjunto una macro para copiar varias columnas de un libro de excel a otro, pero no sé adaptarla para que sólo me copie la primera columna.

Además, en la última hoja del libro  Copia de localizar_duplicados_hoja1_en_hoja2_a_4  hay una hoja denominada "duplicados" pero al ejecutar esa macro me va sumando los valores, en vez de borrar y actualizar de nuevo cada vez que se aprieta el botón.

En resumen:
-Necesitaria adaptar la macro asociada a la hoja "duplicados" del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4  para que no repitiese datos sino que actualizar nuevamente lo que hay.

Y necesitaria ajustar la macro que detallo a continuación para que me copie solo la primera columna de cada una de las 4 hojas citadas del libro ARCHIVO_A y las pegue en las respectivas hojas del libro Copia de localizar_duplicados_hoja1_en_hoja2_a_4 
End Sub Ahi va la macro:

Sub CopiarCeldas()

'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(ActiveWorkbook.Path & "\Copia de localizar_duplicados_hoja1_en_hoja2_a_4.xlsx")

'Activar este libro
ThisWorkbook.Activate

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

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

'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

End Sub
Archivos
ARCHIVO_A.zip
No tienes los permisos para descargar los archivos.
(123 KB)

Igtelo


Buenas noches o días fdbchp.

1.- Abre el libro ARCHIVO_A

2.- Pulsa las teclas CTRL+n (te pasa los datos al otro libro, el de Copia duplicados y te lo deja en pantalla).

3.-En éste Click en duplicados y listo.

Ambos libros deben tener misma cantidad de hojas y en el orden que están.

Saludos
Ignacio Téllez
Archivos
fdbchp-duplicados.zip
No tienes los permisos para descargar los archivos.
(116 KB)

fdbchp


Hasta el miércoles no podré probarlo. Enseguida que lo haga te lo informaré.

Una vez más gracias.

Borja

4RESUELTO Funcionamiento macro el 21/05/15, 07:13 pm

fdbchp


Adjunto un archivo donde una macro comprueba la primera columna de la hoja Mayo_2015 y comprueba si algun dato  se repite en las primeras columnas de las hojas restantes. Al final, si encuentra datos repetidos los vuelca en la hoja duplicados.

Añadí un valor duplicado en rojo en la primera columnas de las hojas Devolucion_MAYO_15 y Anulacion cobros_MAYO_15 que se encuentra en la hoja MAYO_2015 de la hoja ARCHIVO_A, pero al ejecutar la macro del otro libro no lo lee, y no sé si puede ser por el formato.

¿Alguien puede orientarme?

Gracias por adelantado.
Archivos
Copia duplicados.zip
No tienes los permisos para descargar los archivos.
(147 KB)

Igtelo


Buenas tardes fdbchp.

No te funcionó porque borraste la macro del libro ARCHIVO, ambos libros tienen macros.

Aquí va nuevamente y sigue las instrucciones que te di.


Saludos
Ignacio Téllez
Archivos
fdbchp-duplicados.zip
No tienes los permisos para descargar los archivos.
(161 KB)

fdbchp


Gracias por tu aporte. Efectivamente ahora la macro me da la información.


Al ejecutar la macro actual me pone la información en la fila 98 de la tercera hoja del libro Archivo_A

 
 Pero lo que querría, si es posible, es que me vuelque la información en el libro "copia duplicados" indicando en la hoja "duplicados" en qué hoja se encuentra la duplicidad para detectarla. ¿Esto sería posible?



 

Gracias, una vez más por los aportes.
Archivos
fdbchp-duplicados (1).zip
No tienes los permisos para descargar los archivos.
(161 KB)

Igtelo


Borja.

No se que estés haciendo.
La información te la deja en el libro "Copia Duplicados", te indica en que hoja está la duplicidad y la pone desde el inicio de hoja.

Solo tienes que pulsar simultaneamente un par de teclas y después un simple click y listo.

En verdad ni idea tengo el por qué no puedas hacer algo tan sencillo,más, ya no puedo hacer.

Saludos
Ignacio Téllez

fdbchp


Primero, gracias por tu apoyo.

Subo un archivo igual que el que tenia pero lo ubiqué en otra dirección.

Ejecutando la macro del lbro archivo_a me sale este mensaje "Sheets(1).[A1].PasteSpecial xlValues" y no me deja finalizar.

Disculpa si tardo en entenderlo.

Puedes volver a ayudarme.

Gracias
Archivos
codigo.zip
No tienes los permisos para descargar los archivos.
(200 KB)

Igtelo


Aquí te va otra vez.


Ya te puse otro botón, olvídate de pulsar teclas.

1.- Abre el libro que se llama Archivo.
2.- Click en el botón que te puse, te aparece el otro libro y ahí:
3.- Click en el otro botón y listo.


Solamente tienes que dar 2 Clicks, no tienes que cambiarte de hojas ni nada: "Solamente 2 Clicks".


Te marqué en amarillo unos datos (están en el libro ARCHIVO) para que veas que si te los pasa.
No trates de modificar los códigos, primero entiende como trabajan.

Saludos
Ignacio Téllez
Archivos
codigo.zip
No tienes los permisos para descargar los archivos.
(200 KB)

10RESUELTO mensaje error macro el 23/05/15, 05:36 am

fdbchp


Buenos días,

Descargué tu aporte en mi ordenador. Le dí al botón del libro Archivo_A y me sale un mensaje de visual basic diciendo esto:

"Sheets(1).[A1].PasteSpecial xlValues"

y después no me deja continuar.

Seguí las instrucciones al pie de la letra pero  no me deja avanzar.

Una vez más, gracias

Borja

11RESUELTO YA FUNCIONA!!!! el 23/05/15, 08:44 am

fdbchp


Ya me funciona, perfecto!!!

Gracias ignacio, de verdad

Igtelo


Enhorabuena!!

Ahora tílda el tema como resuelto, por favor lee Recomendaciones para hacer preguntas y las Normas del foro.

Saludos
Ignacio Téllez

fdbchp


genial los aportes.

Gracias!!!!

Borja

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.