Buscar texto numérico

27/01/2006 - 09:18 por Calú | Informe spam
Hola, uds. saben si puedo buscar dentro de un mismo archivo y entre 2 paginas
un mismo texto al mismo tiempo o bien que busque en una pagina primero y que
si esta y se da una condicion se vaya a la siguiente y lo busque ahi??
Y lo otro, como puedo crear un recuadro donde yo pueda anotar un numero y me
lleve a la selda que lo tiene?

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
27/01/2006 - 10:36 | Informe spam
hola, Calú !

... puedo buscar dentro de un mismo archivo y entre 2 paginas un mismo texto al mismo tiempo
... o bien que busque en una pagina primero y que si esta y se da una condicion se vaya a la siguiente y lo busque ahi?
... otro, como puedo crear un recuadro donde yo pueda anotar un numero y me lleve a la selda que lo tiene?



[creo que] para la primera parte de tu consulta... sera necesario que amplies un poquitin la informacion :)) [p.e.]
-> cual seria 'la condicion' ?
-> que hacer si se encuentra 'duplicado' ? [o si no se encuentra] ?
-> cuales serian 'las 2 hojas' ? [etc. etc. etc.] :D

para la segunda parte, podrias utilizar [p.e.] la celda 'A1' de 'esa' hoja para anotar 'el numero' y...
copias las siguientes lineas -> en el modulo de codigo de 'esa' hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or IsEmpty(Target) Then Exit Sub
Dim Celda As Range: On Error Resume Next
Set Celda = Cells.Find(Target, Target): On Error GoTo 0
If Not Celda Is Nothing And Celda.Address <> "$A$1" _
Then Celda.Activate Else MsgBox Target & ": NO se encuentra en la hoja !!!"
Set Celda = Nothing
End Sub

-> tambien haria falta 'ver que se hace' en caso de que 'el numero' se encontrara mas de una vez -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Calú
31/01/2006 - 09:48 | Informe spam
Excelente, muhas gracias Hector

"Héctor Miguel" escribió:

hola, Calú !

> ... puedo buscar dentro de un mismo archivo y entre 2 paginas un mismo texto al mismo tiempo
> ... o bien que busque en una pagina primero y que si esta y se da una condicion se vaya a la siguiente y lo busque ahi?
> ... otro, como puedo crear un recuadro donde yo pueda anotar un numero y me lleve a la selda que lo tiene?

[creo que] para la primera parte de tu consulta... sera necesario que amplies un poquitin la informacion :)) [p.e.]
-> cual seria 'la condicion' ?
-> que hacer si se encuentra 'duplicado' ? [o si no se encuentra] ?
-> cuales serian 'las 2 hojas' ? [etc. etc. etc.] :D

para la segunda parte, podrias utilizar [p.e.] la celda 'A1' de 'esa' hoja para anotar 'el numero' y...
copias las siguientes lineas -> en el modulo de codigo de 'esa' hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or IsEmpty(Target) Then Exit Sub
Dim Celda As Range: On Error Resume Next
Set Celda = Cells.Find(Target, Target): On Error GoTo 0
If Not Celda Is Nothing And Celda.Address <> "$A$1" _
Then Celda.Activate Else MsgBox Target & ": NO se encuentra en la hoja !!!"
Set Celda = Nothing
End Sub

-> tambien haria falta 'ver que se hace' en caso de que 'el numero' se encontrara mas de una vez -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.



Respuesta Responder a este mensaje
#3 Calú
31/01/2006 - 09:55 | Informe spam
Hector, me queda una duda al respecto...mi idea es que busque dentro de una
columna no en toda la pagina, como le cambio eso?
gracias

"Héctor Miguel" escribió:

hola, Calú !

> ... puedo buscar dentro de un mismo archivo y entre 2 paginas un mismo texto al mismo tiempo
> ... o bien que busque en una pagina primero y que si esta y se da una condicion se vaya a la siguiente y lo busque ahi?
> ... otro, como puedo crear un recuadro donde yo pueda anotar un numero y me lleve a la selda que lo tiene?

[creo que] para la primera parte de tu consulta... sera necesario que amplies un poquitin la informacion :)) [p.e.]
-> cual seria 'la condicion' ?
-> que hacer si se encuentra 'duplicado' ? [o si no se encuentra] ?
-> cuales serian 'las 2 hojas' ? [etc. etc. etc.] :D

para la segunda parte, podrias utilizar [p.e.] la celda 'A1' de 'esa' hoja para anotar 'el numero' y...
copias las siguientes lineas -> en el modulo de codigo de 'esa' hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or IsEmpty(Target) Then Exit Sub
Dim Celda As Range: On Error Resume Next
Set Celda = Cells.Find(Target, Target): On Error GoTo 0
If Not Celda Is Nothing And Celda.Address <> "$A$1" _
Then Celda.Activate Else MsgBox Target & ": NO se encuentra en la hoja !!!"
Set Celda = Nothing
End Sub

-> tambien haria falta 'ver que se hace' en caso de que 'el numero' se encontrara mas de una vez -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida