Macro para hacer un registro histórico de la cotización del dolar
Hola, tengo hecha una consulta web en una planilla de Excel que lo que hace es escribir la cotización del dolar en una celda cada 5 segundos.
Lo que me interesaría hacer es un registro histórico de las cotizaciones que va tomando el dolar durante el día. De manera que en el futuro cuando quiera saber cuales fueron las cotizaciones del dolar durante el horario de negociación en tal fecha, tenga un archivo con todos los valores que tomo durante la cesión de negociación para consultar.
Desde ya muchas gracias.
Pon la siguiente macro en los eventos de tu hoja.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante amor
If Not Intersect(Target, Range("A3")) Is Nothing Then
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Rows(3 & ":" & 4).Copy
h2.Cells(u, "A").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End SubSigue las Instrucciones para poner la macro en worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
En la macro debes cambiar los siguiente:
1. "Hoja1" por el nombre de la hoja que recibe las cotizaciones.
2. "Hoja2" por el nombre de la hoja que va a guardar el histórico.
3. A3 por alguna de las celdas que se actualizan en tu hoja.
4. H1.Rows(3 & ":" & 4). Copy ---> El 3 y el 4 por los números de filas que vas a copiar a la otra hoja.
Listo, prueba y me comentas.
Saludos. Dante Amor
Recuerda valorar la respuesta.
