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:
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
Laatst bewerkt: