Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Draaitabellen  (gelezen 2365 keer)

0 leden en 1 gast bekijken dit topic.

Offline Joke1234

  • Lid
  • *
  • Berichten: 14
  • Geslacht: Man
  • Oplossing.be
Draaitabellen
« Gepost op: 22 juni 2020, 09:51:53 »
Draaitabellen-probleempje.
Ik heb een bestand waaruit een aantal draaitabellen getrokken moeten worden. De Tabbladen AMH, ADOD,ADYL,ADAG,ANB en ANC komen uit een extern bestand.
Het tabblad PSA is een toegepaste filter uit het tabblad ADOD (waar de kolom Te/Sp gefilterd is op RK47 en RL50)
De draaitabellen in "draaitabel OH" zijn allemaal met de selectie uit "groepering", behalve deze van "zuidnatie/PSA (deze moet de selectie uit "Te/Sp" bevatten.
kunnen jullie nog een beetje volgen ? :)
Met de macro "overnemen van "Bundels" worden de nodige tabbladen overgenomen uit het externe bestand. Hierna wordt tabblad ADOD gefilterd op kolom RK47 en RL50. Deze selctie wordt dan gekopieerd naar PSA. (Dit wordt dan draaitabel8) Hierna worden de verschillende draaitabellen getrokken en die komen in "draaitabel OH en "Draaitabel FNND" terecht.
Bij draaitabel8 (Zuidnatie/PSA) gaat het verkeerd met de eigenschap xlAscending. De rest van de draaitabellen werken perfect.
Wat doe ik verkeerd ???




Offline Joke1234

  • Lid
  • *
  • Berichten: 14
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabellen
« Reactie #1 Gepost op: 22 juni 2020, 10:01:45 »
mijn excuses, een "ouder" bestandje meegestuurd.
De bedoeling is dat, in tabblad "Draaitabel OH" op plaats F30 een draaitabel gegenereerd wordt uit de gegevens van tabblad "PSA". Ipv selctie "groepering" (zie andere draaitabellen) dient hier geselecteerd te worden op "Te/Sp"...

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabellen
« Reactie #2 Gepost op: 22 juni 2020, 10:22:12 »
vooreerst begrijp ik niet dat je die draaitabellen zou moeten aanmaken.
Eens je die gemaakt hebt, dan voldoen ze tot in het jaar blok.
Bij het refreshen wordt ook de sortering gerespecteerd.

Ik vermoed dat je best éénmalig eerst van al je gegevens echte tabellen maakt en die gebruikt als basis voor je draaitabellen, dan moet je niet meer knoeien met bereiken. Dan de draaitabellen ook éénmalig juist zetten en vanaf dan, bij nieuwe gegevens, eerst iedere tabel leeg maken en daarna weer vullen met de nieuwe gegevens en helemaal op het laatste enkel nog refreshen.

Om het vermoedelijk echte probleem van deze vraag te counteren, ik versta ze eigenlijk niet heel goed, maar ik vermoed dat je bij de aanmaak van de draaitabel de vraag zal krijgen of de cache van de draaitabel gemeenschappelijk of zoiets moet zijn, (weet niet meer precies hoe het geformuleerd wordt) en dan staat er daar iets standaard wel of niet aangevinkt, wel die moet je dan omdraaien, dus niet of wel nemen.

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabellen
« Reactie #3 Gepost op: 22 juni 2020, 10:33:01 »
ik heb het vermoedelijke probleem nog even snel voor je gegoogled.
Zie eens naar deze tip : http://www.gratiscursus.be/Excel_Tips/Excel_Tip_107.html

Het komt er eigenlijk op neer dat je de oude uit gebruik geraakte wizzard om draaitabellen te maken eerst zelf moet toevoegen aan je lint en gebruiken.
Dan moet je op de daar beschreven manier je draaitabellen aanmaken en de truc zit hem in de "Neen" bij het rode vierkant "15" van de uitleg.
Die vraag kreeg je in je huidige versie van aanmaak van draaitabellen niet voorgeschoteld.

En toch heb ik het gevoel, dat je toch nog iets anders vraagt.

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Draaitabellen
« Reactie #4 Gepost op: 22 juni 2020, 10:58:11 »
dit zou een aangepaste versie van je macro "overnemen" kunnen worden.
Uit de losse pols geschreven, zonder te testenSub overnemen()

' overnemen Macro

   Application.ScreenUpdating = False


   Application.DisplayAlerts = False
   For Each ws In Application.ThisWorkbook.Worksheets
      If ws.Name <> "Macro's" And ws.Name <> "Draaitabel OH" And ws.Name <> "Draaitabel FNND" And ws.Name <> "PSA" Then   'bepaalde werkbladen aflopen
         With ws.ListObjects(1)                  'de eerste tabel op dat werkblad (hopelijk staat er maar 1 om geen vergissingen te maken)
            If .ListRows.Count Then .DataBodyRange.Delete   'tabel leegmaken indien niet leeg
         End If
      End With
   Next
   Application.DisplayAlerts = True


   Workbooks.Open Filename:="V:\Operations\Stations\Stations local management\Antwerpen haven\OH\Productie\Werkmap\Bundels.xlsx"

   Set c = Sheets("AMH").Range("A1").CurrentRegion   '--> gegevens in net geopende werkmap, tabblad AMH, aaneensluitend blok van data vanaf A1
   If c.Rows.Count > 1 Then
      Set c1 = c.Offset(1).Resize(c.Rows.Count - 1)   '-->diezelfde gegevens zonder de kop
      ThisWorkbook.Sheets("AMH").ListObjects(1).ListRows.Add.Range.Range("A1").Resize(c1.Rows.Count, c1.Columns.Count).Value = c1.Value   '--> toevoegen aan tabel
   End If

   '******************************************
   'dit doe je zo tig keer voor al je gegevens
   '******************************************

   Windows("Bundels.xlsx").Close                 'andere werkmap sluiten
   ThisWorkbook.RefreshAll                       'alle draaitabellen vernieuwen

   With Sheets("Macro's")
      Application.Goto .Range("A1"), 1
      .Range("H2").Value = "DRAAITABELLEN STAAN KLAAR !"
   End With


   Application.ScreenUpdating = True

End Sub

 


www.combell.com