Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
No Name
 
Posts: n/a
Default Can I do this?

I created an input text boxes to collect name and social
security number on worksheet1. Then click on a command
button to transfer the name and SSN to worksheet2 and
then leave worksheet 1 blank for the next person to sign
up.

I want to use the single input form on worksheet 1 to
build a database on worksheet 2.

Can I do this?

Thanks
Jim

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default Can I do this?

Sure.

When you press the button, find the bottom of the data with

Private Sub CommandButton1_Click()
with Worksheets("Sheet2")
set rng = .Cells(rows.count,1).End(xlup)
End with
With worksheets("Sheet1")
rng.offset(1,0).Value = .Textbox1.Text
.Textbox1.Text = ""
rng.offset(1,1).Value = .Textbox2.Text
.Textbox2.Text = ""
End With
End Sub


--
Regards,
Tom Ogilvy

wrote in message
...
I created an input text boxes to collect name and social
security number on worksheet1. Then click on a command
button to transfer the name and SSN to worksheet2 and
then leave worksheet 1 blank for the next person to sign
up.

I want to use the single input form on worksheet 1 to
build a database on worksheet 2.

Can I do this?

Thanks
Jim



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 13
Default Can I do this?

You could create two ranges in (collection of cells in a column) , everytime find the last cell with information and add the new information.

There could be two text boxes on the form which you could map with the corresponding ranges on sheet2. Also you could hide sheet2 so that no one could see the data

Another suggestion (Why dont you do the same thing in Access)
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 13
Default Can I do this?

Thanks!!

-----Original Message-----
Sure.

When you press the button, find the bottom of the data

with

Private Sub CommandButton1_Click()
with Worksheets("Sheet2")
set rng = .Cells(rows.count,1).End(xlup)
End with
With worksheets("Sheet1")
rng.offset(1,0).Value = .Textbox1.Text
.Textbox1.Text = ""
rng.offset(1,1).Value = .Textbox2.Text
.Textbox2.Text = ""
End With
End Sub


--
Regards,
Tom Ogilvy

wrote in message
...
I created an input text boxes to collect name and

social
security number on worksheet1. Then click on a command
button to transfer the name and SSN to worksheet2 and
then leave worksheet 1 blank for the next person to

sign
up.

I want to use the single input form on worksheet 1 to
build a database on worksheet 2.

Can I do this?

Thanks
Jim



.

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT +1. The time now is 05:22 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"