Visual Basic para Aplicaciones - Comparar Fechas macro?

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de miguel
Val: 22
Ha aumentado su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

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:

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 = 0
n = 1
Dim 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 = Date
 
 
For contador = 2 To 478
fecha = Sheet2.Cells(contador, 5)
'fecha = CDate(Sheet2.Cells(contador, 5))
    MsgBox (fecha)
 
    If fecha < fechaActual Then
     ID = 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder