Non ho idea se si possa realizzare con formule o macro
Una soluzione mista:
-nel modulo vba del foglio MENU inserisci:
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CkArea As String
'
CkArea = "B4:F10"
If Not Application.Intersect(Range(CkArea), Target.Cells(1, 1)) Is Nothing Then
If Target.Cells(1, 1) <> "" Then Range("P1").Value = Target.Cells(1, 1)
End If
End Sub
(usa la cella P1 come appoggio)
Poi in B13 metti la fromula
- Codice: Seleziona tutto
=SE.ERRORE(CERCA.ORIZZ(P1;N2:AD3;2;0);"Nessuna Nota")
Varia il parametro "MatriceTabella" del Cerca.Orizz in funzione di quante entry avra' la tua tabella
Ciao