range value as label caption

[pswanie]

i got a few labels on a userform. most of them in a frame.

1) few of them need to show data in sheet1 colum a cell 1 untill empty row

2) other just need to show sheet1 column b cell 25

 

[Rick Rothstein \(MVP - VB\)]

You might consider using a ListBox for your first item; that way your users
would have a scroll bar to be able to view long lists. You could load it up
with code like this...

Dim C As Range
With Worksheets("Sheet1")
For Each C In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
ListBox1.AddItem C.Value
Next
End With

As for your second item, this will do it...

Label1.Caption = Cells(25, "B").Value

Rick

 

[pswanie]

thanx rick...

one more Q. how will i go to the last cell in column b and make that the
caption for label1?

 

[Rick Rothstein \(MVP - VB\)]

Label1.Caption = Cells(Cells(Rows.Count, "B").End(xlUp).Row, "B").Value

Rick