EXCEL Lancio macro da cella

[Francesco53]

Buona giornata a tutti,
in un foglio excel dalla cella A1 sino alla cella A10 ho dei valori o nomi,
cercavo di inserire su ogni cella facendo doppio click la relativa macro
abbinata esempio:
doppio click cella A1 call macro uno
doppio click cella A2 call macro due
e cosi via sino a A10 call macro dieci.
Grazie
Francesco

[Flash30005]

Nel vba del foglio (non modulo)
inserisci questo codice

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
CheckArea1 = "A1:A10"
If Not Application.Intersect(ActiveCell, Range(CheckArea1)) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Row = 1 Then Call macro1
        If ActiveCell.Row = 2 Then Call macro2
        If ActiveCell.Row = 3 Then Call macro3
        If ActiveCell.Row = 4 Then Call macro4
        If ActiveCell.Row = 5 Then Call macro5
        If ActiveCell.Row = 6 Then Call macro6
        If ActiveCell.Row = 7 Then Call macro7
        If ActiveCell.Row = 8 Then Call macro8
        If ActiveCell.Row = 9 Then Call macro9
        If ActiveCell.Row = 10 Then Call macro10
        Application.EnableEvents = True
End If
End Sub


nel modulo
metterai 10 macro numerate
macro1,
macro2,
macro3
etc

Ciao

[Francesco53]

GRazie Flash.
Buona giornata
Francesco