Kollommen vastzetten voor filteren

[SasVeldkamp]

Hoi,

Voor een Excel file heb ik informatie staan in kollommen A t/m W. Graag zou ik zien dat als ik bijvoorbeeld kollom T filter de kollommen A t/m E geblokkeerd blijven. Dus dat deze kollommen niet mee gaan in de filter optie. Hoe kan ik dit doen?

Mvg, SaskiaBekijk bijlage week 43 2014.xlsx

 

[Elsendoorn2134]

Saskia,

Wat jij wil is niet mogelijk. Excel filtering werkt door het verbergen van regels in werkblad.
Als je dus niet wil dat een aantal kolommen zichtbaar blijven kun je dit alleen maar doen
door ze op een ander werkblad te plaatsen of door de tabellen onder elkaar te plaatsen op het
zelfde werkblad.

Veel Succes.

 

[boomen]

@elsendoorn
Kun je dan ook niet bijvoorbeeld een draaitabel laten maken van de gegevens die je wel will filteren en deze naast de andere gegevens zeteen?(gokje)

 

[sylvester-ponte]

misschien een idee
voor de vrijdag is een extra venster gemaakt "Vrijdag2" ( met de hand) met de eerste kolommen.
dat kan natuurlijk ook automatisch met een macro'tje. als je dat wil

 

[VenA]

De opzet is zo slecht dat het niet kan. De kolommen verschillen ook per dag En dat maakt het nog meer onmogelijk.

 

[HSV]

Zet ergens bovenin een cel (hier in K1):

=SUBTOTAAL(3;F7:F281)

Maak een knipsel van het bereik A7:E20, en sla het ergens op in bv. een .Gif extensie.
Maak een Image aan van de ActiveX-besturingselementen.
Om de knipsel te laden.
In Thisworkbook.

Private Sub Workbook_Open()
Dim bestandsnaam As String
     bestandsnaam = "C:\Users\hsv\desktop\Knipsel.gif"
   ActiveSheet.Image1.Picture = LoadPicture(bestandsnaam)
 ActiveSheet.Image1.PictureSizeMode = 1
End Sub

Om de controle te houden bij het filteren of bij een selection.change om te scrollen (niet met de muis dus).
In de blad-module.

Private Sub Worksheet_Calculate()
With ActiveWindow.VisibleRange
   If Me.FilterMode Then
     Me.Image1.Top = .Top + 90
     Me.Image1.Left = .Left
   Else
     Me.Image1.Top = .Top + 90
     Me.Image1.Left = .Left + 2500
   End If
 End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With ActiveWindow.VisibleRange
   If Me.FilterMode Then
     Me.Image1.Top = .Top + 90
     Me.Image1.Left = .Left
   Else
     Me.Image1.Top = .Top + 90
     Me.Image1.Left = .Left + 2500
   End If
 End With
End Sub

Zet je de filters terug, gaat de Image control helemaal naar rechts.
Onderstaande voorbeeld zal niet geladen worden, maar geeft een simulatie van de mogelijkheid.

 

[sylvester-ponte]

heel gaaf Harry

 

[HSV]

Dank Sylvester.

Onderstaand bestand met een userform en image control om gewoon te kunnen scrollen.
Misschien wel net zo makkelijk.