Creare pulsante con vba

[blunotte13]

Ciao a tutti, ho trovato questa macro che crea, rinomina ed assegna una macro ad un pulsante

Codice: Seleziona tutto

Sub pulsante_ordina()
ActiveSheet.Buttons.Add(650, 1.5, 95.25, 30.75).Select
ActiveSheet.Buttons.Text = "ORDINA"
Selection.OnAction = "ordina"
End Sub


Riesco a creare tre pulsanti e ad assegnare la macro ma, al momento di rinominare il pulsante attivo, vengono rinominato anche gli altri, come si può fare ?

Aggiungo anche le macro per creare gli altri pulsanti.

Grazie

Codice: Seleziona tutto

Sub pulsante_ordina_1()
ActiveSheet.Buttons.Add(750, 1.5, 95.25, 30.75).Select
ActiveSheet.Buttons.Text = "ORDINA 1"
Selection.OnAction = "ordina_1"
End Sub


Codice: Seleziona tutto

Sub pulsante_ordina_2()
ActiveSheet.Buttons.Add(850, 1.5, 95.25, 30.75).Select
ActiveSheet.Shapes("Button 3").Select
ActiveSheet.Buttons.Text = "ORDINA 2"
Selection.OnAction = "ordina_2"
End Sub


[Marius44]

Ciao
Credo manchi qualcosa.
Le macro che assegni a ciascun pulsante cosa fanno?
Mi riferisco a "ordina", "ordina_1" e "ordina_2"

Ciao,
Mario

[Anthony47]

Ciao Mario, il problema segnalato non dovrebbe dipendere da cosa fanno le macro richiamate tramite On.Oction, ma dal modo con cui si indirizzano i controlli.

@blunotte:
Con ActiveSheet.Buttons.Text tu indirizzi tutti i Buttons del foglio; visto che il Button aggiunto e' anche selezionato, la cosa piu' semplice e' usare Selection.Text; cioe':

Codice: Seleziona tutto

Sub pulsante_ordina_1()
ActiveSheet.Buttons.Add(750, 1.5, 95.25, 30.75).Select
Selection.Text = "Ordina_1"
Selection.OnAction = "ordina_1"
ActiveWindow.RangeSelection.Select      'Elimina la selezione dal button
End Sub

In alternative, devi indirizzare l'ultimo button creato; tipo:

Codice: Seleziona tutto

ActiveSheet.Buttons(ActiveSheet.Buttons.Count).Text = "ORDINA 1"

Ciao

[Zer0Kelvin]

Salve a tutti.
Si può anche fare a meno (più corretto, secondo me) di usare select

Codice: Seleziona tutto

Sub pulsante_ordina_1()

    With ActiveSheet.Buttons.Add(750, 1.5, 95.25, 30.75)
        .Text = "Ordina_1"
        .OnAction = "ordina_1"
    End With
   
End Sub

Sarebbe anche possibile, volendo, usare un ciclo per creare i tre pulsanti

Codice: Seleziona tutto

Sub pulsanti_ordina()
   
    Dim NomeP As Variant
    Dim LeftP As Single
   
    LeftP = 650
    For Each NomeP In Array("Ordina", "Ordina_1", "Ordina_2")
        With ActiveSheet.Buttons.Add(LeftP, 1.5, 95.25, 30.75)
            .Text = NomeP
            .OnAction = NomeP
        End With
        LeftP = LeftP + 100
    Next NomeP
   
End Sub

[blunotte13]

Consigli utilissimi, proverò le sloluzioni che mi avete proposto, per adesso grazie a tutti e buona giornata.

[blunotte13]

Per completezza e per altri utenti a cui possono servire queste macro: la soluzione di @Anthony47 funziona, il ciclo di @Zer0Kelvin è invece una soluzione perfetta per me. Buona giornata.