Copy cells to Userform Textbox

[Jaye7]

I am after a script which copies cells A1:A20 into a userform textbox.

Your help would be appreciated.

 

[pedie]

Your idea seems vague to me...seems pretty easy but not sure what you are up to...

There are experts in here who can help if you can explain what you want more clearly



for now...may be you can link by going in to properties....to the cell
or assign a code like..

cells(1).value = textbox1.value

I am not sure wat u're up as said...since you want range A1:A20 to be copied to a userform text box....

 

[Jaafar Tribak]

Maybe this :

Private Sub UserForm_Initialize()
 
    With TextBox1
        .MultiLine = True
        .ScrollBars = fmScrollBarsBoth
        .Text = Join(Application.Transpose(Range("a1:a20")), vbCr)
        .SelStart = 0
    End With
 
End Sub

 

[Jaye7]

Thanks Jaafar, script works great.