Assign name to label in user form

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Dec 22, 2008

• #2

Try

Code:

Private Sub UserForm_Initialize()
Me.Label1.Caption = Sheets("Sheet1").Range("A6").Value
End Sub

 

Upvote 0

M

mikeymay

Well-known Member

Joined

Jan 17, 2006

Messages

1,600

Office Version

1. 365

Platform

1. Windows

• Dec 22, 2008

• #3

The label will change as the routine looks at a list and needs to change it a few times.

Is there a way of doing it without having to re initialise the form every time?

 

Upvote 0

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Dec 22, 2008

• #4

You don't have to use the Initialize code.

Code:

Sub test()
Sheets("Sheet1").Range("A6").Value = "Another"
UserForm1.Label1.Caption = Sheets("Sheet1").Range("A6").Value
UserForm1.Show
End Sub

 

Upvote 0