< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#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
#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 6x)
citovat
#051049
Stalker
Na prvním listě je filtr zapnut i na sloupci ID, na druhém listě nikoliv.citovat
#051050
avatar
Tak to je ostudné, taková slepota.
Díkycitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

skenovani a vyhledavani a oznaceni v tabulce

elninoslov • 24.9. 23:11

Kumulace listů do jednoho listu

MonikaV • 24.9. 17:18

skenovani a vyhledavani a oznaceni v tabulce

djph • 24.9. 13:44

Sečíst sloupec od 4 řádku

madar5 • 23.9. 8:32

Ověření dat

lubo • 22.9. 11:25

Ověření dat

Baja • 21.9. 22:33

Ověření dat

elninoslov • 21.9. 22:16