How to autopopulate a textbox linked to a cell

[Patriot2879]

Hi hope you can help, I have a userform1 with multiple texboxes in and I want this to automatically load up with informaton from the 'Data' sheet into the textbox, I have done the code below but its not working, nothing appears in textbox1. for Example TextBox1 I want to look in a sheet called 'Data' and the range is B1, this is in date format dd/mm/yyyy and it should be vertical going down.. can you help please.

Private Sub TextBox1_Change()
TextBox1.Value = Sheets("Data").Range("B1").Value
End Sub

 

[Patriot2879]

I hope this makes sense? and I hope you can help

 

[Patriot2879]

I have also tried the code below but still didn't work

Private Sub TextBox1_Change()
Me.TextBox1.Text = Worksheets("Data").Range("B1").Value
End Sub

 

[jmacleary]

Hi there. You need to put the code that inserts the value in the userform initialize subrutine like so:

Private Sub UserForm_Initialize()
Me.TextBox1.Text = Worksheets("Data").Range("B1").Value
End Sub

 

[Patriot2879]

Hi that works great thank you but how do I get it to show vertically?

 

[Patriot2879]

I mean vertically down, I have reshaped the text box so its going down instead of across so I need the text to go vertically down if possible?
The height of each textbox is 82.8 and the width is 18

 

[jmacleary]

Glad to hear it worked. I assume B1 has in it something like "16/09/2019" but I'm still unclear on exactly what you want to see. Do you mean that you want to see (in textbox1) something like this:

1
6
/
0
9
/
2
0
1
9

 

[Patriot2879]

that's it yes please how do I do that please

 

[Patriot2879]

but if I can have it going thsi way please
9
1
0
2
\
8
0
\
2
2

For example

 

[jmacleary]

Try this:

Private Sub UserForm_Initialize()
Dim DateStr As String
Dim ResultStr As String
DateStr = Worksheets("Data").Range("B1").Text
ResultStr = Right(DateStr, 1)
For i = Len(DateStr) - 1 To 1 Step -1
    ResultStr = ResultStr & vbCrLf & Mid(DateStr, i, 1)
Next i
Me.TextBox1.MultiLine = vbTrue
Me.TextBox1.Text = ResultStr
End Sub