LABEL - VBA

[אופיר 2013]

היי חברים ,
יש לי 1userform פשוט עם 2 כפתורים : דויד + שלום.
כל כפתור שותל את השם בתא A1 בחוצץ בשם A

יש בטופס תווית שאני מנסה שתציג את השם שנבחר (משמע שהתווית תציג את הטקסט ב A1)
לצערי לא ההצלחה ... תודה רבה לעוזרים !

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strCap As String
strCap = Sheets("A").Range("A1").Value
UserForm1.Label1.Caption = strCap
End Sub

 

[ziv98]

לדעתי אם הטופס יהיה פתוח ברקע - המאקרו שלך יעבוד.
נסה להריץ לפני השינויים ב - A1:

Sub show_ml()
UserForm1.Show vbModeless
End Sub