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
Código Hoja: Dinámico (donde está la gráfica)
Option Explicit
Private Sub ScrollBar1_Change()
ScrollBar1.Max = Range("chrtMaxScrollBar")
'para definir el valor máximo de la barra de desplazamiento. Para hacerlo programamos elevento ScrollBar1_Change()
End Sub
Código Módulo 1
Option Explicit
Sub animate_Chart()
Dim iX As Integer, Delay As Single, Start As Single
'fijar valores del eje Y del grafico
Call fix_Y_Values
Range("chrtCounter") = 0
For iX = 0 To Range("chrtMaxScrollBar")
Range("chrtCounter") = Range("chrtCounter") + 1
Delay = 0.1
Start = Timer
Do While Timer < Start + Delay
DoEvents
Loop
Next iX
End Sub
Sub backTo0()
Range("chrtCounter") = 0
End Sub
Private Sub fix_Y_Values()
ActiveSheet.ChartObjects("chrtUSDBRL").Activate
With ActiveChart
.Axes(xlValue).MinimumScale = Range("chrtXmin")
.Axes(xlValue).MaximumScale = Range("chrtXmax")
End With
Range("A1").Select
End Sub
Gráfico Animado con ScrollBar.rar