Kør makro ved klik på faneblad

Dui kan bruge hændelse Worksheet_Activate i det pågældende arks kodemodul.

OK - har set nogle eksempler på det, men kunne ikke få det til at virke. Kan du skrive den eksakte kode til det? Og så skal jeg vel lægge den kode i alle faneblade, siden indtastning foregår i et ark, pivottabellen er i et andet, og to andre ark viser grafer, der er det brugeren skal se? Og tak :-)

Har fået løst problemet ved at indsætte følgende kode i Indtastningsarket:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Pivot tabel").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Sheets("Indtastningsark").Select
End Sub

Det eneste er, at skærmen blinker, men ellers virker det :-)

Så nu blinker den knapt så meget.


Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Pivot tabel").PivotTables("PivotTable2").PivotCache.Refresh

End Sub

Gracias! :-)

Læg et svar, så får du de 15 points, du ikke vil kunne mærke alligevel ;-)

;-)