Índice

Solución 20.4 Crear una tabla dinámica

’ Se decide incluir una sola TD en la hoja  
Sub BorrarTD()  
    Worksheets("Analisis").Cells.Clear  
End Sub  
--------------------------------------------------------------  
’ Creación de la TD 
Sub CreaTD()  
  Dim intEleccion As Integer  
  intEleccion = MsgBox("Atención !!! Si la TD ya existe," _  
  & " se borrará" & vbCrLf & _  
  "¿Está seguro que quiere ...