Moving values from one text box to another.

[justm3wi]

I've got a userform that will have 6 text boxes on it that show up one at a time when a value in the previous one gets a value.

I want to make it so that if for example TextBox1, TextBox2, and TextBox3 currently have a value and TextBox4 is visible with no value. If the value in TextBox2 is deleted it will move the value of TextBox3 to TextBox2 and make TextBox4 not visible. Leaving TextBox3 visible with no value.

It would do the same thing no matter how many of the textboxes had a value and one was deleted, always leaving 1 empty textbox

I've tried searching the forms for something that would work but haven't had any luck.

[hafizimran]

Try it...

Please Login or Register  to view this content.

[justm3wi]

I get an error in the red line below when I try to run it. I'm not the best with VB code, it looks right to me.

Private Sub ReArrangeValues()
For i = 1 To 5
If Me.Controls("TextBox" & i).Text = "" Then
If Me.Controls("TextBox" & i + 1).Text <> "" Then
Me.Controls("TextBox" & i).Text = Me.Controls("TextBox" & i + 1).Text
Me.Controls("TextBox" & i + 1).Text = ""
Else
Me.Controls("TextBox" & i + 1).Visible = False
End If
End If
Next
End Sub

[justm3wi]

I think I figured it out, I only had 5 textboxes on the userform I was trying it out on.

I changed
For i = 1 to 5

to

For i = 1 to 4

And it appears to be working correctly.

Thanks for the help