Problem with my Label's on userform

[Hjemmet]

Hey Excel Ekspert's

on my userform1 i have 8 Label's there Are taking Data from 8 Different's Cell's
my Problem is that the Label NOT is Opdating Automatik only when i Click On the Specific Label

i Might see the Problem in the Startline of my Code "Private Sub Label71_Click()" But i don't know how to Change that Code

Label71 - Label78

Private Sub Label71_Click()Me.Label71.Caption = ThisWorkbook.Sheets("Cup 128").Range("E267")
resetLabels
End Sub


Private Sub Label72_Click()
Me.Label72.Caption = ThisWorkbook.Sheets("Cup 128").Range("E273")
resetLabels
End Sub


Private Sub Label73_Click()
Me.Label73.Caption = ThisWorkbook.Sheets("Cup 128").Range("E279")
resetLabels
End Sub


Private Sub Label74_Click()
Me.Label74.Caption = ThisWorkbook.Sheets("Cup 128").Range("E285")
resetLabels
End Sub


Private Sub Label75_Click()
Me.Label75.Caption = ThisWorkbook.Sheets("Cup 128").Range("E291")
resetLabels
End Sub


Private Sub Label76_Click()
Me.Label76.Caption = ThisWorkbook.Sheets("Cup 128").Range("E297")
resetLabels
End Sub


Private Sub Label77_Click()
Me.Label77.Caption = ThisWorkbook.Sheets("Cup 128").Range("E303")
resetLabels
End Sub


Private Sub Label78_Click()
Me.Label78.Caption = ThisWorkbook.Sheets("Cup 128").Range("E309")
resetLabels
End Sub

 

[DanteAmor]

When do you want to update the Labels.
For example, when activating the userform:

Private Sub UserForm_Activate()
  Call start_Labels
End Sub


Sub start_Labels()
  Me.Label71.Caption = ThisWorkbook.Sheets("Cup 128").Range("E267")
  Me.Label72.Caption = ThisWorkbook.Sheets("Cup 128").Range("E273")
  Me.Label73.Caption = ThisWorkbook.Sheets("Cup 128").Range("E279")
  Me.Label74.Caption = ThisWorkbook.Sheets("Cup 128").Range("E285")
  Me.Label75.Caption = ThisWorkbook.Sheets("Cup 128").Range("E291")
  Me.Label76.Caption = ThisWorkbook.Sheets("Cup 128").Range("E297")
  Me.Label77.Caption = ThisWorkbook.Sheets("Cup 128").Range("E303")
  Me.Label78.Caption = ThisWorkbook.Sheets("Cup 128").Range("E309")
End Sub

If you are making a calculation and want to see the result of the calculation reflected in the Labels, then after the calculation execute the procedure "start_Labels"


Note: You can simplify start_Labels like this:

Sub start_Labels()
  Dim i As Long, n As Long
  n = 267
  For i = 71 To 78
    Me.Controls("Label" & i).Caption = ThisWorkbook.Sheets("Cup 128").Range("E" & n)
    n = n + 6
  Next
End Sub

 

[Hjemmet]

Thank you Dante Amor

it works with this Code

[COLOR=#333333]Private Sub UserForm_Activate()[/COLOR]  Call start_Labels
End Sub


Sub start_Labels()
  Me.Label71.Caption = ThisWorkbook.Sheets("Cup 128").Range("E267")
  Me.Label72.Caption = ThisWorkbook.Sheets("Cup 128").Range("E273")
  Me.Label73.Caption = ThisWorkbook.Sheets("Cup 128").Range("E279")
  Me.Label74.Caption = ThisWorkbook.Sheets("Cup 128").Range("E285")
  Me.Label75.Caption = ThisWorkbook.Sheets("Cup 128").Range("E291")
  Me.Label76.Caption = ThisWorkbook.Sheets("Cup 128").Range("E297")
  Me.Label77.Caption = ThisWorkbook.Sheets("Cup 128").Range("E303")
  Me.Label78.Caption = ThisWorkbook.Sheets("Cup 128").Range("E309") [COLOR=#333333]End Sub[/COLOR]

 

[DanteAmor]

Thank you Dante Amor

it works with this Code

I'm glad to help you. Thanks for the feedback.