MS Excel

Téma: vyhledat

Zaslal/a PavDD 11.1.2024 14:01

Zdravím.
Poradil by prosím někdo?
Změnou bunky C3, spustím makto ktere : vyhledá tuto hodnotu v zelené oblasti A24-A29 /bude pojmenovaná třeba ´oblast´ . Pokud najdeme výskyt napíše do A1 "JE TAM", jinak "NENALEZENO".
Díky za radu

Zaslat odpověď >

elninoslov(11.1.2024 16:03)#055919

A k čomu makro??? Veď tam dajte iba vzorec
=IF(COUNTIF(oblast;C3)>0;"JE TAM";"NENALEZENO")
=KDYŽ(COUNTIF(oblast;C3)>0;"JE TAM";"NENALEZENO")

ak rozdelené makro tak:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' Tato buňka nebo oblast když se změní, spouští se makro
Set KeyCells = Range("C3")

If Not Intersect(KeyCells, Target) Is Nothing Then
' Následující makro se změnou buňky nebo oblasti spouští
Over KeyCells.Value
End If
End Sub

Sub Over(ByRef hodnota_bunky As Variant) 'ověří jestli se hodnota buňky nachází v oblasti
' Debug.Print hodnota_bunky

Application.EnableEvents = False
Range("A6").Value = IIf(IsError(Application.Match(hodnota_bunky, Range("oblast"), 0)), "NENALEZENO", "JE TAM")
Application.EnableEvents = True
End Sub
ak spojené tak
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' Tato buňka nebo oblast když se změní, spouští se makro
Set KeyCells = Range("C3")

If Not Intersect(KeyCells, Target) Is Nothing Then
' Následující makro se změnou buňky nebo oblasti spouští
' Debug.Print hodnota_bunky

Application.EnableEvents = False
Range("A6").Value = IIf(IsError(Application.Match(KeyCells.Value, Range("oblast"), 0)), "NENALEZENO", "JE TAM")
Application.EnableEvents = True
End If
End Subcitovat

lubo(11.1.2024 18:36)#055920

A co třeba podmíněný formát v buňce C3? Vzorec: =COUNTIF(oblast;C3)>0citovat

PavDD(12.1.2024 7:44)#055923

Děkuji za řešení, vyberu nejvhodnější. Hezký dencitovat

Téma: vyhledat

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje