Macro copiar datos de las ultimas 2 horas
Hola , tiene una macro para extraer datos de copiar de las ultimas dos horas de la hoja Data a Hoja Analizar
Ultimas dos horas en la columna A ahí viene la hora
1 Respuesta
Respuesta de Dante Amor
1
Prueba con la siguiente macro.
Supongo que en la columna A tienes las fechas de menor a mayor, entonces las últimas filas tienen las últimas horas. También supongo que la la última celda de la columna A tiene la última hora y de esa hora hacia atrás quieres las 2 últimas horas
Sub ExtraerHoras()
'Por.Dante Amor
Set h1 = Sheets("Data")
Set h2 = Sheets("Analizar")
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
uhora = h1.Range("A" & u1) - TimeValue("02:00:00")
For i = u1 To 1 Step -1
If h1.Cells(i, "A") < uhora Then
ini = i + 1
Exit For
End If
Next
If ini > 0 Then
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Rows(ini & ":" & u1).Copy h2.Range("A" & u2)
End If
End Sub
