Excel / VBA: un evento che richiederà commenti

Problema

Sto cercando di creare un evento all'interno di più celle che richiederebbe un commento se sono soddisfatte determinate condizioni.

Per esempio:

• Se c1 <3.2 allora [evento run]
• Voglio che l'evento prenda i moduli un popup di commento che salverà su un commento sulla cella.

Soluzione

Prova questo:

 Private Sub Worksheet_Change (ByVal Target As Range) Dim MyMessage As String Se Intersect (Target, Range ("C1")) Is Nothing Then Esci Sub If Range ("C1") <3.2 Then MyMessage = InputBox ("Inserisci il tuo commento" ) Con intervallo ("C1") .ClearComments .AddComment .Comment.Visible = False .Comment.Text Text: = MyMessage End With End If End Sub 

Grazie a TrowaD per questo suggerimento.