Comparar Fechas macro?
Publicado por miguel (14 intervenciones) el 13/12/2017 03:51:08
Hola a todos tengo un gran problema y no lo puedo resolver ojala me puedan orientar
Tengo una columna en la cual existen solo fechas las cuales quiero comparar con la fecha actual
y posteriormente mostrarla en otra hoja donde en un MSGBOX o en un panel me muestra como resultado las fechas que ya pasaron a comparación del dia actual.
Este es mi código:
Tengo una columna en la cual existen solo fechas las cuales quiero comparar con la fecha actual
y posteriormente mostrarla en otra hoja donde en un MSGBOX o en un panel me muestra como resultado las fechas que ya pasaron a comparación del dia actual.
Este es mi código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub CalibrationExpired_Click()
Sheets("sheet2").Select
Dim contador As Integer
Dim n As Integer
Dim fecha As Date
Dim pos As Integer
pos = 0n = 1Dim ID As Integer
Dim matrizDesc(477, 2) As Integer ' 477 es el numero de celda donde termina el listado, se crea una matriz de 477 filas, con dos columnas. Esta matriz sera la que mostrara la funcion "Msgbox"
Dim fechaActual As Date
fechaActual = DateFor contador = 2 To 478fecha = Sheet2.Cells(contador, 5)
'fecha = CDate(Sheet2.Cells(contador, 5))
MsgBox (fecha)
If fecha < fechaActual ThenID = Sheet2.Cells(contador, 1)
End If
matrizDesc(n, 1) = ID
matrizDesc(n, 2) = fecha
n = n + 1
contador = contador + 1
Next
MsgBox (matrizDesc)
End Sub
Valora esta pregunta
0
