Macro en VBA de excell

[rhcv1130]

Hola al foro, espero puedan ayudarme con el siguiente procedimiento:
Tengo un libro en el cual existen hojas las cuales se van llenando con datos de otra hoja llamada CatalogoConceptos que se van creando para el calculo de un PrecioUnitario por ejemplo:

Hoja CatalogoConceptos
Fila/Columna A B C D
1 Instalar de foco Numero Focos a instalar PU_Instalacion 9.00
2 Colocar registro Numero de Registros a colocar PU_Colocacion 92.00
3 Plantar Arbol Numero de Arboles a plantar PU_Plantar 85.00
.
.
Asi hasta n filas.

El caso es que a cada fila de esa hoja le corresponde otra hoja del mismo libro donde se calcula el valor final o PrecioUnitario.
El valor de la columna D o PrecioUnitario se calcula sumando los materiales, la mano de obra, etc, etc. , Por ejemplo para el concepto de plantar un arbol la hoja se llama PU_Plantar.

Hoja PU_Plantar
Fila/Columna A .... G
1 Precio del Arbol 50.00
2 Costo Mano de Obra 25.00
3 Indirectos 2.00
. . .
. . .
52 Utilidad 8.00
_______
54 Costo Plantar un Arbol 85.00

En cada hoja el resultado final siempre esta en la celda G54.

Cuando termino de llenar la hoja PU_Plantar me paso a la celda G54 y ejecuto la siguiente macro que me pasa el resultado a la hoja CatalogoConceptos:

Sub PasaPrecioUnitarioACatalogoConceptos()
'
' PasaPrecioUnitarioACatalogoConceptos Macro
'
' Acceso directo: CTRL+f
'
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("CatalogoConceptos").Select
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.FormulaR1C1 = "='PU_Plantar'!R[-21]C[2]"
ActiveCell.Select
End Sub

La intencion de hacer la macro fue para que al ejecutarla para cada hoja de Precio unitario me pasara el resultado a la fila correspondiente en la hoja CatalogoConceptos pero no he podido hacer que se cambie la instruccion:

ActiveCell.FormulaR1C1 = "='PU_Plantar'!R[-21]C[2]"

Agradezco de antemano cualquier orientacion.

Saludos

[Emilio]

--------------------------------------------------------------------------
�Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvi� o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!

lo cierto es que no veo claro cual es el problema, �qu� quieres decir con

"he podido hacer que se cambie la instruccion: ActiveCell.FormulaR1C1 =
"='PU_Plantar'!R[-21]C[2]"

�puedes explicarte mejor?

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio