Label Caption

[proctk]

Hi

I'm trying to get the value on my userform to equal the last value used in column 7 on sheet3.

I want it to recalculate the label value on each worksheet change.

 

[Norie]

I don't actually think you will be able to use the worksheet change event with the userform.

I may be wrong though.

Perhaps you could explain further exactly what you want to do.

 

[proctk]

Okay, I want to added to userform initialize. How would I do this

 

[Norie]

Perhaps something like this.

Label1.Caption = Worksheets("Sheet3").Cells(65536,7).End(xlUp).Value

 

[proctk]

Thank you for the help

 

[HalfAce]

Hello Kevin,
Assumming your userform is being shown as vbModeless, (which it would need to be in order for manual changes to be made while it's showing) you can use the worksheet change event like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
With UserForm1.Label1
    .Caption = Cells(Rows.Count, 7).End(xlUp).Value
End With
End Sub

It would probably be a good idea to use the initialize event like Norie showed you too.

Hope it helps.
Dan