Problems with dates in Array

[NatetheGreat]

Hi I have the following code.

Option ExplicitSub pull()
Dim date1 As String
Dim datekeyArray() As Variant
Dim dataArray() As Variant
Sheets(2).Select
datekeyArray = Range("a2:c14")
Sheets(1).Select
dataArray = Range("a2:r6771")






If dataArray(1, 1) > datekeyArray(1, 1) Then
MsgBox ("yes")
Else: MsgBox ("no")
End If










End Sub

For some reason the VBE here is firing NO, even though the value of dataarray(1,1) is equal to 01/04/2014 and the value of datekeyarray(1,1) is equal to 02/09/2013. Obviously 02/09/2013 is before 01/04/2013, so I am not sure why this is flagging no?

Thanks
Natethegreat

 

[konew1]

For some reason the VBE here is firing NO, even though the value of dataarray(1,1) is equal to 01/04/2014 and the value of datekeyarray(1,1) is equal to 02/09/2013. Obviously 02/09/2013 is before 01/04/2013, so I am not sure why this is flagging no?

Is 02/09/2013 09Feb and 01/04/2013 04 Jan? then 02/09/2013 is not before 01/04/2013
If
02/09/2013 is 02 Sept, and 01/04/2013 is 01 April then 02/09/2013 is still not before 01/04/2013

 

[jim may]

Your wording is off...

For some reason the VBE here is firing NO, even though the value of dataarray(1,1) is equal to 01/04/2014 and the value of datekeyarray(1,1) is equal to 02/09/2013. Obviously 02/09/2013 is before 01/04/2013, so I am not sure why this is flagging no?

 

[MickG]

Perhaps set your Array variables as below !!!!

datekeyArray = Sheets(2).Range("a2:c14").Value
    dataArray = Sheets(1).Range("a2:r6771").Value

 

[NatetheGreat]

Hi Jim,

I've checked my wording and can confirm it is correct.

 

[NatetheGreat]

Hi all,

The reason this was happening was because the cells of one of the arrays was set to text, and one was set to date. So when the arrays were being populated they weren't being compared properly hence why the logic was failing.

Thanks
nate