Novice Looking For Help

[Skyhook]

I have a userform with 3 text boxes. When the user clicks the command button it places the contents of the textboxes on sheet 1 (row 1 column B). What is happening is that each time the commandbutton is clicked it replaces the text already on sheet one. I need a code that will look for the last row and last column that has data and place the contents in the next empty cell and column.

Thanks in Advance

 

[AJ]

Hiya,

Could you adapt something like the following for your purposes...

Say you're filling in Column A

Sub FillDataFromTextbox

Dim Lastrow As Integer

Lastrow = Range("A65536").End(xlUp).Row

Range("A" & Lastrow + 1).Value = Userform1.Textbox1.Value

End Sub

Rgds
AJ

 

[Audiojoe]

I have something very similar to this. I put this code into my command button:

Columns("B:B").Insert Shift:=xlToRight
Range("A1").Select

I have code in each of my textboxes along the lines of:

Worksheets("sheet1").range("b1").value=textbox1

so that as soon as your answer goes into textbox1, it appears on your sheet. When you click the command button at the end, it inserts a row, shifting your answers to column C, archiving them

 

[Skyhook]

Thanks AJ, just what the Dr. ordered