Colección de citas famosas - Slogan de motivación - ¿Cómo filtrar el texto en el cuadro de texto en lenguaje excel vba?
¿Cómo filtrar el texto en el cuadro de texto en lenguaje excel vba?
SubSS()
Dim iStr As String
IStr = InputBox("Ingrese el carácter que está buscando:", "Ventana Buscar contenido")
si iStr<>""entonces
Con Range("A1:A10")
Establezca rng =. find(iStr, after:= Range("a 10"), lookat:=xlPart)
Si no es rng, no es nada
addrs = rng. Dirección(0,0)
Do
msg = IIf(msg="",rng.Address(0,0),Message&","&rng.Address( 0, 0 )
Buscar siguiente
bucle mientras no sea RNG Nada y RNG.<>Dirección
Terminará si...
Fin con...
Terminará si...
MsgBox "contiene" & istel& caracteres amp La celda es: "&MSG
Conector final