Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Para KL, sobre Buscador en macros

22/01/2006 - 17:04 por aca | Informe spam
Ayuda Hacer una pregunta
Perdona, KL, por tardar en volver a conectar.
Gracias por tu respueta a mi pregunta sobre la función "Buscar" d
Excel, que incluida en una macro, se detiene al primer hallazgo, si
dar la posibilidad de seguir buscando o de aceptar el hallazgo.
Tú me preguntas qué macro uso. Pues ésta instrucción:

Cells.Find(What:="c", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns
SearchDirection:=xlNext).Activate
-
Gracias por tu interés
AC

ac
aca's Profile: http://www.msusenet.com/member.php?userid85
View this thread: http://www.msusenet.com/t-187370738
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
22/01/2006 - 22:22 | Informe spam
Hola aca,

Mira a ver si te vale el siguiente codigo.

Saludos,
KL

Sub test()
Dim Respuesta As Variant
On Error GoTo ManejoErrores
Do
Cells.Find _
(What:="c", _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext).Activate
Respuesta = MsgBox( _
"Se ha encontrado el valor buscado en " & _
ActiveCell.Address & Chr(13) & Chr(13) & _
"Quiere seguir con la busqueda?", vbYesNoCancel)
If Respuesta = vbCancel Then
MsgBox "Se ha cancelado la operacion."
GoTo Salida
End If
Loop Until Respuesta = vbNo
MsgBox "ya puedes seguir con tu codigo ;-)"
Exit Sub
ManejoErrores:
MsgBox "No se ha encontrado el valor buscado :-("
Salida:
End Sub

Preguntas similares

 

Busqueda sugerida :