Hola,
Este código hace literalmente eso
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
Application.EnableEvents = False
Me.Range("B3").ClearContents
With Me.Range("B3").Validation
.Delete
Select Case Me.Range("B2").Value
Case 1
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Avion,Barco"
Case 3
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Barco"
Case Else
End Select
End With
Application.EnableEvents = True
End If
End Sub
Por
Israel Cassales, · publicado
Gráfico Tablero Ventas acumuladas
Link en Dropbox:
https://www.dropbox.com/home?preview=Excel+Tablero+Ventas+acumuladas+con+cambio+gr%C3%A1fico.rar
Nota: Apliqué el cambio de gráfico que realizó el creador de este blog: Foro ayuda Excel
1. En celda B3, seleccionar un Mes
En Tabla se genera
a) La Ciudad con > Ventas acumuladas de Enero a Diciembre, con Su > Valor
c) La Posición en Ventas, y se resalta la ciudad con Posición 1
d) Gráfica con Ventas de cada ciudad con la Sumatoria en Ventas en el Mes seleccionado
e) Velocímetro que indica la ciudad con > Ventas acumuladas en Mes seleccionado, su Valor y su%
f) Clic en celda B28, para cambiar el tipo de gráfico: Lineal, Área, Columna
Las explicaciones están en la Hoja de Excel