Jeroen123456
Gebruiker
- Lid geworden
- 3 jul 2007
- Berichten
- 115
In een macro haal ik gegevens op uit een database die worden neergezet in een sheet "data". In een sheet "geleverde kilogrammmen" staat een draaitabel die bij het runnen van de macro word "refreshed". Als dit gebeurd wordt de draaitabel weergegeven voor de waarden "(leeg)". Nu wil ik een waarde ophalen uit de sheet "data" en deze waarde gebruiken in de code pivotfields.currentpage. Dit laatste gaat niet goed.
Iemand een idee?
-------------------------------------
Sub Macro3()
Sheets("data").Activate
Range("a2").Select
Selection.Copy
Sheets("geleverde kilogrammen").Activate
ActiveSheet.PivotTables("Draaitabel1").PivotFields("KLANTENKOD").CurrentPage = _
Selection
End Sub
Iemand een idee?
-------------------------------------
Sub Macro3()
Sheets("data").Activate
Range("a2").Select
Selection.Copy
Sheets("geleverde kilogrammen").Activate
ActiveSheet.PivotTables("Draaitabel1").PivotFields("KLANTENKOD").CurrentPage = _
Selection
End Sub
