Basic - Codigo visual basic

   
Vista:

Codigo visual basic

Publicado por Hector (1 intervención) el 01/10/2017 19:27:58
Buena tarde a todos, tengo un código que me busca una hoja especifica pero cuando oculto la hoja no me funciona quiero solucionar ese problema que aun que este oculta pueda ser encontrada, este es el código, gracias de ante mano por su ayuda.

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Buscar()
 On Error GoTo error_hoja
  Dim x As String
     x = [G5].Value
     Sheets(x).Select
     Sheets(x).Visible = True
     x = [G5].Value
     Sheets(x).Select
     Sheets(x).Visible = False
 Exit Sub
error_hoja:
  MsgBox "No existe la hoja"
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder