MS Excel

Téma: Nastavení filtru

Zaslal/a tomsniperbike 7.2.2014 19:12

Chtěl bych poprosit o radu s nastavením filtrování buněk. Problém je následující: řádek 1 mám zafixovaný, aby zůstaval při rolovaní vždy viditelný, dále pak v řádku 2 mám sloučeny buňky BC, EF, HI no a já potřebuji, aby v buňce G1 bylo rozbalovací tlačítko, kde bude výběr z možností textu v buňkách BC2, EF2, HI2 a při vybrání z těchto možností se mi skryjí celé sloupce, tzn. např. při odškrtnutí BC2 se sloupce B a C skryjí (řádek A zůstává stále viditelný).děkuji

Zaslat odpověď >

cmuch(8.2.2014 18:44)#017765

Vlož do modulu listu

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$G$1" Then

Range("B:C,E:F,H:I").EntireColumn.Hidden = False

Select Case Range("G1")
Case Range("B2"): Range("B:C").EntireColumn.Hidden = True
Case Range("E2"): Range("E:F").EntireColumn.Hidden = True
Case Range("H2"): Range("H:I").EntireColumn.Hidden = True
End Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$G$1" Then
With Target.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="--" & "," & Range("B2").Value & "," & Range("E2").Value & "," & Range("H2").Value
End With
End If
End Sub

(řádek A zůstává stále viditelný)

Pokud je tím myšlen řádek 1 tak ten zůstane viditelný, ale pokud myslíš že bude viditelný i pro sloupce co se skryly tak to nelze.citovat

Téma: Nastavení filtru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje