Excel, Macros. Actualizar datos copiados
Estoy trabajando en una Macro para graficar en tiempo real unos datos. Tengo esta Macro que me copia una cantidad de datos deseada cada 5 segundos, los desplaza y me los muestra en orden de aparición. El problema es que no he podido hacer que se vayan actualizando, una vez completada la cantidad de datos, deja de copiar. Necesito saber como hacerlo para que el último dato quede abajo y los demás se vayan desplazando hacia arriba, el primero de arriba debe desaparecer.
Desde ya muchas gracias por su ayuda y por su tiempo.
Sub programarMacro()
tiempo = Now + TimeValue("00:00:05")
Application.OnTime tiempo, "miMacro", , True
End Sub
Private Sub miMacro()
k = Range("C" & Cells.Rows.Count).End(xlUp).Row
If k < 15 Then
Range("B1").Copy
Range("C1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
Call programarMacro
End Sub
Te anexo la macro actualizada
Sub programarMacro()
tiempo = Now + TimeValue("00:00:05")
Application.OnTime tiempo, "miMacro", , True
End Sub
'
Private Sub miMacro()
k = Range("C" & Cells.Rows.Count).End(xlUp).Row
If k = 15 Then
Range("C3").Delete shift:=xlUp
k = 14
End If
If k < 15 Then
Range("B1").Copy
Range("C1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
Call programarMacro
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
