Tahle procedura ulozena v modulu prislusneho listu zajisti to, co pozadujes...
Private Sub Worksheet_Change(ByVal Target As Range)
Set bunka = Intersect(Target, Range("A:A"))
If bunka = "r" Then
MsgBox "Vyplň ještě buňku ve sloupci 'C' na řádku: " & Target.Row, vbMsgBoxSetForegroun
End If
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
Set bunka = Intersect(Target, Range("A:A"))
If bunka = "r" Then
MsgBox "Vyplň ještě buňku ve sloupci 'C' na řádku: " & Target.Row, vbMsgBoxSetForegroun
End If
End Subcitovat
RSS nejnovější články