< návrat zpět

MS Excel

Téma: Filtrování pomocí VBA rss

Zaslal/a Milan-158 23.7.2021 15:00

V panelu nástrojů Rychlý přístup mám svojí ikonu a na ní navázanou níže uvedenou proceduru. Používám ji pro zafiltrování libovolné tabulky podle hodnoty v aktuální buňce. Léta mi to funguje bez potíží, ale v poslední době to v některých tabulkách nasadí filtr do nesprávného sloupce, obvykle do iCol + 1.
Kde může být problém?
Upřesňuji, že obě tabulky (tedy kde to funguje i kde to nefunguje) mají data souvisle od sloupce A, žádný sloupec není skrytý...
Předem dík, M
Sub FiltrPodleHodnoty()
Dim iCol As Integer, Dim rgTab As Range, Dim strVal As Variant
iCol = ActiveCell.Column
Set rgTab = ActiveCell.CurrentRegion
strVal = ActiveCell.Value
On Error Resume Next
ActiveSheet.Range(rgTab.Address).AutoFilter Field:=iCol, Criteria1:=strVal
ActiveWindow.SmallScroll Down:=-100
On Error GoTo 0
End Sub

Zaslat odpověď >
elninoslov(24.7.2021 22:52)#051046
elninoslov
Nieje niektorý stĺpec prázdny? Najlepšie by bolo priložiť prílohu (bez citlivých dát) ale s prejavujúcou sa chybou, a uviesť na ktorej bunke pri tom stojíte.
Myslím, že opäť bude problém v určovaní správnej oblasti (CurrentRegion).citovat
Milan-158(25.7.2021 10:26)#051047
avatar
Přikládám. Na prvním listě to filtruje v pořádku, na druhém o sloupec vedle.
Příloha: zip51047_prehled_nd.zip (28kB, staženo 17x)
citovat
Stalker(25.7.2021 17:31)#051049
Stalker
Na prvním listě je filtr zapnut i na sloupci ID, na druhém listě nikoliv.citovat
Milan-158(25.7.2021 21:50)#051050
avatar
Tak to je ostudné, taková slepota.
Díkycitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje