VBA in Excel
 

I am a new VBA programmer. I have code similiar to:

label1.visible = true
label2.visible = true
label3.visible = true

Clearly this is suitable for a for loop. I an having difficulties figuring
out the code for such an action. Any suggestions?

VBA in Excel
 

On Jun 8, 6:27 pm, Dunc_w wrote:
I am a new VBA programmer. I have code similiar to:

label1.visible = true
label2.visible = true
label3.visible = true

Clearly this is suitable for a for loop. I an having difficulties figuring
out the code for such an action. Any suggestions?

Hello Dunc_w,

Provided these labels are on a UserForm and the numbers are sequential
then this will work...
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub ShowLabels()

Dim I

For I = 1 To 3
UserForm1.Controls("Label" & I).Visible = True
Next I

End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sincerely,
Leith Ross

VBA in Excel
 

Hello Leith,

I tried a similar one but this one do not work. The code is executing
without an error but the captions are not changed.

L_HP_1 is a Label Name
and Camp_CF is a userform

Sub ShowLabels()

Dim I As Integer

For I = 1 To 3
Camp_CF.Controls("L_HP_" & I).Caption = "Akash"
Next I

End Sub
--
Akash Nath
Hewlett Packard India


"Leith Ross" wrote:

On Jun 8, 6:27 pm, Dunc_w wrote:
I am a new VBA programmer. I have code similiar to:

label1.visible = true
label2.visible = true
label3.visible = true

Clearly this is suitable for a for loop. I an having difficulties figuring
out the code for such an action. Any suggestions?

Hello Dunc_w,

Provided these labels are on a UserForm and the numbers are sequential
then this will work...
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub ShowLabels()

Dim I

For I = 1 To 3
UserForm1.Controls("Label" & I).Visible = True
Next I

End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sincerely,
Leith Ross