Makrom nad aktuálnym hárkom:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo xErr:
If Not Intersect(Target, Range("F2")) Is Nothing Then
Application.EnableEvents = False
'spusti filter
Range("B6:B30").AutoFilter Field:=1, Criteria1:=Target.Text ' napr. "1"
Application.EnableEvents = True
End If

Exit Sub

xErr:
Application.EnableEvents = True
End Sub

Palo

ad manipulácia s obrázkami v Exceli - pozri prílohy.
Komplet pokec - viď túto tému
podmienené kopírovanie obrázkov v excelu (http://pc-prog.eu/phpBB3/viewtopic.php?f=5&t=148)

Ten filter nieje dobrý, aj tak musím vždy zadať do bunky f2 hodnotu a až nasledovne vy-filtruje správne hodnoty. Upravil som excel tak aby si to videl ako to funguje.

Čo sa týka tých obrázkov na to musím ešte pozrieť ale asi to pôjde podľa toho návodu.

Vďaka.

Použi fn Worksheet_Calculate


Private Sub Worksheet_Calculate()
Application.EnableEvents = False
'spusti filter
Range("B6:B30").AutoFilter Field:=1, Criteria1:=Range("F2").Text ' napr. "1"
Application.EnableEvents = True
End SubP.

Super, funguje to tak ako som chcel. Vďaka.

Na tie obrázky som ešte nedošiel ako to funguje ale chcem sa opýtať, existuje funkcia ktorá prepojí viacero excelov. A to nasledovne:
V zošite2 do bunky A1 napíšem zošit1 do bunky B1 hárok1 do bunky C1 G10 a v bunke D1 dá tieto údaje dokopy a zobrazí obsah bunky G10 v hárku1, zošit1 ak sa takýto zošit nachádza v tom istom priečinku ako zošit2 do ktorého zadávam tieto údaje.

Na tie obrázky som ešte nedošiel ako to funguje ale chcem sa opýtať, existuje funkcia ktorá prepojí viacero excelov. A to nasledovne:
V zošite2 do bunky A1 napíšem zošit1 do bunky B1 hárok1 do bunky C1 G10 a v bunke D1 dá tieto údaje dokopy a zobrazí obsah bunky G10 v hárku1, zošit1 ak sa takýto zošit nachádza v tom istom priečinku ako zošit2 do ktorého zadávam tieto údaje.


' =INDIRECT(ADDRESS(ROW(G10);COLUMN(G10);1;1;"["&A1&"]"&B1))

Oba zošity musia byť otvorené.

Čauko tie funkcie čo som potreboval som použil v tomto exceli, filter som aplikoval ako prvý dokončil som celi excela potom som chcel spraviť aj obrázky, ale fungovalo mi to len chvíľu, potom som niečo spravil a už to nefunguje vôbec. Môže sa mi na to niekto pozrieť že kde som spravil chybu. A ešte keď som tam dal ten obrázok tak to neskutočne spomalilo excel.

Vypĺňajú sa len zelene bunky v hárku 01.

Ďakujem.

... A ešte keď som tam dal ten obrázok tak to neskutočne spomalilo excel...

Ďakujem.

Žiaľ to je daň za odkazovanie sa na obrázok cez pomenovanú oblasť (obzvlášť ak je obrázkov viac je to nepoužiteľné).

Riešil som to pre jeden projekt a nakoniec som vtedy zvolil kopírovanie vybraného obrázku a jeho umiestnenie na nové miesto (viď prílohu)

Použitý kód vyžaduje konzistentné pomenovanie obrázkov, napr "Picture_01, Picture_02 ..."

P.