intercettare riga

[nicola_na78]

Ciao a tutti, gentilmente mi date una mano a risolvere questo problema...

in un foglio excel nella colonna "A" ho 10 pulsanti (CommandButton da 1-10) inseriti nel campo da A1 - A10.

vorrei fare in modo che premendo ogni pulsante mi compare un msgbox con il numero della riga in cui è posizionato il pulsante.
es. se premo il pulsante 3 che si trova nella riga 3 mi deve dare un messaggio col numero 3 e cosi se premo il pulsante 4 mi deve dire il nome della riga 4 ecc....

come posso fare????

Ringrazio anticipatamente. buona giornata

office 2007
win7

[Flash30005]

Non credo sia una cosa semplice con i commandButtun ma è molto più semplice con una macro di questo tipo da inserire nel vba del foglio

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "A1:A10"
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    MsgBox Target.Row
End If
End Sub


come da esempio allegato

Ciao

[Anthony47]

Prova a inserire nella macro di gestione di ogni commandbutton qualcosa come

Codice: Seleziona tutto

myRow = CommandButton1.TopLeftCell.Row


Poi usi myRow come ti piace...

Ciao

[nicola_na78]

Grazie x la velocità di risposta...
alla prossima