< návrat zpět

MS Excel


Téma: umístění kurzoru na určenou buňku rss

Zaslal/a 2.10.2018 15:39

Ahojky.
Vytvořil jsem si makro,které odkrývá vždyn ásledující řádek pomocí filtru.Nemohu však přijít na to , aby po vyfitrování se kurzor umístil na buňku kterou jsem vyplnil a tím spustil makro:
Sub Skryj()
Range("S4:S104").Select
Selection.AutoFilter
ActiveSheet.Range("$S$4:$S$400").AutoFilter Field:=1
ActiveSheet.Range("$S$4:$S$400").AutoFilter Field:=1, Criteria1:="Zobraz"
ActiveSheet.Range("B5").End(xlDown).Select

End Sub
Nevím jak opravit toto:
ActiveSheet.Range("B5").End(xlDown).Select.
Kkyž Vyplním buňku např. B221. tak aby proběhlo makro s filtrem a kurzor se umístil na buňku B221.Používán Ekcel 2007.
Dškuji za odpověď.
Pepča

Příloha: zip41604_pozadavky.zip (40kB, staženo 6x)
Zaslat odpověď >

#041605
avatar
Například takto:
ActiveSheet.Range("B400").End(xlUp).SelectPříkaz přidej na konec makra "Skryj".
P.citovat
#041606
elninoslov
Netreba toľko stĺpcov. Procedúru by som volal s parametrom. Pr.
Příloha: zip41606_pozadavky.zip (42kB, staženo 8x)
citovat
#041607
avatar
Děkuji za bleskovou pomoc. Je to opravdu to co potřebuji. Budu používat obě varianty. Toto je jen část z celého sešitu. Ještě jednou moc Díky.

Pepčacitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Kopírovanie textu do neprázdnej bunky

elninoslov • 13.11. 1:22

WebBrowser

Palooo • 12.11. 14:00

WebBrowser

jardik • 11.11. 16:20

Kopírovanie textu do neprázdnej bunky

kabaka • 11.11. 16:07

Kopírovanie textu do neprázdnej bunky

elninoslov • 11.11. 15:56

Podmíněné formátování - formáty buněk

marjankaj • 11.11. 11:29

Kopírovanie textu do neprázdnej bunky

kabaka • 11.11. 10:24