Labele veri aldırmak için yardım

[kadopol]

h1 ile h500 arasındaki erkek sayısını AI hücresine atıyorum. Userformu açtığımda labelimde görünüyor. Yeni kayıt veya değişiklik yaptıımda labeldeki sayı değişmiyor.Ancak formu kapatıp açınca değişiyor. Ben ise değişikliği veya kayıtı yapar yapmaz değişmesini istiyorum.

Intialize olayının altında
Label28.Caption = Range("ANASAYFA!AJ1")

şeklinde belirtmişim.

 

[peleryn]

Merhabalar;

Aşağıdaki kodu sayfanın kod bölümüne yapıştırın.UserForm'ununuzun ismi farklıysa değiştirmeyi unutmayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("aj1")) Is Nothing Then Exit Sub
UserForm1.Label28.Caption = Range("aj1").Value
End Sub