Three Textbox.value enter into one cell from Userform

**ebin charles** · 06-15-2011, 07:27 AM

Hello,

Please my masters,
Help me to feed three Textbox.Value into one cell by adding 3.

TextBox1 = ebin
TextBox2 = excel
TextBox3 = martin, so the result should be
A1 cell = ebin / excel / martin

I tried many methods to solve this, I can't move without your help.

Regards
charles

**mohd9876** · 06-15-2011, 07:39 AM

try something like this:

Range("A1").Value = TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text

**ebin charles** · 06-15-2011, 07:44 AM

Originally Posted by mohd9876

try something like this:

Range("A1").Value = TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text

Thank you so much.
It helps to enter in A1, ok,
But when I enter next time it should be in A2, likewise it should continue
down rows as I enter next data.

Please help me.

Regards
charles

**markee** · 06-15-2011, 07:56 AM

I'm not proud of this code but it saves the values in the textboxes when a button is clicked. Have you tried something like this? -

Private Sub CommandButton1_Click()

Dim T As String

Sheets("Sheet1").Activate
Range("A1").Select

Task = TextBox1.Value & "/" & TextBox2.Value

ActiveCell.Value = T

End Sub

**markee** · 06-15-2011, 08:01 AM

Sorry I should've checked before posting.

If you check for a value in A1, if its NOT empty offset by 1,0 (or to move active cell to the right 0,1) until cell is empty. Then concatenate values as described above

   Sheets("Sheet1").Activate

Range("A1").Select

 If IsEmpty(ActiveCell) = False Then

        ActiveCell.Offset(1, 0).Select

    End If

    Loop Until IsEmpty(ActiveCell) = True

**ebin charles** · 06-15-2011, 08:02 AM

Originally Posted by markee

I'm not proud of this code but it saves the values in the textboxes when a button is clicked. Have you tried something like this? -

Private Sub CommandButton1_Click()

Dim T As String

Sheets("Sheet1").Activate
Range("A1").Select

Task = TextBox1.Value & "/" & TextBox2.Value

ActiveCell.Value = T

End Sub

Thank you Mohd & Markee,

I alter Mohd code into like this

.Cells(lRow, 1).Value = Me.cboPart.Text & "/" & cboPart1.Text & "/" & cboPart2.Text & "/" & cboPart3.Text

Thank you once again.
charles

Three Textbox.value enter into one cell from Userform

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Three Textbox.value enter into one cell from Userform

Re: Three Textbox.value enter into one cell from Userform

Re: Three Textbox.value enter into one cell from Userform

Re: Three Textbox.value enter into one cell from Userform

Re: Three Textbox.value enter into one cell from Userform

Re: Three Textbox.value enter into one cell from Userform

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions