UserForm üstündeki Labele hücredeki yazılanı gösterme

[SanaLSukuL]

Userform üzerine bir LABEL yerleştirdik ama
sabit sayfasındaki A1 hüceresinde yazılanı LABEL de nasıl gösterilir.
yardımlarınızı bekliyorum
SAYGILAR...

 

[ahbalci]

Private Sub UserForm_initialize()
Label1.Caption = Sheets("sayfa1").Range("a1").Value
End Sub

 

[SanaLSukuL]

RunTime hatası yaptı
başka bir yolu yokmu bunun
mesela propertiesinden felan gelirtemezmiyiz

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1 = [A1].Value
End Sub

Not : Maus Label üzerine gittiği zaman, hücredeki değer Label'e yansıyor.
Farklı Nesne/Olay'ı deneyin. Kendinize uygun olanı seçiniz.

 

[SanaLSukuL]

çook teşekkür ederim oldu
SAYGILAR..