range value as label caption
 

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

range value as label caption
 

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" wrote in message
...
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

range value as label caption
 

thanx rick...

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


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

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

Rick


"pswanie" wrote in message
...
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

range value as label caption
 

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

Rick


"pswanie" wrote in message
...
thanx rick...

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


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

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

Rick


"pswanie" wrote in message
...
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