Seek

[verluc]

I want to write a macro that first give me the possibility to enter a message in a text box and then give me the active cell.
Ex. I have 700 lines in column A AAA
BBB
CCC
DDD
etc..

When I can give in a textbox DDD than the program goes automatickly to line 4 with the text DDD
Have anyone such a macro?
Many thanks.

[eliW]

On 2002-03-29 05:49, verluc wrote:
I want to write a macro that first give me the possibility to enter a message in a text box and then give me the active cell.
Ex. I have 700 lines in column A AAA
BBB
CCC
DDD
etc..

When I can give in a textbox DDD than the program goes automatickly to line 4 with the text DDD
Have anyone such a macro?
Many thanks.

Hi,
I am far from being an expert in VBA but I tried this and it seems to work, although maybe it needs some polish:

Sub SeekValue()
Range("A1").Select
ABC = InputBox("Enter value to seek ")
Cells.Find(What:=ABC, After:=ActiveCell).Activate
End Sub

Regards,
Eli


[ This Message was edited by: eliW on 2002-03-29 07:14 ]

[eliW]

Does it make sense?
Eli

[verluc]

On 2002-03-29 06:42, eliW wrote:

Hi,
I am far from being an expert in VBA but I tried this and it seems to work, although maybe it needs some polish:

Sub SeekValue()
Range("A1").Select
ABC = InputBox("Enter value to seek ")
Cells.Find(What:=ABC, After:=ActiveCell).Activate
End Sub

Regards,
Eli
Yes,it works.But what if the program don't find it,or is does not exist?Can the program me give a message: "Can't find it !!!"
Many thanks

[ This Message was edited by: eliW on 2002-03-29 07:14 ]

[Ivan F Moala]

Just change Eli's code to;

Sub SeekValue()
Dim abc

Range("A1").Select
abc = InputBox("Enter value to seek ")
On Error Resume Next
Cells.Find(What:=abc, After:=ActiveCell).Activate
If Err Then MsgBox abc & " Not found!"

End Sub


Ivan