Userformda Aktif Sayfa Adı

[class37]

Merhaba
Userform üzerindeki Label veye Textboxa aktif sayfanın adını alabilirmiyiz?

 

[xxrt]

Private Sub UserForm_Initialize()
TextBox1.Value = ActiveSheet.Name
Label1.Caption = ActiveSheet.Name
End Sub
Diğer nesneleride aynen uygulanabilir.

 

[class37]

Teşekkürler.

 

[ocamsul]

ARKADAÞLAR BU KODLARI HANGİ İÞLEVİN İÇİNE YAPIÞTIRACAÐIMI ANLATIRMISINIZ.

 

[isakarakus]

merhaba
user forma çift tıkla,

Private Sub UserForm_Click()

End Sub

click olayına yapıştır.
örnek..

Private Sub UserForm_Click()

MsgBox ActiveSheet.Name

End Sub

 

[ocamsul]

TEÞEKKÜR EDERİM isakarakus KARDEÞ.

 

[isakarakus]

ben de formun değerli ustadlarına teşekkür ediyorum.