Çözüldü Buton üzerindeki yazıları hücreden almak

[klop01]

Arkadaşlar ekteki belgemde buton üzerindeki yazıları belli bir sayfanın ilgili hücresinden almakla ilgili bir sorum var.
Yardımlarınızı rica ediyorum.

http://s7.dosya.tc/server10/v6wlh5/dinamik_buton.rar.html

 

[turist]

Dosyanızda VBA sayfasındaki "Thisworkbook"(BuÇalışmakitabı) kısmındaki kod sayfasına aşağıdaki kodu yazın.
Diğer sayfalardaki sayfa kodlarını kodları silin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    Dim cb As CommandButton
Dim i As Long
For i = 1 To 15
Set cb = ActiveSheet.Shapes("CommandButton" & i).OLEFormat.Object.Object
    With ActiveSheet
            cb.Caption = Sayfa1.Cells(i, 1)
    End With
Next i
End Sub

 

[klop01]

Çok teşekkürler sayın turist.
İşlem kod tam olarak çalışıyor.

 

[turist]

Çok teşekkürler sayın turist.
İşlem kod tam olarak çalışıyor.

Sağ olun, iyi çalışmalar.