View Single Post
Old 30-09-2021, 09:09   #5
misterx
Senior Member
 
Iscritto dal: Apr 2001
Città: Milano
Messaggi: 3563
funziona in maniera egregia, non hai più scuse

Codice:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value < "6" Then
                MsgBox "nella cella " & xCell.Address, vbInformation, "ATTENZIONE!!!"
                Exit Sub
            End If
        Next
    End If
End Sub
misterx è offline   Rispondi citando il messaggio o parte di esso