Hücredeki değeri butona isim olarak atamak

[aliakgul]

Merhaba arkadaşlar,
Hücrede bulunan değeri userform1'deki düğmeye isim olarak atamak istiyorum.
Şöyle ki;
sayfa1'deki c1 hücresinde "Matematik" yazmakta. Userform açıldığında button1'in adı "Matematik" olarak görünsün.
Hücredeki değer değiştiği zaman butonun adının da değişmesi (güncellenmesi) gerekiyor. Şimdiden teşekkür ederim...

 

[zafer]

Merhaba

Private Sub UserForm_Initialize()
CommandButton1.Caption = sheets("[COLOR=red]sayfaadı")[/COLOR].Range("c1")
End Sub

 

[aliakgul]

Userform farklı bir sayfada açılırsa sorun vermez mi?

 

[zafer]

Merhaba

Private Sub UserForm_Initialize()
CommandButton1.Caption = sheets("[COLOR=red]sayfaadı")[/COLOR].Range("c1")
End Sub

 

[aliakgul]

Teşekkür ederim, hemen uyguluyorum.
Hızlı cevaba, hızlı uygulama...

Sonuç tam istediğim gibi... Tekrar teşekkür ederim.

 

[Seyit Tiken]

Hangi sayfadan veri alınacaksa, o sayfanın kod bölümüne kodu yapıştırın. UserForm açık dahi olsa, hücredeki isim değişikliği anında butona yansır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.CommandButton1.Caption = [a1]
End Sub