do modulu Listu1 zadejte tento kod:Private Sub Worksheet_Change(ByVal Target As Range)
Dim Najit As Long
If Target.Address = "$A$1" And Len(Target) > 0 Then
On Error Resume Next
Najit = Worksheets("List2").Range("A1:A200").Find(what:=Target.Value, lookat:=xlWhole).Row
If Err.Number = 91 Then
MsgBox "hodnota NENI ve zvolene oblasti"
'jakykoliv kod nebo spusteni dalsiho makra prikazem Call 'nazev makra'
Else
MsgBox "hodnota JE ve zvolene oblasti"
End If
End If
End Sub
samozrejme si ho upravte podle potreby
citovat
Dim Najit As Long
If Target.Address = "$A$1" And Len(Target) > 0 Then
On Error Resume Next
Najit = Worksheets("List2").Range("A1:A200").Find(what:=Target.Value, lookat:=xlWhole).Row
If Err.Number = 91 Then
MsgBox "hodnota NENI ve zvolene oblasti"
'jakykoliv kod nebo spusteni dalsiho makra prikazem Call 'nazev makra'
Else
MsgBox "hodnota JE ve zvolene oblasti"
End If
End If
End Sub
samozrejme si ho upravte podle potreby
citovat
v podstatě jak prosté když se ví jak.
RSS nejnovější články