Waiting for a valid input
 

Hi,

I'm using a macro to find the first empty cell in a column. For this
use the code:
Range("a65536").End(xlUp).Offset(1, 0).Activate

Then I put a value in the active cell

And after it the value should disappear in the cell F3. For this I us
the code:
Range("F3").Value = Sheets("blad1").Range("a65536").End(xlUp).Value

Now I want to put this in 1 macro. Between my first code and my las
code, it should wait for a valid input and an enter before it continue
with the last code.
How can I do this

--
Message posted from http://www.ExcelForum.com

Waiting for a valid input
 

ans = Input("Please supply a value")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"serge " wrote in message
...
Hi,

I'm using a macro to find the first empty cell in a column. For this I
use the code:
Range("a65536").End(xlUp).Offset(1, 0).Activate

Then I put a value in the active cell

And after it the value should disappear in the cell F3. For this I use
the code:
Range("F3").Value = Sheets("blad1").Range("a65536").End(xlUp).Value

Now I want to put this in 1 macro. Between my first code and my last
code, it should wait for a valid input and an enter before it continues
with the last code.
How can I do this?


---
Message posted from http://www.ExcelForum.com/