Copiar de Un libro a otro Celdas Combinadas
Y no me queda otra que acudir a quien sabe para ver si me podéis ayudar, el problema es el siguiente :
Tengo 2 libros cada libro con 6 hojas, y lo que pretendo hacer es copiar del libro 1 desde el rango A1:Aj de la hoja 1,2,3 etc al libro 2 a partir de la celda c1, el problema lo encuentro cuando copio y pego ya que el primer libro tiene celdas cominadas y cuando lo pego da un error 1004 diciendo que los tamaños no son iguales de las celdas.
H o l a :
Una opción es que la macro quite las celdas combinadas, se pegue la información, y después si quieres, vuelvas a combinar las celdas, cambia "C1:D5", por el rango de celdas que tengas combinadas.
Si ya no quieres que se combinen las celdas, entonces quita esta línea de la macro:
H1. Range("C1:D5"). MergeLa macro:
Sub CopiarDatos()
'Por.Dante Amor
Set l1 = ThisWorkbook 'libro ppal
Set h1 = l1.Sheets("HojaDestino") 'primera hoja
'
Set l2 = Workbooks("ELCHE.xlsx") 'libro con datos
Set h2 = l2.Sheets("HojaOrigen") 'hoja con datos
'
h1.Range("C1:D5").UnMerge
h2.Range("A1:A" & h2.Range("A" & Rows.Count).End(xlUp).Row).Copy h1.Range("C1")
h1.Range("C1:D5").Merge
MsgBox "Datos copiados"
End SubSi no es la solución, entonces se tendría que pasar celda por celda de la hojaorigen a la hojadestino.
Avísame si hay que pasar celda por celda y me dices cuál celda de la hojaorigen va en cuál celda de la hoja destino.
':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
Envíame tus archivos para revisar cuál es el problema.
Me explicas si es necesario que se conserven las celdas combinadas.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Fran Gomez” y el título de esta pregunta.
buenas dante, acabo de enviarte los ficheros
Ya probé la macro y queda así:
Sub RANKINGDIV()
'Por.Dante Amor
Set l1 = ThisWorkbook 'libro ppal
Set h1 = l1.Sheets("RnkDiv") 'primera hoja
'
Set l2 = Workbooks("DIVISIONES813.xlsx") 'libro con datos
Set h2 = l2.Sheets("MIRANDA , 0813") 'hoja con datos
h1.Range("C1:E10").UnMerge
h2.Range("A1:AH" & h2.Range("A" & Rows.Count).End(xlUp).Row).Copy h1.Range("C1")
MsgBox "Datos copiados"
End Sub':) ':)
