Updating cells using input boxes

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

gdbm@hotmail.com - 29 Sep 2006 11:52 GMT

Hi all

My problem is that i am using Input boxes to update a spreadsheet. I
have two coloums i want to update for two diffent type of information.
I am currently trying to use

Sub Compfees()

MyInput = InputBox("Enter Students Name")
Range("Sheet1!N20").End(xlDown).Offset(1, 0).Value = MyInput

MyInput = InputBox("Enter Fee")
Range("Sheet1!O20").End(xlDown).Offset(1, 0).Value = MyInput

End Sub

But this seems to update the first colum ok and move down updating as
required, but it just replaces the value in the second coloum and
doesn't move down.

Hope you can help

Cheers

Glynn

Reply to this Message

Dave Peterson - 29 Sep 2006 13:34 GMT

I think I'd pick out one of those columns and use that to determine the next
row.

Sub Compfees()
dim NextRow as long

with worksheets("sheet1")
nextrow = .range("N20").end(xldown).offset(1,0).row

MyInput = InputBox("Enter Students Name") = MyInput
.cells(nextrow,"N").value = myInput

MyInput = InputBox("Enter Fee")
.cells(nextrow,"O").value = myInput

end with

End Sub

> Hi all
>
[quoted text clipped - 21 lines]
>
> Glynn

Signature

Dave Peterson

Reply to this Message

gdbm@hotmail.com - 29 Sep 2006 15:14 GMT

> I think I'd pick out one of those columns and use that to determine the next
> row.
[quoted text clipped - 44 lines]
>
> Dave Peterson

Hi Dan

I have tried your solution and it does update the rows as i needed but
the first value i input in coloum N just comes out as False.

Thanks for your help so far.

Cheers

Glynn

Reply to this Message

Don Guillett - 29 Sep 2006 15:25 GMT

who is dAn?

Signature

Don Guillett
SalesAid Software
dguillett1@austin.rr.com

>
>> I think I'd pick out one of those columns and use that to determine the
[quoted text clipped - 57 lines]
>
> Glynn

Reply to this Message

gdbm@hotmail.com - 29 Sep 2006 15:39 GMT

> who is dAn?
>
[quoted text clipped - 63 lines]
> >
> > Glynn

Applogies I was replying to Dave Peterson

Reply to this Message

Dave Peterson - 29 Sep 2006 16:13 GMT

Sorry, there was a typo.

Change this line:
MyInput = InputBox("Enter Students Name") = MyInput
to
MyInput = InputBox("Enter Students Name")

> > I think I'd pick out one of those columns and use that to determine the next
> > row.
[quoted text clipped - 55 lines]
>
> Glynn

Signature

Dave Peterson

Reply to this Message

gdbm@hotmail.com - 02 Oct 2006 21:16 GMT

Many Thanks Dave

It worked like a charm, thanks for you help.

Cheers

Glynn

> Sorry, there was a typo.
>
[quoted text clipped - 62 lines]
> >
> > Glynn

Reply to this Message

Don Guillett - 29 Sep 2006 13:44 GMT

modify this idea to suit
Sub getinput()
With Sheets("sheet7")
lr = .Range("h1").End(xlUp).Row + 1
.Cells(lr, "H").Value = InputBox("Enter Fee")
End With
End Sub

Signature

Don Guillett
SalesAid Software
dguillett1@austin.rr.com

> Hi all
>
[quoted text clipped - 21 lines]
>
> Glynn

Reply to this Message