Error de Compilación “No se ha definido Sub o Función”
Publicado por Kevin (1 intervención) el 12/10/2022 01:46:38
hola a todos, espero me puedan ayudar lo que pasa es que quiero crear una macro para buscar una hoja de Excel pero me bota el error de "Error de Compilación “No se ha definido Sub o Función”", agradecería su ayuda.
Sub buscarHoja()
Dim existe As Boolean
Dim nombreHoja As String
Dim cont As Integer
nombreHoja = InputBox("Ingrese el nombre de la hoja")
existe = False
For cont = 1 To Worksheets.Count
If Worksheets(cont).Name Like "*" & nombreHoja & "*" Then
existe = True
Exit For
End If
Next
If existe = False Then
magbox "No se encontro existencia de la hoja con base en el dato ingresado!"
Else
Sheets(Worksheets(cont).Name).Select
End If
End Sub
Sub buscarHoja()
Dim existe As Boolean
Dim nombreHoja As String
Dim cont As Integer
nombreHoja = InputBox("Ingrese el nombre de la hoja")
existe = False
For cont = 1 To Worksheets.Count
If Worksheets(cont).Name Like "*" & nombreHoja & "*" Then
existe = True
Exit For
End If
Next
If existe = False Then
magbox "No se encontro existencia de la hoja con base en el dato ingresado!"
Else
Sheets(Worksheets(cont).Name).Select
End If
End Sub
Valora esta pregunta


0