Ahoj Všem,
rád bych Vás požádal o radu s následujícím řešením:
1) na listu č. 1 mám hypertextový odkaz ("hodnota 1")
2) na listu č. 2 mám sloupec "A" o XY řádcích, kde jsou příznaky:
- "nadpis A"
- "nadpis B"
(nadpisů může být XY)
- "hodnota 1"
- "hodnota 2"
(hodnot může být XY)
výsledkem řešení by mělo být, aby po kliknutí na hypertextový odkaz v prvním listu jsem se přesunul na list dva, kde uvidím filtr (který ale bude respektovat nadpisy...toto může být natvrdo v případném macru - nadpisy mají vždy stejný příznak) - do přílohy jsem připojil soubor, který zobrazuje příklad jak by mělo fungovat.
Napadá někoho jak by mohlo být ve VBA provedeno? předem děkuji :)
MR
Excel - filtr hyperlinku na druhý list Vyřešeno
Excel - filtr hyperlinku na druhý list
- Přílohy
-
- příklad.xlsx
- (15.88 KiB) Staženo 17 x
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Excel - filtr hyperlinku na druhý list
Pr.
Kód: Vybrat vše
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Col As New Collection, R As Long, i As Long, D(), F(), x As Long, V As String, N As String
On Error Resume Next
N = Target.TextToDisplay
With ThisWorkbook.Worksheets("List2")
R = .Cells(Rows.Count, "A").End(xlUp).Row
With .Range("A1:G1")
D = .Resize(R, 4).Value2
ReDim F(0 To R - 1)
For i = 2 To R
V = CStr(D(i, 2))
If V = N Or LenB(D(i, 4)) = 0 Then
Err.Clear
Col.Add V, V
If Err.Number = 0 Then F(x) = V: x = x + 1
End If
Next i
If Col.Count > 0 Then
ReDim Preserve F(0 To Col.Count - 1)
.Resize(R).AutoFilter Field:=2, Criteria1:=F, Operator:=xlFilterValues
End If
End With
End With
Set Col = Nothing
End Sub
- Přílohy
-
- příklad.xlsm
- (25.38 KiB) Staženo 16 x
Re: Excel - filtr hyperlinku na druhý list Vyřešeno
Dekuji,
funguje presne jak má - posílám karmu :))).
funguje presne jak má - posílám karmu :))).
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2443
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
- 3
- 1588
-
od Gerete
Zobrazit poslední příspěvek
26 črc 2023 15:30
-
-
Kontrola kopírování dat z jednoho disku na druhý Příloha(y)
od orfan » 25 dub 2024 11:59 » v Vše ostatní (sw) - 15
- 1959
-
od orfan
Zobrazit poslední příspěvek
25 dub 2024 19:51
-
-
-
odstranění automatického přepnutí na druhý monitor
od tominaxx » 19 črc 2023 15:36 » v Windows 11, 10, 8... - 5
- 1561
-
od tominaxx
Zobrazit poslední příspěvek
19 črc 2023 22:45
-
-
-
Druhy router v byte pre rozsirenie pripojenia?
od lubo007 » 19 srp 2023 11:33 » v Rady s výběrem hw a sestavením PC - 2
- 839
-
od ITCrowd
Zobrazit poslední příspěvek
19 srp 2023 19:36
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů