Code required please

Hi. Some help with this would be appreciated......

I have a worksheet with a list of numbers in column "A".
I would like a command button on the sheet that when pressed acivates an
input box requseting the user to enter a number. When the number is entered
the code would search column "A" and if a match is found then display this
fact to the user. If no match is found then add the new number to the list
and also advise the user that this has in fact been done.

thanks in advance

Hi
hope this will get you started

Sub test()
Dim nbr As Variant, r As Range, test As Boolean
nbr = InputBox("Enter the number")
If Len(nbr) = 0 Then Exit Sub
    If Not IsNumeric(nbr) Then
        MsgBox "Improper input"
        Exit Sub
    End If
    test = False
    For Each r In Range("a1", Range("a65536").End(xlUp))
        If r.Value = nbr Then
            test = True
            Exit For
        End If
    Next
    If test = True Then
        MsgBox nbr & vbLf & "Already exists"
    Else
        Range("a65536").End(xlUp).Offset(1).Value = nbr
        MsgBox "Added new number to the list: " & nbr & vbLf & "Thank you!"
    End If
End Sub

rgds,
jindon

How about something like:

Option Explicit

Sub FindMyNum()

Dim rng As Range
Dim NUM As Long
Dim NextCell As Range

Set NextCell = Range("A65536").End(xlUp)(2)
NUM = InputBox("ENTER A NUMBER")

Set rng = Range("A1", NextCell)
With rng
On Error Resume Next
If IsError(.Find(WHAT:=NUM, AFTER:=NextCell).Select) Then
MsgBox "Could not find your number. Will add it to the list.",
vbOKOnly, ""
NextCell = NUM
Else
MsgBox "Your number is located at: " & Selection.Address
End If
End With
End Sub


"Neal" wrote:

> Hi. Some help with this would be appreciated......
>
> I have a worksheet with a list of numbers in column "A".
> I would like a command button on the sheet that when pressed acivates an
> input box requseting the user to enter a number. When the number is entered
> the code would search column "A" and if a match is found then display this
> fact to the user. If no match is found then add the new number to the list
> and also advise the user that this has in fact been done.
>
> thanks in advance

How about something like:

Option Explicit

Sub FindMyNum()

Dim rng As Range
Dim NUM As Long
Dim NextCell As Range

Set NextCell = Range("A65536").End(xlUp)(2)
NUM = InputBox("ENTER A NUMBER")

Set rng = Range("A1", NextCell)
With rng
On Error Resume Next
If IsError(.Find(WHAT:=NUM, AFTER:=NextCell).Select) Then
MsgBox "Could not find your number. Will add it to the list.",
vbOKOnly, ""
NextCell = NUM
Else
MsgBox "Your number is located at: " & Selection.Address
End If
End With
End Sub


"Neal" wrote:

> Hi. Some help with this would be appreciated......
>
> I have a worksheet with a list of numbers in column "A".
> I would like a command button on the sheet that when pressed acivates an
> input box requseting the user to enter a number. When the number is entered
> the code would search column "A" and if a match is found then display this
> fact to the user. If no match is found then add the new number to the list
> and also advise the user that this has in fact been done.
>
> thanks in advance