Via een Macro 2 waardes ophalen en plaatsen in een draaitabel ...

[PaulMak]

Goedemiddag specialisten,

Ik kom er niet meer uit

Ik heb een rapport met 3 tabbladen
- Tab1 een rapportage met PMC's (X21, X22 enz...)
- Tab2 een draaitabel met 3 filters
*Jaar
*Maand
*PMC
- Tab3 een database met daarin omzetcijfers

Ik wil vanuit de rapportage 2 items kopiëren naar mijn draaitabel met een macro
1. De huidige maand uit C2
2. De PMC waar mijn cursor op staat

Met mijn macro gaat het ophalen van de maand prima echter ik krijg telkens een foutmelding bij het ophalen van de PMC (X21)

Wie wil mij uitleggen welke fout ik heb gemaakt in mijn macro.


Alvast bedankt
Paul Mak

ps. het vette gedeelte is de foutregel in de macro

'PMC zoeken in Tabblad data

Dim CurItem As Object
Dim sWaarde As String

sWaarde = Sheets("Draaitabel").ActiveCell.Value

On Error GoTo ErrMsg

 

[gast0660]

Hoi,

Ik kom er niet meer uit

Wij nog veel minder
Buiten het feit dat we hier met plaatjes niets kunnen aanvangen is uw plaatje nauwelijks leesbaar, post een relevant vbtje dan zal je vast wel geholpen worden.

 

[snb]

Begin met:

- alle macro's in 1 macromodule te zetten (in plaats van 7 nu)

- alle '.selects' en '.activates' uit je code te verwijderen.

Daarna bekijken we je geplaatste bestand. (zie @DJ)

 

[PaulMak]

Excuus voor de rommelige input

Hieronder staat mijn macro.
Het ophalen van de boekingsmaand gaat goed echter bij het ophalen van de PMC (ActiveCell.value) gaat het mis ...
Hopelijk is deze input wel voldoende voor jullie hulp.

Gr.
Paul


Sub Zoek_PMC()
'

'Boekingsmaand ophalen uit Tabblad Dagteller YTD

Dim CurItem1 As Object
Dim sWaarde1 As String

sWaarde1 = Sheets("Dagteller YTD").Range("C2")

With Sheets("Draaitabel").PivotTables("Draaitabel1").PivotFields("Boekingsmaand")
.PivotItems(.PivotItems.Count).Visible = True
For Each CurItem1 In .PivotItems
If CurItem1.Name = sWaarde1 Then
CurItem1.Visible = True
Else
CurItem1.Visible = False
End If
Next
End With


'PMC ophalen uit Tabblad Dagteller YTD op de plaats waar de cursor staat

Dim CurItem As Object
Dim sWaarde As String

sWaarde = Sheets("Dagteller YTD").ActiveCell.Value

On Error GoTo ErrMsg

With Sheets("Draaitabel").PivotTables("Draaitabel1").PivotFields("PMC")
.PivotItems(.PivotItems.Count).Visible = True
For Each CurItem In .PivotItems
If CurItem.Name = ActiveCell.Value Then
CurItem.Visible = True
Else
CurItem.Visible = False
End If
Next
End With

Sheets("Draaitabel").Select
Range("B3").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

ErrMsg:

End Sub

 

[snb]

@Paul

Doe mij svp een lol:

- plaats je bestand
- zet VBA code tussen code-markeringen (code-tags).

 

[PaulMak]

Ik krijg het bestand niet geupload

hoi snb, ik krijg de melding dat mijn bestandje te groot is om te uploaden(1,699KB )
ik schaam me kapot maar ik krijg het niet voor elkaar.

Kun je mij svp uitleggen hoe ik het bestand alsnog aan kan bieden.

Kun je mij ook uitleggen wat er onduidelijk was aan de macro tekst die ik had verstuurd?

Gr.
Paul

 

[PaulMak]

Helaas kan ik niet voldoende uitleggen wat mijn probleem is. Ik sluit mijn vraag.

In elk geval dank ik iedereen die mijn vraag aandacht heeft gegeven en geprobeerd heeft mij te helpen.

Sorry
Paul Mak

 

[Haije]

Paul,

sla je bestand eens op als xlsb en probeer het dan nog eens te posten...

 

[PaulMak]

Dotchjack, snb (weer dank je wel én sorry) en Haije ...

Heren, dank jullie wel voor jullie pogingen om hulp aan te bieden ...

Ik heb het bovengenoemde 'probleem' even opzij gezet omdat ik een deel van de oplossing uiteindelijk wilde toepassen in een ander actueel rapport.

Dat deel waar ik naar op zoek was heb ik gevonden en werkt inmiddels prima. Het is in jullie ogen vast heel knullig maar begrijpelijk voor mij
te weten;

'Hieronder wijzig ik in diverse draaitabellen de Orderdatum in de filter
Sheets("Beheerder").PivotTables("Draaitabel4").PivotFields("Orderdatum").ClearAllFilters
Sheets("Beheerder").PivotTables("Draaitabel4").PivotFields("Orderdatum").CurrentPage = Sheets("Beheerder").Range("A31").Value
Sheets("Beheerder").PivotTables("Draaitabel5").PivotFields("Orderdatum").ClearAllFilters
Sheets("Beheerder").PivotTables("Draaitabel5").PivotFields("Orderdatum").CurrentPage = Sheets("Beheerder").Range("A31").Value
Sheets("Beheerder").PivotTables("Draaitabel6").PivotFields("Orderdatum").ClearAllFilters
Sheets("Beheerder").PivotTables("Draaitabel6").PivotFields("Orderdatum").CurrentPage = Sheets("Beheerder").Range("A31").Value
Sheets("Beheerder").PivotTables("Draaitabel9").PivotFields("Orderdatum").ClearAllFilters
Sheets("Beheerder").PivotTables("Draaitabel9").PivotFields("Orderdatum").CurrentPage = Sheets("Beheerder").Range("A31").Value

Vast tot snel voor de volgende uitdaging waar ik jullie hulp kan gebruiken,

Paul Mak