almacenar nombre de hoja en una variable y usarlo en la función SUMA

[mayar]

Hola,

A ver si alguien me puede ayudar. ¿Esto que planteo es posible?

Estoy intentando almacenar el último nombre de la hoja de un libro en una variable para que cuando cree una hoja nueva se me actualicen las fórmulas de mi hoja principal automáticamente a través de la función SUMA. 

 

Para ello: Almaceno el nombre de la última hoja en esta variable:

Sub Variable()

Dim Variable1 As String

Variable1 = ActiveWorkbook.Worksheets(Worksheets.Count).Name
ActiveWorkbook.Names.Add Name:="ultimahoja", RefersToR1C1:=Variable1

End Sub
 

Y luego lo intento usar de esta manera:

=SUMA('semana del 01-01-20:ultimahoja'!A1)

Pero esto no me funciona.

Si me funcionase asiganaría esa macro a un botón para que si he creado hojas nuevas y luego pulso el botón me actualizase la celda con los valores de las nuevas hojas.

De esta manera mi intención era que me sumase todas las celdas A1 desde la hoja semana del 01-01-20 hasta la última hoja. Pero no me funciona y no entiendo porqué, a ver si me podéis echar un cable.

 

Gracias!!

[JSDJSD]

Sube tu archivo, con un ejemplo del Antea y el después

[mayar]

Hace 25 minutos , JSDJSD dijo:

Sube tu archivo, con un ejemplo del Antea y el después

Hola JSDJSD, gracias por el interés, adjunto un excel donde creo que se ve mejor lo que no me funciona. 

No entiendo porque la función SUMA funciona perfectamente si le pasas una variable con valor numérico, pero no funciona si le pasas una variable con el nombre de una hoja

duda excel.xlsm

[JSDJSD]

Mira a ver si es esto lo que necesitas ?

[JSDJSD]

uuffff¡¡¡¡ aquí el archivo

duda exce prueba1.xlsm

[Antoni]

Una alternativa, pásale la celda resultado a esta macro:

Sub SumaHojas(Celda As Range)
Dim Desde As String, Hasta As String
Desde = Sheets(2).Name
Hasta = Sheets(Sheets.Count).Name
Celda.Formula = "=SUM('" & Desde & ":" & Hasta & "'!A1)"
End Sub

 

[mayar]

Hace 2 minutos , JSDJSD dijo:

Mira a ver si es esto lo que necesitas ?

Sí, sí, creo que es eso exactamente, que pulsando el botón me sume los valores de las nuevas hojas

¿Cómo lo has conseguido? ?

[mayar]

Hace 1 minuto , JSDJSD dijo:

uuffff¡¡¡¡ aquí el archivo

duda exce prueba1.xlsm 23.95 kB · 1 descarga

Muchas gracias!!!

[JSDJSD]

Prueba la alternativa del maestro Antoni, es lo mismo pero de un modo diferente, y no olvides nunca agradecer a quién te ayuda o intenta ayudar y es el foro es mediante el corazoncillo que tenemos en la parte inferior derecha.

[Antoni]

La cosa quedaría así.

Sub NuevaHoja()
ActiveWorkbook.Worksheets(Worksheets.Count).Activate
a = Format(DateAdd("d", 7, Range("D2")()), "dd-mm-yyyy")
Worksheets(Worksheets.Count).Copy After:=Worksheets((Worksheets.Count))
ActiveSheet.Range("D2").Value = Worksheets(Worksheets.Count - 1).Range("D2").Value + 7
ActiveSheet.Name = "semana del " & a
SumaHojas Sheets("General").Range("E10") '<-------------
End Sub

Sub SumaHojas(Celda As Range)
Dim Desde As String, Hasta As String
Desde = Sheets(2).Name
Hasta = Sheets(Sheets.Count).Name
Celda.Formula = "=SUM('" & Desde & ":" & Hasta & "'!A1)"
End Sub

 

[JSDJSD]

Siempre hay que probar todo el material que nos ofrecen, decir si nos funciona como queremos y agradecer la implicación de aquel que nos ofrece su ayuda. Un saludo

[mayar]

Muchas gracias a ambos!!! Era justo lo que necesitaba!!

[JSDJSD]

Ya lo único que me queda por decirte es que espero que seas del Real Madrid,,, ?

[mayar]

Hace 1 minuto , JSDJSD dijo:

Ya lo único que me queda por decirte es que espero que seas del Real Madrid,,, ?

Pues has acertado, jejej, no fallas una

[JSDJSD]

Pues ya tienes unos puntitos ganados con el maestro Antoni y con mi persona.

[Antoni]

Hace 1 hora, JSDJSD dijo:

Pues ya tienes unos puntitos ganados con el maestro Antoni y con mi persona.

[JSDJSD]

Pregunta trampa.. ?