Hola amigos :Problema con funcion FIND en VBA

adicto: 2 cosas...
la primera, me imagino que por un tema de versión, el parámetro SearchFormat
no existe en office 2000 (que es donde lo probé)
puede ser eso, y lo segundo, yo lo probé de la siguiente manera y me dió
resultado:

Sub buscar()
Dim c As Range
Set c = selection.Find(What:="seleccionar", After:=ActiveCell , _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
_
SearchDirection:=xlNext, MatchCase:=False)
c.Select
End Sub

saludos,
Francisco.

"adicto" escribió en el mensaje
news:

Hola amigos :

Tengo un problema, quisiera hacer una aplicacion en vba para solucionar
los problemas de migracion XLM, pero me encontre con un problema, he
buscado informacion pero no la he encontrado...
El tema es que me produce un error cuando busco algo en una planilla con
la siguiente funcion

sub buscar()
Selection.Find(What:="seleccionar", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Select
end sub

Alguien tiene alguna solucion para esto ???...

De antemano, muchas gracias.


adicto


Ver este tema: http://www.softwaremix.net/viewtopic-477958.html

Enviado desde http://www.softwaremix.net

Hola adicto,

La solucion pasa por entender que tipo de datos exactamente tienes en la hoja donde haces la busqueda, que clase de error te da
Rxcel exactamente (la version de Office ya la sabemos).
Lo mas obvio:
1) el codigo que expones daria error al no encontrar la celda buscada, ya que intentaria seleccionar un rango que no existe ;-)
Habria que introducir algun manejo de errores, p.ej.:

Sub buscar()
On Error Resume Next
Selection.Find(What:="seleccionar", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Select
End Sub

en este caso si no se encuentra nada - no se selecciona nada.

2) tu codigo esta buscando en formulas - es esa tu intencion? Quiza por eso no encuentre nada.

3) Estas seleccionando expresamente el rango que pueda contener el valor buscado? De ahi otra pregunta: Es en una selecion donde
realmente quieres buscar? O quizas en toda la hoja? P.ej.:

Sub buscar()
On Error Resume Next
ActiveSheet.Cells.Find(What:="seleccionar", After:=ActiveSheet.Cells(1), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Select
End Sub

Comentas mas detalles?

Saludos,
KL


"adicto" wrote in message news:

Hola amigos :

Tengo un problema, quisiera hacer una aplicacion en vba para solucionar los problemas de migracion XLM, pero me encontre con un
problema, he buscado informacion pero no la he encontrado...
El tema es que me produce un error cuando busco algo en una planilla con la siguiente funcion

sub buscar()
Selection.Find(What:="seleccionar", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Select
end sub

Alguien tiene alguna solucion para esto ???...

De antemano, muchas gracias.


adicto


Ver este tema: http://www.softwaremix.net/viewtopic-477958.html

Enviado desde http://www.softwaremix.net