VBA excel - Pulsante per aprire Macro

Question

Buonasera, in un foglio excel ho 2 pulsanti (1, 2) ed ho la necessità premendo il pulsante 1 che scriva 1 nella cella A1, premendo il pulsante 2 scriva 2 nella cella B1. Ovviamente ho esemplificato, ma il concetto è quello. In effetti in Access lo faccio banalmente scrivendo:
Sub Pulsante()
Dim AZ as Integer

    AZ = Me.ActiveControl.Caption  'ricavo la lettera dall'etichetta data al pulsante

    If AZ = 1 Then

fai questo

    Else

    fai altro   

End If

End Sub  

Il problema è che il VBA di Excel non mi accetta il Me.ActiveControl.Caption e vorrei evitare di scrivere il codice per ciascun pulsante. Ho cercato anche di utilizzare la casella "opzioni di gruppo" ma in Excel (Windows10) non la trovo.
Grazie.

Answer 1

Ciao Luigi,

in un foglio excel ho 2 pulsanti (1, 2) ed ho la necessità premendo il pulsante 1 che scriva 1 nella cella A1, premendo il pulsante 2 scriva 2 nella cella B1. Ovviamente ho esemplificato, ma il concetto è quello. In effetti in Access lo faccio banalmente scrivendo:
Sub Pulsante()
Dim AZ as Integer

    AZ = Me.ActiveControl.Caption  'ricavo la lettera dall'etichetta data al pulsante

    If AZ = 1 Then

fai questo

    Else

    fai altro   

End If

End Sub
Il problema è che il VBA di Excel non mi accetta il Me.ActiveControl.Caption e vorrei evitare di scrivere il codice per ciascun pulsante. Ho cercato anche di utilizzare la casella "opzioni di gruppo" ma in Excel (Windows10) non la trovo.

Prova ad assegnare una macro del seguente genere ai due pulsanti:

'========>>

Option Explicit

'-------->>

Public Sub Pulsante()

Dim SH As Worksheet 

Dim sCaption As String 

Set SH = ActiveSheet 

With SH 

    sCaption = .Buttons(Application.Caller).Caption 

    If sCaption = 1 Then 

        .Range("A1").Value = sCaption 

    ElseIf sCaption = 2 Then 

        .Range("B1").Value = sCaption 

    End If 

End With 

End Sub

'<<========

===

Regards,

Norman

Answer 2

Ciao Luigi,

Grazie Normann, sempre disponibile e perfetto.
Un cordiale saluto.

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Grazie Normann, sempre disponibile e perfetto.
Un cordiale saluto.

Luigi.