Ir a Hoja ?

08/10/2003 - 21:33 por Cheeky | Informe spam
¡Hola grupo!

Me surge hacer un botón de comando que pida el Nombre de la Hoja que se quiere abrir..
¿Cómo sería el código + -?
 

Leer las respuestas

#1 Héctor Miguel
09/10/2003 - 06:28 | Informe spam
Hola, Cheeky !

... boton de comando que pida el nombre de la hoja que se quiere abrir...



1.- el 'asunto' del mensaje 'dice' => ir a hoja <= [lo que 'supone' sea una hoja 'dentro' del mismo libro]
2.- [sin embargo] cuando 'dices' => hoja que se quiere abrir <= ¿se trata de un libro 'diferente' al libro activo???
3.- si el boton lo 'creas' con la barra de herramientas ...
a) formularios => [click-derecho y] asignale una macro de [un procedimiento 'creado' en] un modulo 'normal'
b) cuadro de controles => copia las lineas del procedimiento [en 'su' evento '_Click'] en el modulo de 'la hoja'
=>estando en el 'modo de diseño'<
1.- si se trata del primer 'supuesto' =>una hoja del mismo libro<= una [opcion de] macro seria:
Sub Ir_a_OtraHoja()
Dim LaHoja As Object, EstaHoja As String
EstaHoja = Trim(InputBox("Selecciona la nueva 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

2.- si se trata del segundo 'supuesto' => abrir un libro 'diferente' <a) si [solo] quieres 'saber' el nombre [y ubicacion] del libro 'solicitado' =>SIN 'abrirlo'<= ...
Sub Pedir_OtroLibro()
Dim NuevoLibro As String
NuevoLibro = Application.GetOpenFilename
MsgBox NuevoLibro
End Sub

b) si [definitivamente] el usuario 'podra' abrir otro libro [o 'cancelar' la accion de apertura]...
=> toma nota de que seria necesario 'revisar' si el libro 'solicitado' ya esta abierto [y... 'evitarlo' ???] <=> IMPORTANTE: si el libro que 'se abra' [con el siguiente metodo] 'tiene macros'... Excel NO 'pregunta' si... <= OJO
Sub Abrir_OtroLibro()
Application.Dialogs(xlDialogOpen).Show
End Sub
_______
Saludos,
Héctor.
MS-MVP

Preguntas similares