CommandButton ismini hücrede yazılandan alsın

[SanaLSukuL]

Sayfa1 de yapılan CommandButton1 butonunun üstünde yazan CommandButton1 yazısı Sayfa3 deki A1 hücresinde yazılan isim veya yazı olsun ve tıklayınca Sayfa2 açılsın.
Böyle bir çalışma yapabilir miyiz?
Baya bi uğraştım olmadı. Tşk ler

 

[Seyit Tiken]

Örnek dosyayı inceleyiniz.

 

[SanaLSukuL]

Sn. Seyit Tiken teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Bu işlemin dosya açılışında olmasını istiyorsanız. Aşağıdaki kodu ThisWorkbook bölümüne uygulayın.

Private Sub Workbook_Open()
    Sheets("Sayfa1").CommandButton1.Caption = Sheets("Sayfa3").Range("A1")
End Sub

Eğer CommandButton1 üzerine mouse ile geldiğinizde ismin değişmesini isterseniz. Aşağıdaki kodu butonun bulunduğu sayfanın kod bölümüne uygulayın.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton1.Caption = Sheets("Sayfa3").Range("A1")
End Sub

Butona tıkladığınızda Sayfa2 ye geçebilmek için yine butonun bulunduğu sayfanın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub CommandButton1_Click()
    Sheets("Sayfa2").Select
End Sub

 

[SanaLSukuL]

Sn. COST_CONTROL teşekkür ederim. Siz ve sizin gibi üstadların sayesinde daha çook şeyler öğreneğimize inanıyorum. Saolun iyiki varsınız.