Macro para copiar datos de hoja 1 a hoja 2 sin repetir valores para (Dante Amor)
Volviendo al tema del histórico, lo que necesito es que al copiar a la hoja 2 los datos que la planilla va actualizando en la hoja 1, evite repetir aquellos datos con el mismo valor.
Ej: Si se actualiza la planilla a las 12:00:00 y el valor del dolar es de $13, entonces lo copie en la hoja 2. Luego 12:00:05 se vuelve a actualizar la planilla y el valor del dolar sigue siendo de $13, entonces no lo copia a la hoja 2 porque la cotización sigue siendo la misma. Nuevamente 12:00:10 se vuelve a actualizar y ahora el valor del dolar es de $13,5, entonces copia a la hoja 2 el nuevo valor.
Es así porque el concepto de histórico en la cotización del dolar se basa en los diferentes valores que toma el dolar durante el horario de negociación y no los valores en el tiempo.
Con respecto al orden que le diste en la hoja 2 a las columnas y los datos que agregaste de la fecha y la hora de la cotización están perfectos.
Saludos
1 Respuesta
Te envié el archivo con la macro:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante amor
If Not Intersect(Target, Range("A2")) Is Nothing Then
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h2.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(2, "A") <> h2.Cells(u, "A") Or _
h1.Cells(2, "B") <> h2.Cells(u, "B") Then
u = u + 1
h1.Rows(2).Copy
h2.Cells(u, "A").PasteSpecial Paste:=xlValues
h2.Cells(u, "C") = Date
h2.Cells(u, "D") = Time
End If
Application.CutCopyMode = False
End If
End Sub
