Ech jak się człowiek śpieszy:-)
Ostatnia poprawka, teraz niezależnie gdzie kliknie przy zatwierdzeniu
komórki będzie prawidłowa kwota w msgbox-ie
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(15, 1) < 0 Then
MsgBox "Wprowadzona kwota przekroczyła limit, kwota nie może być
większa niż " _
& Cells(13, 1) - Cells(14, 1) + Target
Target.Clear
End If
End Sub
--
Pozdr.
Cynio