Macro para busqueda especifica
Publicado por Héctor (2 intervenciones) el 25/05/2019 18:46:40
Buenas tardes a todos, soy nuevo en el tema les agradezco enormemente si me pueden ayudar con este problema que tengo. Tengo un libro de excel con varias hojas, tengo una hoja principal (inicio) desde la cual busco una hoja especifica, el problema es que cuando oculto las hoja(s) no las encuentra, este es el código.
Vale aclarar que el código se activa por medio de un botón.
También tengo este código (botón)en cada hoja para volver a inicio quiero que cuando vuelva oculte la hoja actual.
Agradezco cual quier ayuda que me puedan brindar, gracias.
Vale aclarar que el código se activa por medio de un botón.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub buscar()
'
' Buscar Macro
' Busca la hoja seleccionada de la lista desplegable
' Declaracion de variables
'
On Error GoTo error_hoja
Dim x As String
x = [H18].Value
Sheets(x).Select
Sheets(x).Visible = True
Exit Sub
error_hoja:
MsgBox "No existe la hoja"
End Sub
También tengo este código (botón)en cada hoja para volver a inicio quiero que cuando vuelva oculte la hoja actual.
1
2
3
4
5
6
7
8
9
Sub INICIO()
'
' INICIO Macro
' Lleva a la hoja inicio
'
'
Sheets("INICIO").Select
End Sub
Agradezco cual quier ayuda que me puedan brindar, gracias.
Valora esta pregunta
1