BUSCAR UN NOMBRE DE HOJA DESDE EL CONTENIDO DE UNA CELDA

16/06/2004 - 22:21 por Patricio Ramirez | Informe spam
SALUDOS.

MI PROBLEMA ES EL SIGUIENTE:

TENGO VARIAS HOJAS, CADA UNA CON EL NOMBRE DEL MES EN
CUESTION. SON SUMATORIAS Y PROMEDIOS. AL FINAL DE ESTAS
HOJAS TENGO OTRA CON LOS RESULTADOS ACUMULADOS POR MES.
LO QUE DESEO HACER ES PODER IR AUTOMATICAMENTE AL NOMBRE DE
LA HOJA TOMANDOLO DESDE UNA CELDA ESPECIFICA (CON EL NOMBRE
DEL MES) Y LLEVADO EL DATO QUE ES UN ACUMULADO.

SE AGRADECE CUALQUIER AYUDA.

CHAOLIN
 

Leer las respuestas

#1 Héctor Miguel
17/06/2004 - 07:20 | Informe spam
hola, Patricio !

disculpa que omita referenciar tu consulta, pero...
usar mayusculas en correos electronicos [y grupos de noticias] 'equivale' a... ¡ GRITAR !!! :((

existen varios metodos de 'navegacion' por las hojas de un mismo libro [p.e.]
- seleccionar 'directamente' la pestaña de la hoja con el raton
- 'avanzar' a la [siguiente <|> previa] hoja con el teclado =>{Ctrl}+{AvPag} <|> {Ctrl}+{RePag}<- un 'click-derecho' en las flechas de navegacion en la parte inferior izquierda
[junto a los nombres de las hojas y barra de desplazamiento horizontal] 'presenta' una lista de las hojas en el libro
- usar los atajos para 'ir a...' [cualquiera de los cuatro metodos siguientes]
a. edicion / ir a...
b. {Ctrl}+i
c. {F5}
d. desplegar la 'caja de nombres y direcciones' [a la izquierda de la barra de formulas]
... e introducir la referencia [p.e. Hoja60!a25 o... 'Nombre de la hoja'!a45]
=> 'nota' que entre el nombre de la hoja y el rango de referencia... 'va' un signo >!< [cierre de admiracion] < y... si el nombre de la hoja tiene 'espacios' [o solo numeros] se delimita con apostrofos >'< [antes del signo]
- asignar nombres UNICOS [en el libro] a celdas 'especiales' [de cada hoja] y usar los atajos anteriores
- una macro [como la siguiente]
___ en un modulo de codigo 'normal' ___
Sub Ir_a_OtraHoja()
Dim LaHoja As Object, EstaHoja As String
EstaHoja = InputBox("Indica el nombre de la hoja", "Ir a otra hoja...")
If EstaHoja <> "" Then
On Error Resume Next
Set LaHoja = Sheets(EstaHoja)
If Not LaHoja Is Nothing Then
LaHoja.Activate
Else: MsgBox "La hoja solicitada NO ""existe"" !!!", , ""
End If
Else: MsgBox "Cambio de hoja ""cancelado"".", , ""
End If
Set LaHoja = Nothing
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
podrias 'probar' cambiando la asignacion de la variable 'EstaHoja' [en lugar de un inputbox] a...
EstaHoja = ActiveCell
[supone que el cursor esta en alguna celda con el nombre de 'la hoja' a la que quieres ir]

saludos,
hector.

Preguntas similares