Macro knop

[verhoog]

Het gaat inmiddels lekker met de macro's. Nu heb ik vlg mij ergens gezien dat het mogelijk is een knop op de spreadsheet te maken, die wanneer je erop klikt een toegewezen macro runt. Iemand enig idee hoe??

 

[Ingrid B]

1. Beeld/Werkbalken/Formulieren
   
2. Beeld/Werkbalken/Werkset Besturingselementen
   [/list=1]

 

[verhoog]

Ok, dank je, ben alweer wat verder. Helaas werkt de macro nog niet, ik heb geprobeerd de macro code erin te plakken. Kun je zien wat er mis is:

Private Sub CommandButton1_Click()

Sub Draaitabel()
'
' Draaitabel Macro
' Macro recorded 16-9-2003 by Fred Verhoog
'

'
Range("E3:F10000").Select
ActiveWindow.ScrollRow = 1
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"CateringKostenplaats!R2C5:R10000C6").CreatePivotTable TableDestination:= _
Range("H3"), TableName:="PivotTable4"
ActiveSheet.PivotTables("PivotTable4").SmallGrid = False
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Afdeling")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Totaal")
.Orientation = xlDataField
.Position = 1
End With
Range("I9").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Count of Totaal").Function _
= xlSum
Range("I5:I14").Select
Selection.NumberFormat = "0.00"
Application.CommandBars("PivotTable").Visible = False
Range("H16").Select

End Sub

 

[Ingrid B]

Geplaatst door verhoog

Private Sub CommandButton1_Click()

Sub Draaitabel()

Eén keer een procedure beginnen zal beter gaan denk ik.

 

[verhoog]

Tsja, het is allemaal nog een beetje Japans voor me, die VB-code. Maar het werkt, perfect. Dus bedankt, we zijn weer een stapje verder....