Copiar celdas entre dos libros si los valores son distintos

[luisJC]

Buenas días,

tengo un Libro de excel "nuevos_datos" cuyos datos actualizan otras personas y me lo pasan a mi. Lo que tengo que hacer es pegar en mi libro "referencia" aquellos datos que son distintos del libro "nuevos_datos" y todas las celdas que se actualizan en "referencia" cambiar el color de la celda a Amarillo.

Necesitaría una macro que hiciera las siguientes órdenes (o algo similar):

Si Referencia.(A1) =nuevos_datos.(A1) 'comparar celda a celda los dos libros

entonces Referencia.(A1); 'el valor de la celda se mantiene

sino Copiar nuevos_datos.(A1) 'copiar el valor de la celda

Pegar en referencia.(A1)

Formato= amarillo 'tras pegar el valor tiene que cambiar el formato a amarillo para cotejar los cambios

Hacer estas órdenes en todo el rango de la hoja con valores

Me gustaría que no solo cambiara números sino también texto.

La idea es esa, pero no se si existe otras funciones más rápidas que la de comparar celda a celda.

Lo que no quiero es que reemplace toda la pestaña ya que hay celdas de la pestaña de referencia que quiero mantener siempre.

Perdonar por no poner el código correctamente pero mis conocimientos de Visual Basic son bastante escasos y para no cometer grandes errores prefiero ponerlo de forma más visual.

Agradezco de antemano vuestra ayuda.

Adjunto los archivos referencia.xls, nuevos_datos.xls y la solución de lo que buscaría que hiciese la macro "solucion.xls".

referencia.xls

nuevos_datos.xls

solucion.xls

[tese1969]

Buenas, luisJC

Sería importante saber cuáles son las celdas de la pestaña de referencia que no necesitas comparar y quieres mantenerlas siempre. Con una comparación celda a celda te desaparecerían, salvo que en nuevos_datos tuvieras exactamente lo mismo en dichas celdas.

Y no te preocupes por el código. Obviamente no se ajusta a la realidad técnica, pero la lógica que hay detrás sí se puede utilizar. De hecho, teniendo la lógica clara, escribir el código depende del conocimiento específico para hacerlo, pero sin esa lógica da igual los conocimientos que tengas porque no podrás estructurar el código para realizar lo que necesitas. Este ejemplo es muy sencillito, pero válido para tareas mucho más complejas.

Un saludo,

Tese

[luisJC]

tese1969 muchas gracias por responder,

Son muchas las celdas que debo mantener, por eso sería mejor aplicar la macro para una matriz que pueda definir, ya que dentro de ella no habrá ninguna celda a mantener.

Un saludo,

Luis

[tese1969]

Pues piensa en qué matriz sería y defínela.

Un saludo,

Tese

[luisJC]

Por ejemplo en el rango de datos del ejemplo -[C2:I3]:

Para Range.[C2:I3]

Si Referencia.(A1) =nuevos_datos.(A1) 'comparar celda a celda los dos libros

entonces Referencia.(A1); 'el valor de la celda se mantiene

sino Copiar nuevos_datos.(A1) 'copiar el valor de la celda del libro "nuevos_datos"

Pegar en referencia.(A1)

Formato = amarillo 'tras pegar el valor tiene que cambiar el formato a amarillo

Un saludo y muchas gracias,

Luis

[Antoni]

Prueba esta macro desde la hoja Referencia:

Sub IncorporarNuevosDatos()

Workbooks.Open ThisWorkbook.Path & "\nuevos_datos.xls"

For Each celda In ActiveSheet.UsedRange

  If celda.Value <> ThisWorkbook.Sheets("Referencia").Range(celda.Address) Then

     ThisWorkbook.Sheets("Referencia").Range(celda.Address).Interior.Color = vbYellow

     ThisWorkbook.Sheets("Referencia").Range(celda.Address).value = Celda.Value

  End If

Next

ActiveWorkbook.Close

End Sub

[/CODE]

[luisJC]

Gracias Antonio,

No me funciona porque al trabajar en red no me encuentra la ruta. Necesitaría la misma macro pero aplicada a los dos libros abiertos.

¿Es eso posible?

Gracias

Un saludo

Luis

[Antoni]

Supongo que si, déjame que me lo piense.

[Antoni]

_

Prueba así:

Sub IncorporarNuevosDatos()

Workbooks("nuevos_datos.xls").Activate '<===

For Each celda In ActiveSheet.UsedRange

  If celda.Value <> ThisWorkbook.Sheets("Referencia").Range(celda.Address) Then

    ThisWorkbook.Sheets("Referencia").Range(celda.Address).Interior.Color = vbYellow

    ThisWorkbook.Sheets("Referencia").Range(celda.Address).value = Celda.Value

  End If

Next

End Sub[/CODE]

Si los libros no están abiertos en la misma instancia de Excel, no funcionará.

_

[tese1969]

Querido maestro, con tu código se carga las celdas que quiere mantener.........es que no lees los post anteriores!!!

Cuídate,

Tese

[Antoni]

Querido maestro, con tu código se carga las celdas que quiere mantener.........es que no lees los post anteriores!!!

Pues no me queda del todo claro, pero por si acaso, solo hay que eliminar esta línea:

ThisWorkbook.Sheets("Referencia").Range(celda.Address).value = Celda.Value[/CODE]

Yo también te quiero :oops:

[tese1969]

Pero si elimina esa línea, entonces la macro no hace nada de lo que debería hacer...

Sabes que el cariño es mutuo

[luisJC]

Perdonar, pero hasta ahora no he podido probar la macro.

La segunda orden da el error '9' Subindice fuera del intervalo y la ejecuto desde el libro "referencia" teniendo abiertos los dos libros.

Gracias a los dos.

[Antoni]

A ver, el libro con los nuevos datos debe llamarse "nuevos_datos.xls".

La hoja del libro de referencia, debe llamarse "Referencia".

Así debería funcionar si o si.

[tese1969]

Había puesto algo que no era adecuado, por lo que lo he editado...

[Antoni]

A ver, el libro con los nuevos datos debe llamarse "nuevos_datos.xls".

La hoja del libro de referencia, debe llamarse "Referencia".

Así debería funcionar si o si.

Si los libros no están abiertos en la misma instancia de Excel, no funcionará.

[luisJC]

Era la extensión; olvidé cambiarla a .xlsx

gracias!