MS Excel

Téma: Filtry ovladané makrem

Zaslal/a fasd39 6.10.2023 14:57

Ahoj, prosím o radu, zkoušel jsem X možností a pořád to nefunfuje.
Mám tabulku v jejímž jednom sloupci bych chtěl filtrovat pomocí makra a to tak, že pokud je viditelná alespoň jedna hodnota "HOTOVO" mělo by so všechna "hotovo" skrýt a pokud jsou všechna "hotovo" skryta, tak by makro zrušilo všechny filtry.
ZKousel jsem různý varianty a vždy to nekdě chybuje, nejčastěji v případě, kdy mám "hotovo" vyfiltrované pryč a následně některé "trvá" změnim na "hotovo", tak místo aby dané hotovo zmizelo, makro zruší filtry.
jedině mi pomohlo mezitím kliknout do jiné buňky, ale to dělat nechci.
Nevíte někdo v čem je háček?
Předem moc díky

Pri tvorbe makra jsem pouzil ChatGBT, coz je nekdy dobra napoveda, ale tentokrat jsme to nedotahli.

Příloha: rar

55517_d.rar (32kB, staženo 4x)

Zaslat odpověď >

elninoslov(6.10.2023 17:04)#055519

Vo VBA "Hotovo" nie je to isté ako "HOTOVO". V Exceli v bunkách je to zhodné pomocou "=". Presné porovnanie je pomocou EXACT/STEJNÉ. Vo VBA je "=" ako v Exceli EXACT. Ak vo VBA chcete niečo ako "=" v Exceli, tak potom StrComp("Hotovo", "HOTOVO", vbTextCompare) = 0
Alebo použite UCase()/LCase()citovat

fasd39(6.10.2023 19:06)#055521

Díky moc! to jsem měl poznat sám :( přepsal jsem to v kódu a už to funguje :)citovat

elninoslov(10.10.2023 8:59)#055525

Iba na okraj, možno by stačilo iba takéto jednoduché makro
Sub hotovo_skryt()
Dim T As String
With ActiveSheet.ListObjects(1)
T = .Name
If Evaluate("=SUMPRODUCT(SUBTOTAL(3,OFFSET(" & T & "[Sloupec7],ROW(" & T & "[Sloupec7])-MIN(ROW(" & T & "[Sloupec7])),,1)),N(" & T & "[Sloupec7]=""Hotovo""))") > 0 Then
.Range.AutoFilter Field:=7, Criteria1:="<>Hotovo"
Else
.AutoFilter.ShowAllData
End If
End With
End Sub

Příloha: zip

55525_filtry-ovladane-makrem.zip (29kB, staženo 2x)

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.