Acumulado de hojas

[roberto]

Aqui estoy de vuelta para ver si me pueden ayudar...
Habra alguna manera, ya sea mediante una función o codigo VBA de que se haga lo siguiente:
Tengo las Hojas:
Ene 03
Feb 03
Mar 03
Abr 03
que al copiar la ultima hoja del mes y darle el mes consecutivo (en este caso May 03 por ejemplo) el valor de la celda F5 me ponga el valor de la Hoja Abr 03

Saludos!!!

 

[Juan Pablo González]

La siguiente UDF puede servir:

<font face=Courier New>
<SPAN style="color:darkblue">Function</SPAN> VALORCELDA(DesrefHoja <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>, Celda <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">String</SPAN>) <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Variant</SPAN>
    <SPAN style="color:darkblue">Dim</SPAN> ShName <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">String</SPAN>, Index <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>
    Index = Application.Caller.Parent.Index + DesrefHoja
    ShName = Application.Caller.Parent.Parent.Sheets(Index).Name
    VALORCELDA = Range(ShName & "!" & Celda).Value
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Function</SPAN>
</FONT>

Funciona así:

=VALORCELDA(0, "A1")

devolvería el valor de la celda A1 de la hoja actual

=VALORCELDA(-1, "A1")

devolvería el valor de la celda A1 de la hoja anterior

=VALORCELDA(1, "A1")

devolvería el valor de la celda A1 de la hoja siguiente

Si hay algún error (Por ejemplo, usar VALORCELDA(-1, "A1") en la primera hoja del libro) la fórmula devuleve #VALOR!

 

[roberto]

Gracias de nuevo Juan P.