UserForm daki Durum Çubuğu

[SanaLSukuL]

Userformdaki durum çubuğuna sayfa1 den A1 hücresindeki yazılanı aktarmak istiyorum yardımcı olur musunuz?
Resimde neyi kastettiğimi anlatabilmişimdir inşallah TŞK.

 

[xxrt]

Private Sub UserForm_Initialize()
UserForm1.Caption = [A1]
End Sub

 

[SanaLSukuL]

sayfa ismi ile nasıl yapabiliriz
mesela sayfa ismi veritabanı olursa nasıl olacak bu kod

 

[xxrt]

sayfa ismi ile nasıl yapabiliriz
mesela sayfa ismi veritabanı olursa nasıl olacak bu kod

Private Sub UserForm_Initialize()
UserForm1.Caption = Sheets("veritabanı").Range("A1")
End Sub

 

[SanaLSukuL]

teşekkür ederim