مساعدة إدراج إسم الشيت في عنوان اليوز فورم تلقائي

[الجموعي]

السلام عليكم ورحمة الله تعالى وبركاته

 

مساعدة إدراج إسم الشيت في عنوان اليوز فورم تلقائي

 

أنا إستعملت هذا الكود التالي

Me.Caption = Worksheets("DATA").Name
أو
Me.Caption = "DATA"

اريده إرتباط اليوز فورم بإسم  بالشيت

[ياسر خليل أبو البراء]

تفضل أخي الغالي

Private Sub UserForm_Initialize()

    Me.Caption = ActiveSheet.Name
    
End Sub

[الجموعي]

 

تفضل أخي الغالي

Private Sub UserForm_Initialize()

    Me.Caption = ActiveSheet.Name
    
End Sub

 

بارك الله فيك أستاذي أبو البراء

جزاك الله كل الخير

سؤال فضولي

هل فيه إمكانية أن أجعل النص متحرك؟

[محمد لطفى]

 رائع رائع