Hola,
Lo siento pero no entiendo muy bien la respuesta, o no consigo aplicarla....
He creado un excel ejemplo con las pestañas que serian de Enero, pero necesito que la macro no indique nombres cerrados para las hojas porque sino no se aplicaria a los meses siguientes cuando cambie los nombres.
[URL="http://ge.tt/7cGgsQY2"]http://ge.tt/7cGgsQY2[/URL]
He partido de esta macro pero no se como adaptarla a los nombres "variables" segun la tabla ni como aplicar la condicion de que busque la hoja plantilla que corresponda.
Código:
Sub CopiarCeldas()
'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Origen")
Set wsDestino = Worksheets("Destino")
'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 xlPasteAll
Application.CutCopyMode = False
End Sub