1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target = Range("perim") Then
' ActiveSheet.Calculate
' ActiveSheet.PivotTables("PivotTable2").RefreshTable
'End If
Application.ScreenUpdating = False
If Target.Column = 2 And Target.Row = 21 Then
Sheets("Resultat").Select
Application.DisplayAlerts = False
Sheets("Resultat").Delete
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "Resultat"
Worksheets(Target.Value).Select
Selection.Copy
'Sheets(Target.Value).Copy
Sheets("Resultat").Select
Sheets("Resultat").Paste
Sheets("Menu").Activate
ActiveSheet.Calculate
ActiveSheet.PivotTables("PivotTable2").RefreshTable
ElseIf Target.Column = 3 And Target.Row = 21 Then
ActiveSheet.Calculate
ActiveSheet.PivotTables("PivotTable2").RefreshTable
'ElseIf Target.Column = 4 And Target.Row = 21 Then
'
End If
End Sub |