Application.Caller işlevi hk.

[tamer42]

Merhaba,
Ekli dosyada Application.Caller işlevi neden çalışmıyor olabilir?

teşekkürler,

Private Sub CheckBox2_Click()

Dim button As String

    button = ActiveSheet.Shapes(Application.Caller).Name

End Sub

 

[Korhan Ayhan]

Ekteki gibi olabilir..

Activex yerine Form denetimlerini kullanabilirsiniz.

 

[tamer42]

Ekteki gibi olabilir..

Activex yerine Form denetimlerini kullanabilirsiniz.

Korhan Hocam çok teşekkürler
Form denetiminde checkbox' un true ve false durumunu nasıl kontrol edebiliriz?
Aşağıdaki şekilde hata veriyor.

iyi Çalışmalar.

    Set My_Buton = ActiveSheet.CheckBoxes(Application.Caller)
   
     If My_Buton.OLEFormat.Object.Value = True Then
    
     Else


     End If

 

[tamer42]

Korhan Hocam çok teşekkürler
Form denetiminde checkbox' un true ve false durumunu nasıl kontrol edebiliriz?
Aşağıdaki şekilde hata veriyor.

Aşağıdaki şekilde çözüldü Korhan Hocam,
her şey için teşekkürler,

iyi Çalışmalar.

    Set My_Buton = ActiveSheet.CheckBoxes(Application.Caller)

     If My_Buton.Value = xlOn Then
     
     End If