Input Data Into Last Row

[John Davis]

Hello All:

I have the following spreadsheet situation:

A---------B----------C-----------D
INVOICE--DOCK-----DATE-------RAMP
20113----LEFT------06-20-------SGA
21190----LEFT------06-25-------MRS
23221---- ------

What I'd like to do using VB code is create an InputBox too fill in Columns B C and D. I need it too prompt for input on the very last row in the spreadsheet which has data in it. Can anyone help??

 

[DonkeyOte]

When is the prompt required -- ie what action is to invoke the prompt ?

 

[John Davis]

When is the prompt required -- ie what action is to invoke the prompt ?

The macro will be called from another macro. The prompt will be the inputbox itself (The title such as "Fill in the Dock" number. I need something like:

Range ("B" & lastrow with data) = InputBox("Fill in the Dock Number")

I don't know how too designate the lastrow.

 

[ravishankar]

Hi
try the following codes

sub data_entry()
dim a as integer, x as integer
Dim b as string
x= cells(rows.count,1).end(xlUP).row
for a= 2 to 4
b= choose(a-1,"Dock", "Date", "Ramp")
cells(x,a) = Inputbox("enter " & b & " data")
Next a
End sub

Ravi

 

[John Davis]

Hi
try the following codes

sub data_entry()
dim a as integer, x as integer
Dim b as string
x= cells(rows.count,1).end(xlUP).row
for a= 2 to 4
b= choose(a-1,"Dock", "Date", "Ramp")
cells(x,a) = Inputbox("enter " & b & " data")
Next a
End sub

Ravi

Thanks for your input. I'll try this first thing in the morning. I got stuck in meetings all day.