Help needed for textbox to cell copy paste

[projester]

Hi
I am using Excel 2007 and Vista.

I've been trying to find a way to copy the text from a textbox ("ProjectName") on one worksheet "Data Input" and paste it to a cell in another worksheet "Project Data".

I have the code that activates the text box but I havent been able to find a clear way to copy and past the text from that textbox in the way that I want.

The books I've got don't really seem to address doing this and I haven't been able to find a solution online that has worked.

So far it is just:

Sub Textbox()

Sheets("Data Input").Select
ActiveSheet.ProjectName.Activate


End Sub

 

[Misca]

I'm not sure if your textbox "ProjectName" is a range (as it seems to be in your code) or an actial TextBox as you're saying it is. So I'm trying to cover both cases:

1) If "ProjectName" is a range:

Without knowing how big the range is I'm using the resize here. If it's just one single cell you can just leave it out. Also i don't know where you want the data on the "Project Data" so I'm supposing you want it starting from the first empty cell on column A. Here's my code:

Dim rng As Range
Dim Height As Long
Dim Width As Long

'Checks the size of the range:
Set rng = Range("ProjectName")
Height = rng.Rows.Count
Width = rng.Columns.Count

'Finds the first empty cell on Column A on the "Project Data" sheet:
Set rng = Sheets("Project Data").Range("A" & Sheets("Project Data").Rows.Count).End(xlUp).Offset(1, 0)
'Resizes the found range to match the range "ProjectName":
Set rng = rng.Resize(Height, Width)
'Writes the values:
rng.Value = Range("ProjectName").Value

2) If "ProjectName" is a TextBox on your UserForm and you want to write the data to two separate sheets. Once again I'm supposing you want the text to be written on the first empty cell on column A on both sheets (This code needs to be in the UserForm module):

Private Sub CommandButton1_Click()
'Writes to the first sheet:
Sheets("Data Input").Range("A" & Sheets("Data Input").Rows.Count).End(xlUp).Offset(1, 0).Value = Me.ProjectName.Value
'Writes to the second sheet:
Sheets("Project Data").Range("A" & Sheets("Project Data").Rows.Count).End(xlUp).Offset(1, 0).Value = Me.ProjectName.Value
'Closes the UserForm:
Unload Me

End Sub