Copiar Hoja/Rango 3D

[Antoni]

Hola bichos y foreros en general:

El enunciado lo dice todo. Se trata de una serie de macros que copian una hoja/rango de una hoja a varias.

Para probar, aseguraros de tener 4 hojas con los nombres "Hoja1", "Hoja2", "Hoja3", "Hoja4"

Poner datos con distintos formatos en la "Hoja1"

Sub HojaCopiarTodo()Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")

Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Cells, xlFillWithAll

End Sub

[/CODE]

[CODE]Sub HojaCopiarContenido()
Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")
Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Cells, xlFillWithContents
End Sub[/CODE]

[CODE]Sub HojaCopiarFormatos()
Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")
Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Cells, xlFillWithFormats
End Sub[/CODE]

[CODE]Sub RangoCopiarTodo()
Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")
Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Range("B5:C10"), xlFillWithAll
End Sub
[/CODE]

[CODE]Sub RangoCopiarContenido()
Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")
Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Range("B5:C10"), xlFillWithContents
End Sub
[/CODE]

[CODE]Sub RangoCopiarFormatos()
Hojas = Array("Hoja1", "Hoja2", "Hoja3", "Hoja4")
Sheets(Hojas).FillAcrossSheets Sheets("Hoja1").Range("B5:C10"), xlFillWithFormats
End Sub
[/CODE]

La opción[b] CopiarFormatos[color=#0000cd][i](xlFillWithFormats)[/i][/color][/b] no elimina los valores existentes.

La opción[b] CopiarContenido[i][color=#0000cd](xlFillWithContents) [/color][/i][/b] no elimina los formatos existentes.

Paz y amor