Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code required please
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code required please
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changes Required In Macro Code | Excel Discussion (Misc queries) | |||
Another VB Code Required | Excel Discussion (Misc queries) | |||
VB Code Required | Excel Discussion (Misc queries) | |||
macro code required | Excel Worksheet Functions | |||
For....Next loop code required | Excel Programming |