• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Nieuwe data in raportfilters

Status
Niet open voor verdere reacties.
S

Sander321

Gebruiker
Lid geworden
22 feb 2020
Berichten
16
Goedenavond,

Alweer een vraag.

Ik heb een bronbestand gemaakt waarbij ik wekelijks in tabblad 1 (input) data plak wat uit een programma komt.
In tabblad 2 (analyse) wordt deze data verwerkt in een draaitabel naar mijn wens.

Waar ik echter tegenaan loop is dat er wekelijks nieuwe routenummers bijkomen die niet automatisch aangevinkt worden.
Je kunt dit zien door naar tabblad 2 te gaan en op de raportfilter RouteID te klikken.
Je ziet dan dat er in de laatste import nieuwe routenummers waren die nu niet aangevinkt zijn.
(bij de veldinstellingen is "Nieuwe items opnemen in handmatige filter" wel aangevinkt, ik dacht eerst dat dit het probleem was).

Het uploaden van het bestand wil niet (4.8 mb, wellicht te groot?) dus ik hoop dat iemand zo de oplossing weet.

Ik heb de draaitabel overigens via VBA zo ingesteld dat deze automatisch ververst wanneer ik op dat tabblad klik.
Ik denk niet dat dat er mee te maken heeft maar ik post die VBA codering hier toch even bij:

Code: 
Private Sub Worksheet_Activate()

ActiveWorkbook.RefreshAll

Range("B1:DZ3").Select
    Range("B3").Activate
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("B:EU").Select
    Selection.ColumnWidth = 3
    Range("EU1").Select
    ActiveWindow.ScrollColumn = 122
    ActiveWindow.ScrollColumn = 121
    ActiveWindow.ScrollColumn = 120
    ActiveWindow.ScrollColumn = 119
    ActiveWindow.ScrollColumn = 118
    ActiveWindow.ScrollColumn = 117
    ActiveWindow.ScrollColumn = 116
    ActiveWindow.ScrollColumn = 115
    ActiveWindow.ScrollColumn = 112
    ActiveWindow.ScrollColumn = 111
    ActiveWindow.ScrollColumn = 109
    ActiveWindow.ScrollColumn = 107
    ActiveWindow.ScrollColumn = 106
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 92
    ActiveWindow.ScrollColumn = 89
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 85
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 69
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 65
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 60
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select

End Sub
 

Bijlagen

  • Productieanalyse V3 - kopie2.xlsm
    1,3 MB · Weergaven: 18
Laatst bewerkt:
Je kan de data toch reduceren tot de essentie. Sla ook geen data in de draaitabel op.
 
Laatst bewerkt:
Hoi VenA, ik begrijp niet helemaal wat je bedoelt.

De data die ik importeer in tabblad 1 wordt automatisch verwerkt in de draaitabel in tabblad 2.
Echter, wanneer deze data nieuwe routenummers bevat worden die niet automatisch aangevinkt in de routenummer raportfilter in tabblad 2.
Hierdoor bestaat de kans dat ik (of een collega) dit vergeet aan te vinken.

Er wordt verder geen data in de draaitabel opgeslagen.
 
Het ging er om om jouw bestand te verkleinen. Er wordt wel data in de draaitabel opgeslagen (zonder dat jij het weet). Rechts klik in de draaitabel en zie de tab data en de opties die je erin kan vinden.
 
Beste VenA,

Ik heb het bestand kleiner gemaakt en toegevoegd in de bijlage.
Wellicht dat het zo duidelijker is.
 
Bekijk in jouw vorige draadje nogmaals het linkje over het gebruik van tabellen en draaitabellen. Om nu al over te stappen op VBA lijkt mij nog niet zo'n goed idee.
 
Heb ik wel maar geef ik voorals nog niet. Eerst begrijpen en dan verder naar de volgende vraag.:D
 
Draai dit eerst eens.
Code: 
Sub hsv()
With Me.PivotTables(1)
  .PivotCache.MissingItemsLimit = xlMissingItemsNone 'of 0
  .RefreshTable
 End With
End Sub

Kan je ook handmatig instellen.

Begin opnieuw in te voeren in je tabel en druk op vernieuwen of refreshen met code.
 
Bij mij zijn nieuwe items die ik in de routeId kolom invoer standaard aangevinkt, bij jou niet?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan