Foros del Web » Programación para mayores de 30 ;) » Programación General »

Macros buscar valor

Estas en el tema de Macros buscar valor en el foro de Programación General en Foros del Web. Hola a Todos, estoy haciendo una macro que me busque un valor, pero supongo que me faltan datos, la macro que ya tengo me busca ...
  #1 (permalink)  
Antiguo 22/02/2012, 16:12
Avatar de alexmtz  
Fecha de Ingreso: febrero-2012
Ubicación: cancun
Mensajes: 5
Antigüedad: 12 años, 4 meses
Puntos: 0
Pregunta Macros buscar valor

Hola a Todos, estoy haciendo una macro que me busque un valor, pero supongo que me faltan datos, la macro que ya tengo me busca numeros pero por ejemplo si busco un 1 el 10 me lo considera como tal, alguien me puede ayudar, necesito que haga una busqueda de dato exacto, gracias de antemano, les escribo el que ya tengo, tengo un cuadro donde el usuario escribe el numero:

Private Sub cmdAceptar4_Click()
On Error GoTo lineaerror
Range("A1").Activate
'inicia la busqueda en la columna A
[a1:a1010].Find(What:=txtBusqueda, After:=ActiveCell, MatchCase:=True, SearchFormat:=True).Activate
'si encontro el valor se posiciona
ActiveCell.Offset(0, 0).Select
'pregunta si la posicion del valor buscado esta vacio
If Selection.Offset().value <> "" Then
'si no esta vacia le dice k ya hay registro
MsgBox "Esta etiqueta ya fue capturada", vbExclamation, "PARABAR"
Else
MsgBox "adelante con la captura"
End If
Exit Sub
'este es para ver si no existe la etiqueta registrada
lineaerror:
MsgBox "Etiqueta no Registrada"
End Sub

Última edición por alexmtz; 22/02/2012 a las 17:10
  #2 (permalink)  
Antiguo 25/02/2012, 13:08
Avatar de alexmtz  
Fecha de Ingreso: febrero-2012
Ubicación: cancun
Mensajes: 5
Antigüedad: 12 años, 4 meses
Puntos: 0
Respuesta: Macros buscar valor

je, ya encontre la solucion, solo le agregue esto al buscador, espero le sirva a alguien mas
[a1:a1010].Find(What:=txtBaja, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Etiquetas: buscarv, excel, macros
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:13.