new approach
 

I am thinking of a new approach for something. I want to create a user form,
and from that user form fill in details on a spreadsheet. that is the simple
part. what I want to do thou is be able to enter the new record on the next
blank line. that is where I am confused. help please.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200906/1

new approach
 

Hi,
you need to look for the first empty row

Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("Projects") ' change to your name

'find first empty row in database
With ws
iRow = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Row

'copy the data to the database
.Cells(iRow, 4).Value = Me.TxtProjectname.Value ' change to your
form name

If this helps please click yes, thanks


"Darrell_Sarrasin via OfficeKB.com" wrote:

I am thinking of a new approach for something. I want to create a user form,
and from that user form fill in details on a spreadsheet. that is the simple
part. what I want to do thou is be able to enter the new record on the next
blank line. that is where I am confused. help please.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200906/1

new approach
 

hi
i wouldn't say this was that new of an approch. excel has had a built in
data form for some time.
2007
http://office.microsoft.com/en-us/ex...366981033.aspx
older
http://www.timeatlas.com/mos/5_Minut..._Input_Easier/

regards
FSt1
"Darrell_Sarrasin via OfficeKB.com" wrote:

I am thinking of a new approach for something. I want to create a user form,
and from that user form fill in details on a spreadsheet. that is the simple
part. what I want to do thou is be able to enter the new record on the next
blank line. that is where I am confused. help please.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200906/1

new approach
 

In your code, iRow will be the last row with data... the OP will need to add
one to it to get to the first *empty* row after it.

'copy the data to the database
..Cells(iRow + 1, 4).Value = Me.TxtProjectname.Value

--
Rick (MVP - Excel)


"Eduardo" wrote in message
...
Hi,
you need to look for the first empty row

Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("Projects") ' change to your name

'find first empty row in database
With ws
iRow = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Row

'copy the data to the database
.Cells(iRow, 4).Value = Me.TxtProjectname.Value ' change to your
form name

If this helps please click yes, thanks


"Darrell_Sarrasin via OfficeKB.com" wrote:

I am thinking of a new approach for something. I want to create a user
form,
and from that user form fill in details on a spreadsheet. that is the
simple
part. what I want to do thou is be able to enter the new record on the
next
blank line. that is where I am confused. help please.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200906/1

new approach
 

This is great wish I would have known about it before but it will not take my
validation lists into consideration

FSt1 wrote:
hi
i wouldn't say this was that new of an approch. excel has had a built in
data form for some time.
2007
http://office.microsoft.com/en-us/ex...366981033.aspx
older
http://www.timeatlas.com/mos/5_Minut..._Input_Easier/

regards
FSt1

I am thinking of a new approach for something. I want to create a user form,
and from that user form fill in details on a spreadsheet. that is the simple
part. what I want to do thou is be able to enter the new record on the next
blank line. that is where I am confused. help please.

--
Message posted via http://www.officekb.com