opgenomen macro ook voor andere excelbestanden gebruiken

[vovo]

Hallo,

als amateur van macrootjes probeer ik zo af en toe wel eens iets uit...

Mijn bedoeling is nu dat ik een macro opneem waardoor ik volgende keer enkel maar op een button hoef te drukken en dat mijn draaitabel in dit geval automatisch start.

Echter wanneer ik een macro gewoon opneem vanuit een bestaande excel, dan wordt de bestandsnaam als "active workbook" genomen. Hoe kan ik via de vba editor dit aanpassen zodat deze macro voor elk nieuw excel bestand kan gebruikt worden.

Hier alvast de macro die ik nu gebruik :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DB!R1C1:R400C5").CreatePivotTable TableDestination:= _
"'[copyVisites semaine 42]RESULT'!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion10 Sheets("RESULT").Select
ActiveSheet.PivotTables("PivotTable1").NullString = "0"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("Du", _
"Classe clients"), ColumnFields:="Délégué", PageFields:="Type d'opération"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Type d'opération"). _
Orientation = xlDataField
Range("J26").Select
ActiveWindow.SmallScroll Down:=12
Range("H38").Select
ActiveWindow.SmallScroll Down:=-24
Range("A5:A200").Select
Selection.NumberFormat = "dddd"
Columns("A:A").EntireColumn.AutoFit
Range("B8").Select
ActiveWindow.SmallScroll Down:=21
Range("C41").Select
ActiveWindow.SmallScroll Down:=-39
Range("D1").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Délégué")
.PivotItems("#N/A").Visible = False
End With
Columns("C:L").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Columns("C:L").EntireColumn.AutoFit
Range("C1").Select
End Sub

Met het vetgedrukte stuk heb ik dus een probleem, hoe dit makkelijkst te veralgemenen zodat het steeds kan worden hergebruikt ??

Bedankt.

 

[Efsix]

Je kunt de macro exporteren als module, waarna je hem weer inmporteert in een andere werkmap.

Ook kun je de macor opslaan in je persoonlijke macrowerkmap zodat hij altijd voorhanden is. (tenminste bij jou)

 

[vovo]

Je kunt de macro exporteren als module, waarna je hem weer inmporteert in een andere werkmap.

Ook kun je de macor opslaan in je persoonlijke macrowerkmap zodat hij altijd voorhanden is. (tenminste bij jou)

Bekijk bijlage 112669

Beste Efsix,
Ik sla alle macro's sowieso op in mijn personal workbook, maar desondanks lukt dat niet !?
Het probleem ligt bij deze verwijzing
TableDestination:= _
"'[copyVisites semaine 42]RESULT'!
Kan je dat hier niet bijvoorbeeld Activeworkbook noemen of zo ?

 

[Efsix]

Beste Vovo,
ik vrees dat jouw specifieke vraag .. mijn petje te boven gaat.

groet, Romé

 

[vovo]

Beste Vovo,
ik vrees dat jouw specifieke vraag .. mijn petje te boven gaat.

groet, Romé

Toch bedankt voor de moeite Romé !