'VBA MACRO EXCEL - APPLICATION EXCEL MATH FUNCTION
'BUSCAR FECHA VBA MATCH EXCEL - FIND DATE EXCEL RANGE
'MEDIANTE ESTA MACRO RETORNARA LA FECHA BUSCADA EN UN RANGO DE CELDAS SELECCIONADAS
Sub MatchBuscarFecha()
Dim TheDate As Date
Dim Index As Variant
TheDate = #1/1/2000#
'Hallar el item entre la colección de celdas.....trabaja igual buscando entre los elementos de
'un array el primer argumento es el elemento a buscar "dato" , el segundo argumento sera el array de datos()
'Aqui asigno como segundo argumento la seleccion de celdas
' pero podrias colocar cualquier rango --> Range("A1:A500") por ejemplo
Index = Application.Match(CLng(TheDate), Selection, 0)
.
'Mostrar el dato encontrado si existe
If IsError(Index) Then
MsgBox "No encontrado"
Else
MsgBox "item: " & Index & " celda : " & Selection.Cells(Index).Address
End If
End Sub
