Hi... been a while since i've posted here so Welcome back me!

I got a question for you all, I have about 30 labels on a userform an
I want my userform, on initilize, to fill those labels with values fro
the spreadsheet.

I'm hoping I can set up a small loop to do this and I guess my rea
question is How can I loop through 30 labels?

Would probably look like:

Dim LblName as object
dim i as integer


set lblName = userform.controls("label" & LblNumber)

for i = 1 to 30
lblname.*caption* = worksheets("sheet1").cells(1, *i*).value
next i



Any help would be great.. I have a lot of labels and a loop will mos
deffinatly help here

--
justchri
-----------------------------------------------------------------------
justchris's Profile: http://www.excelforum.com/member.php...nfo&userid=889
View this thread: http://www.excelforum.com/showthread.php?threadid=39802

Maybe:

Private Sub UserForm_Initialize()
Dim lbl As Object
Dim i As Integer
i = 1
With Sheets("Sheet1")
For Each lbl In Me.Controls
If TypeName(lbl) = "Label" Then
lbl.Caption = .Cells(i, 1).Value
i = i + 1
End If
Next lbl
End With
End Sub

Hope this helps
Rowan

"justchris" wrote:


Hi... been a while since i've posted here so Welcome back me!

I got a question for you all, I have about 30 labels on a userform and
I want my userform, on initilize, to fill those labels with values from
the spreadsheet.

I'm hoping I can set up a small loop to do this and I guess my real
question is How can I loop through 30 labels?

Would probably look like:

Dim LblName as object
dim i as integer


set lblName = userform.controls("label" & LblNumber)

for i = 1 to 30
lblname.*caption* = worksheets("sheet1").cells(1, *i*).value
next i



Any help would be great.. I have a lot of labels and a loop will most
deffinatly help here.


--
justchris
------------------------------------------------------------------------
justchris's Profile: http://www.excelforum.com/member.php...fo&userid=8894
View this thread: http://www.excelforum.com/showthread...hreadid=398025

awesome thank you... Ill see what i can do with it :cool

--
justchri
-----------------------------------------------------------------------
justchris's Profile: http://www.excelforum.com/member.php...nfo&userid=889
View this thread: http://www.excelforum.com/showthread.php?threadid=39802

Ok, Im not sure what to do with this..

I have 10 cells on sheet1 a1:a10 that need to go into labels1 - 10

i have 15 cells on sheet1 c10:c25 that need to go into labels 11 -26

and so on. How can i change the code above to fit those needs

--
justchri
-----------------------------------------------------------------------
justchris's Profile: http://www.excelforum.com/member.php...nfo&userid=889
View this thread: http://www.excelforum.com/showthread.php?threadid=39802

How about:

Private Sub UserForm_Initialize()
Dim lbl As Object
Dim i As Integer
i = 1
With Sheets("Sheet1")
For Each lbl In Me.Controls
If TypeName(lbl) = "Label" Then
If i < 11 Then
lbl.Caption = .Cells(i, 1).Value
Else
lbl.Caption = .Cells(i - 1, 3).Value
End If
i = i + 1
End If
Next lbl
End With
End Sub

Regards
Rowan

"justchris" wrote:


Ok, Im not sure what to do with this..

I have 10 cells on sheet1 a1:a10 that need to go into labels1 - 10

i have 15 cells on sheet1 c10:c25 that need to go into labels 11 -26

and so on. How can i change the code above to fit those needs?


--
justchris
------------------------------------------------------------------------
justchris's Profile: http://www.excelforum.com/member.php...fo&userid=8894
View this thread: http://www.excelforum.com/showthread...hreadid=398025

I found this bit of code... this is what i was lookin for, thanks though
Rowan.

UserForm1.Controls("Label" & i).Caption =

This Works!


--
justchris
------------------------------------------------------------------------
justchris's Profile: http://www.excelforum.com/member.php...fo&userid=8894
View this thread: http://www.excelforum.com/showthread...hreadid=398025