MS Excel

Téma: kontrola hodnot

Zaslal/a fortes 7.4.2011 9:46

jak zadat jestli hodnota buňky "A1" je shodná některé z buněk na jiném listu "lis2!A1:A200" pokud ano vypíše že hodnota existuje , pokud né pokračuje dál

Zaslat odpověď >

Poki(7.4.2011 9:57)#004550

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

fortes(7.4.2011 10:14)#004551

úžasné, díky moc

v podstatě jak prosté když se ví jak.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.