Ejecutar macro despues de mostrar detalle de una celda de tabla dinamica
Publicado por H (1 intervención) el 07/12/2018 20:28:39
Tengo una tabla dinamica que contiene dos columnas A=Ciudad B=Cantidades. Quiero que al dar doble click a cualquiera de estas celdas (B4:B30) de despliegue normalmente el showdetail de la tabla, pero que a partir de ahi se ejecute el siguiente macro. que no es nada mas que quitar columnas innecesarias. espero me puedan ayudar
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
33
34
35
36
Sub Macro5()
'
' Macro5 Macro
'
'
ActiveCell.Offset(0, 50).Columns("A:F").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -16).Columns("A:O").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -6).Columns("A:E").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -11).Columns("A:F").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -9).Columns("A:H").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -6).Columns("A:E").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, -2).Columns("A:A").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(0, 9).Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.SelectActiveCell.FormulaR1C1 = "GIRO CORRECTO"
ActiveCell.Select With Selection.Interior.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.ColumnWidth = 30
ActiveCell.Offset(0, -1).Columns("A:A").EntireColumn.EntireColumn.AutoFit
End Sub
Valora esta pregunta
0