Draaitabel transponeren middels VBA

[Excellies]

Goedemorgen,


Eerder heb ik van SNB een VBA code ontvangen die ervoor zorgt dat een draaitabel eigenlijk automatisch getransponeerd wordt. Nu wilde ik dezelfde code gebruiken voor een andere draaitabel alleen lijkt deze vooralsnog niet te werken. Het betreft SKU's gevolgd door onderliggende resultaten, alle SKU's zijn wederom dikgedrukt en alles staat onder elkaar. Alle SKU's beginnen met DL dus heb ik de code als volgt aangepast:


Sub M_snb_001()
n = 1
With Blad5.Cells(1).CurrentRegion.Columns(1)
.AutoFilter 1, "DL*"
.Copy .Cells(1, 4)
.AutoFilter
.AutoFilter 1, "* *"
For Each it In .SpecialCells(12).Areas
.Cells(n, 5).Resize(, it.Count) = Application.Transpose(it)
n = n + 1
Next
.AutoFilter
End With
End Sub


Er gebeurt alleen niets als ik deze uitvoer, hoop dat jullie mij hierbij kunnen helpen.

Thanks!

 

[edmoor]

Je bijgevoegde document bevat geen code.
Gebruik bij het plaatsen van code tevens codetags.

 

[peter59]

Hallo,

Ik weet niet wat exact de bedoeling is maar komt de bijlage in de buurt van wat je verwacht?

 

[Excellies]

Bedankt Peter, idealiter zou kolom C inderdaad de DL nummers bevatten met in D,E,F etc. de onderliggende resultaten zodat elke regel een DL nummer bevat met de resultaten.

 

[snb]

Dit heeft niets te maken met:
- draaitabel
- draaitabel transponeren.

Sub M_snb()
  n = 1
  With Sheet1.Cells(1).CurrentRegion.Columns(1)
    .AutoFilter 1, "DL*"
    .Copy .Cells(1, 4)
    .AutoFilter

     .AutoFilter 1, "<>DL*"
     For Each it In .SpecialCells(12).Areas
       .Cells(n, 5).Resize(, it.Count) = Application.Transpose(it)
       n = n + 1
     Next
     .AutoFilter
  End With
End Sub

 

[Excellies]

Thanks SNB, precies wat ik zocht!

 

[snb]

Maar zie je nu ook waarom jouw code niet werkte ?

 

[Excellies]

Autofilter 1 was onjuist, weet alleen niet wat <> inhoud in VBA code.

 

[snb]

Met een verwijzing naar een in het werkboek niet bestaand werkblad (Blad5) begon het.
Ook jouw VBEditor heeft een F1 knop. Daar kun je vinden wat "<>" betekent.