Vos me dices que es un textbox, por ende presumiré que estás trabajando en un campo dentro de un formulario, dado esto entonces vamos por partes, primero tendrás que validar que el usuario este introduciendo adecuadamente la información, para esto emplearemos los condicionales IF.
haciendo dobleclick en el editor del formulario, sobre el text box te aparecera por default algo como
private sub textbox1_change()
end sub
vas a cambiarlo por
private sub textbox1_update()
end sub
Para que luego de que se actualize es decir el usuario salga del campo se ejecute el código validador.
CODIGO VALIDADOR:
Function Comprobar_Tipo(valor As String, tipo As String) As Boolean
Dim Valido As Boolean
Valido = True
Select Case tipo
'Comprueba si es un valor numérico válido
Case "N"
If Not IsNumeric(valor) Then
Valido = False
End If
End Select
Comprobar_Tipo = Valido
End Function
Ésto lo pegas en la parte superior del código NO DENTRO DE UN SUB
luego ahora si dentro de tu casilla de texto cuando le hagas doble clic entonces te aperecera el update, dentro del update pegas:
If Not Comprobar_Tipo(TEXTBOX1, "N") Then
MsgBox Prompt:="Verifique la fecha en formato dd/mm/aaaa", Title:="CORRIJA O LA OPERACIÓN NO CONTINUARÁ"
FECHA.SetFocus
else
msgbox prompt:="Dato valido, continue",Title:="Continúe"
end if
en el boton para buscar pegas:
columna =(pones el numero de la columna donde estan los datos)
fila = (la fila donde empiezan los datos)
encontrado = false
do while encontrado = false
cells(fila, columna).activate
if activecell.value = "" then
msgbox prompt:="Se buscó y no se encontro",Title:="Mensaje"
encontrado = true
else
if activecell.value = textbox1.value then
msgbox prompt:="ENCONTRADO",Title:="Continúe"
range("b1").value = val(activecell.value) 'aqui pone que le escriba el dato en una celda o no lo pone esto es relativo.
encontrado = true
else
fila = fila + 1
end if
end if
loop
Espero te sirva, sinm embargo si tienes dudas o quieres aprender a hacer macros te recomiendo la siguiente página que ofrece este tipo de cursos o aplicativos en excel a un bajísimo costo:
http://www.ayconcol.com/foro te puedes registrar y mirar los cursos. Saludos!
<div id="_mcePaste" style="position: absolute; left: -10000px; top: 0px; width: 1px; height: 1px; overflow: hidden;">
http://ayconcol.com/foro/viewforum.php?f=61</div>