stesa macro a 1000 pulsanti

[samoa]

Ciao a tutti,

ho una macro in excel 2010:

Sub macro(numeroRiga As Integer)
...
...
End Sub

ed 1000 pulsanti da posizionare uno per ogni riga a cui vorrei assocaciare
questa macro passando come numeroRiga, la riga dove è posizionato il pulsante.

è possibile farlo?

[NonCeLaFaccio+]

Mille pulsanti?
Magari se ci spieghi il problema troviamo una soluzione più semplice, comunque, per rispondere alla tua domanda, il modo per sapere in che riga è posizionato un pulsante è di interrogare la sua proprietà Top, che indica la distanza dalla sommità del foglio e confrontarla col Top di tutte le celle di una colonna qualsiasi:

Private Sub CommandButton1_Click()
   macro (CommandButton1.Top)
End Sub

Private Sub CommandButton2_Click()
   macro (CommandButton2.Top)
End Sub

Private Sub CommandButton3_Click()
   macro (CommandButton3.Top)
End Sub

Sub macro(Sommita As Integer)
   For Each Casella In Range("A:A")
      If Casella.Top >= Sommita Then
         numeroRiga = Casella.Row - 1
         Exit For
      End If
   Next
   MsgBox "La sommità del pulsante si trova nella riga " & numeroRiga
End Sub