Capture Data Entered in textboxes into New Worksheet

[ellehcer08]

I have a userform with 4 textbox in it, and I want the information typed in those textbox to be saved in a NEW sheet on the same workbook.

For example, if I type information in those textbox, and I click the button SAVE, it will generate a new sheet and save the information there in cell B2, B3, B5 and B7 respectively. (New worksheet everytime I click SAVE).

Please help! Thank you.

 

[tlowry]

make that "multiple cells" not multiple should

 

[ellehcer08]

How are you putting the data in these boxes on the form? The code is looking for a CRLF to indicate new line. Did UNIX get in here?

what do you mean by that? I am using Excel 2011, I dont know if that is because of that... But whenever I type in the txtIngredients and txtProcedure textboxes, in order to create another line, I press ENTER key to go to another line... And when I saved it, it just form in single line...

This is your code right? I didn't change anything with it so far..

With ThisWorkbook.Sheets.Add(after:=Sheets(ThisWorkbook.Sheets.Count))        .Name = TextBox1
        .Range("B2") = StrConv(Me.TextBox1, vbUpperCase)
        .Range("B3") = Me.TextBox2
        .Range("B6") = "Ingredients:"
        linesTB3 = Split(Me.TextBox3.Text, vbCrLf)
        For i = 0 To UBound(linesTB3)
            .Range("B7").Offset(i, 0) = linesTB3(i)
        Next i
        linesTB4 = Split(Me.TextBox4.Text, vbCrLf)
        startrow = 10 + UBound(linesTB3)
        .Range("B" & startrow) = "Procedure:"
        startrow = startrow + 1
        For i = 0 To UBound(linesTB4)
            .Range("B" & (i + startrow)) = linesTB4(i)
        Next i
    End With

 

[tlowry]

https://www.box.com/s/te1c9dt27yg1si48823q

I'm very confused. It works for me into multiple cells.

Above is a link that you can use to download my file. Please give it a try to see if you get multiple cells from the multiple line text boxes.

tlowry

 

[ellehcer08]

https://www.box.com/s/5iv5sal6ej5lvgn0ngm1

I downloaded the file, but there's nothing in it... Anyway, I setup an account as well in box.com... and I uploaded my file too. You can check it and advise me if I did something wrong or that will work for you., cause it's not really working for me.. Thank you so much!

 

[tlowry]

Well, I'm using Excel (xls) and you are using Office (xlm). Can you figure out how to save your file as an xls file and put it on Box.com? Or can you save the file to disk and then open it with Office? (I can read my file through the Box.com link I gave in Excel)

 

[ellehcer08]

https://www.box.com/s/03wcwoma0apanbnezfrl

here you go.. i upload it again as .xls.. i downloaded your file, I can open it but there's nothing in it. just like a new workbook.. I dont know what's wrong..
just let me know again.. thank you!!

 

[tlowry]

Same story here... empty file.

I think this may be an end of line character problem. I'll get back to you ...

tlowry

 

[tlowry]

Here's another go at it.

I've replaced the end of line indicators (CRLF and LF) with CR and split the lines from the multi-line TextBoxes by CRs. I hope this works (it does here)

tlowry

Private Sub CommandButton1_Click()
    With ThisWorkbook.Sheets.Add(after:=Sheets(ThisWorkbook.Sheets.Count))
        .Name = TextBox1
        .Range("B2") = Me.TextBox1
        .Range("B3") = Me.TextBox2
        .Range("B6") = "Ingredients:"
        LinesTB3 = Split(FixLines(Me.TextBox3), vbCr)
        For i = 0 To UBound(LinesTB3)
            .Range("B7").Offset(i, 0) = LinesTB3(i)
        Next i
        linesTB4 = Split(FixLines(Me.TextBox4), vbCr)
        startrow = 10 + UBound(LinesTB3)
        .Range("B" & startrow) = "Procedure:"
        startrow = startrow + 1
        For i = 0 To UBound(linesTB4)
            .Range("B" & (i + startrow)) = linesTB4(i)
        Next i
    End With
End Sub
Function FixLines(sLine) As String
    FixLines = ""
    linehold = Replace(sLine, vbCrLf, vbCr)
    FixLines = Replace(linehold, vbLf, vbCr)
End Function

 

[ellehcer08]

You're such a heaven sent tlowry!! Works perfect! Thank you so much! I finally got this to work (because of you!)... Thank you!!!

 

[Mythilisub]

I have a userform with 4 textbox in it, and I want the information typed in those textbox to be saved in a NEW sheet on the same workbook.

For example, if I type information in those textbox, and I click the button SAVE, it will generate a new sheet and save the information there in cell a2, B2, c2 and d2 respectively.
Please help! Thank you.

Hi all,

i need to do this same function but i need to save data in same worksheet one cell after another(i.e next values need to be saved in a3 ,b3 and so on)

Please me