con esto...
el code me busca una cosa y si la encuentra sale mensaje:
'la parte del código es la que se aseugra de haberlo encontrado:
If InStr(Titulo_Win, El_titulo) <> 0 Then
msgbox ("hola mundo")
lo que pretendo es que cuando lo busque si no lo encuentra me salga algo tipo
msgbox ("no encontrado")
'o lo que me la gana, ejemplo , cerrar un timer o reiniciar el pc..
20:14 sin resolver
agregale un else:
'la parte del código es la que se aseugra de haberlo encontrado:
If InStr(Titulo_Win, El_titulo) <> 0 Then
msgbox ("hola mundo")
else
msgbox "No se encontro"
end if
no funciona de esa manera, siempre me sale la que pongo debajo del "else" aunque sea correcta la búsqueda
es sencillo asi te va quedar claro el uso de esa funcion:
Private Sub Form_Load()
Dim CadenaDondeBuscar As String
Dim CadenaABuscar As String
CadenaDondeBuscar = "hola que tal"
CadenaABuscar = "que"
If InStr(1, CadenaDondeBuscar, CadenaABuscar) <> 0 Then
MsgBox "cadnena encontrada", vbInformation
Else
MsgBox "no se encontro la cadena", vbCritical
End If
End
End Sub
en CadenaABuscar cambiale por otra cosa como "qpow" y se va ejecutar el else.
Dim text As String
Dim palabra As String
text = "Hola mundo"
palabra = "mun"
If InStr(text, palabra) Then
MsgBox "el string palabra se encuentra dentro de texto"
Else
MsgBox "el string palabra no se encuentra dentro de texto"
End If