< 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#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 7x)
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

EXCEL VBA vyhledání buňky

elninoslov • 19.10. 11:34

EXCEL VBA vyhledání buňky

elninoslov • 19.10. 11:24

EXCEL VBA vyhledání buňky

ben59 • 19.10. 9:34

Ověření datumu TextBox1.Text

Stana-V • 19.10. 7:43

Ověření datumu TextBox1.Text

elninoslov • 18.10. 20:15

Auto mazanie emailov

elninoslov • 18.10. 20:01

Ověření datumu TextBox1.Text

Scraper • 18.10. 18:25