WADEVCAMP
12-12-2019, 02:55 PM
In all attempts to assign 'i' the value in the code below, a type mismatch error occurs. If I change the match type to '0', it works as expected. If I resort the range wrng2 to be ascending values and use a match type of either 0 or 1, it works as expected. Only when using a match type of -1 with a descending range of values does the error occur. Help! (wrng2 is depicted in the attachment below)
Sub tyu()Dim i As Integer
Dim d As Date
d = #8/4/2019#
i = Application.Match(d, Range("wrng2").Value, -1)
d = Range("wrng2").Cells(7, 1).Value
i = Application.Match(d, Range("wrng2").Value, -1)
i = WorksheetFunction.IfNa( _
Application.Match(d, Range("wrng2").Value, -1), _
0)
d = WorksheetFunction.Index(Range("wrng2"), 6)
End Sub
Sub test()
Dim i As Variant, d As Date
d = #8/24/2019# 'mm/dd/yyy
'with Int(CDbl(d)) We get the excel number for a date
i = Application.Match(Int(CDbl(d)), Range("wrng2"), -1)
MsgBox i
End Sub
25629
Sub tyu()Dim i As Integer
Dim d As Date
d = #8/4/2019#
i = Application.Match(d, Range("wrng2").Value, -1)
d = Range("wrng2").Cells(7, 1).Value
i = Application.Match(d, Range("wrng2").Value, -1)
i = WorksheetFunction.IfNa( _
Application.Match(d, Range("wrng2").Value, -1), _
0)
d = WorksheetFunction.Index(Range("wrng2"), 6)
End Sub
Sub test()
Dim i As Variant, d As Date
d = #8/24/2019# 'mm/dd/yyy
'with Int(CDbl(d)) We get the excel number for a date
i = Application.Match(Int(CDbl(d)), Range("wrng2"), -1)
MsgBox i
End Sub
25629