Najdi pomoci VBA požadovanou hodnotu VBA

Hledej

Potřebuji najít v zadaném sloupci hledanou hodnotu (případně jení část). Pokud je nalezeno ať se provede požadovaná akce. V našem případě se zobrazí hláška.

VBA kód

Sub NajdiPozadavanouHodnotu() ' ********************************************* ' * office.lasakovi.com ' ********************************************* ' Makro co hledá ve sloupci A ' omezeno na prvních 5 buněk HledanaHodnota = InputBox("Zadej hledanou hodnotu:") For I = 1 To 5 rozsah = "A" & I With Range(rozsah) Set FoundCell = .Cells.Find(what:=HledanaHodnota, _ after:=.Cells(.Cells.Count), _ LookIn:=xlFormulas, _ Lookat:=xlPart, _ searchorder:=xlByRows, _ searchdirection:=xlNext, _ MatchCase:=False) End With If FoundCell Is Nothing Then MsgBox "Nenalezeno :(" ' tady proveď požadavanou akci nebo ' tady to smaž je jen pro ověření Else MsgBox "Nalezeno :) " & FoundCell.Address ' tady proveď požadavanou akci nebo ' tady to smaž je jen pro ověření End If Next I End Sub

Závěr

Tak a víme, která buňka obsahuje hledaný výraz.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.