Macros para graficos y horas

[Juan_snbdo]

Estimados señores, esperando see encuentren bien, necesito ver si me pueden ayudar en lo siguiente: tengo una macros que hace un grafico de un rango fijo y lo despliega en otra hoja (la siguiente):

Sub Graf_TK1()
Range("N23:Q31").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("N23:Q31"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graf_TK_1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Estanque N°1"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

Funciona bien, pero aún no encuentro la forma que al realizar el grafico vuelva a la hoja1 celda A1, se queda en la hoja Graf_TK_1 y cuando selecciona la hoja1, está en la celda que corresponde al área de datos del grafico.

Otra cosa, es que esos datos son obtenidos desde un servidor OPC, y necesito llenar las celdas que dependiendo de la hora (ya solucione el problema de la hora), he tratado con la función =Si(“condición”, verdadero, falso) el caso es que necesito que cuando sea la condición sea falsa no ponga cero si no que actualice el valor cuando sea verdadero solamente, o sea, que copie el valor y lo mantenga hasta que llegue a esa hora nuevamente.

Otra cosa, es saber cómo se puede hacer que una macros se ejecute sola, una vez habilitadas las macros.
Espero no ser majadero y agradezco su respuesta

<!-- google_ad_section_end -->

 

[Juan_snbdo]

Estimado Cesar

Junto con saludarte, te cuento que he estado en terreno y no he podido ver este tema, para poder avanzar, disculpa la demora en la respuesta, pero tengo poco acceso a internet.

ATTE

Juan

 

[cgcamal]

No hay problema Juan. Espero funcione como necesitás.

Saludos cordiales.