cell content in textbox on userform....

[ExcelNovice]

All, I'm trying to display the content of a number of cells in different textboxes on a VBA Userform.

On the userform are different textboxes:
For textbox1: need VBA to display the content of cell cg220
For textbox2: need VBA to display the content of cell cg221

and so on....

Thanks for your help.

 

[brettdj]

If you buttons are always TextBox1, TextBox2 .... TextBoxX then you could try code like this in your UserForm code module which will load the values automatically when the UserForm is shown . It will exit on an invalid (ie non existent) Textbox fill

Pl note this code loads the cell contents from the first sheet of the workbook containing the UserForm

hth

Dave

Private Sub UserForm_Activate()
    Dim ws As Worksheet
    Dim lngRow As Long
    Set ws = ThisWorkbook.Sheets(1)
    On Error Resume Next
    Do
        lngRow = lngRow + 1
        Me.Controls("Textbox" & lngRow).Value = ws.Range("cg220").Offset(lngRow - 1, 0)
    Loop While Err.Number = 0
End Sub

 

[ExcelNovice]

Brettdj, thanks....this is close to the solution, but using it I'm unable to restrict specific cell content to specific textbox; how do I do that?

 

[Ruddles]

More simply:-

Private Sub UserForm_Activate()
 
    Dim ws As Worksheet
 
    Set ws = ThisWorkbook.Sheets(1) [COLOR=green]' this points to the worksheet containing the data to be displayed[/COLOR]
 
    textbox1=ws.range("cg220")
    textbox2=ws.range("cg221")
   [COLOR=green]' ...etc[/COLOR]
    textbox99=ws.range("zz999")
 
End Sub

 

[brettdj]

Brettdj, thanks....this is close to the solution, but using it I'm unable to restrict specific cell content to specific textbox; how do I do that?

Hi, well as you seemed to be providing a regular pattern I coded for that rather than building a long hardcoded fixed list - but if thats what you actually needed if there wasn't a repeatable pattern then Ruddles has provided it

Cheers

Dave