Hola buenas noches, adjunto un archivo excel en el que quiero hacer una cosa. Sin liarme, tengo una hoja llamada "Summary", que contiene una tabla y una columna H dentro de la tabla, en la cual tengo configurada una fórmula con el método de cálculo general, según la información de su fila. Depende de otra persona (ingeniero) que ese método general de cálculo varíe en algún caso particular, y yo tenga que introducir el valor que esa persona me dé. La hoja irá protegida pero esta columna será editable. Necesito un código VBA tal que me recupere la fórmula en las celdas de la columna H que se queden vacías. ¿Por qué? Porque en algún momento pasa que me pueden decir de volver a calcular esa fila con el método habitual. En ese caso mi idea es que yo suprima esos valores "particulares" y me vuelva a realizar el cálculo de la manera general.
señales.xlsm
Por
MANTONIOPM, · 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