Código
Há várias maneiras de realizar um match nos valores de um arquivo Excel. (.Find, Match, Arrays, Dictionary, Collection, Autofilter, Loop, Excel Fórmula)
Se a planilha possui muitos dados os métodos que utilizam arrays são mais rápidos, porém o autofiltro também é rápido e mais fácil de entender. Portanto, este será usado. A interação entre o VBA e a planilha deve ser minimizado e esta referência lida.
Declarações
Dim ws As Worksheet
'Worksheet de index 1 ou inserir o "NOME_entre_aspas"
Set ws = ThisWorkbook.Sheets(1)
Dim j As Long, i As Long, LastRow As Long
Dim VisibleRange As Range
Dim MyArray As Variant
ReDim MyArray(0 To 1000)
j = 0
Principal
Data = Format(Now, "dd-mm")
'Loop da Coluna 2 (B) até C(3)
With ws
'Última Linha da coluna A
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To 3
'AutoFiltro
.Range(.Cells(1, i), .Cells(1, i)).AutoFilter Field:=i, Criteria1:=Data
'Cria range com as células visíveis após Filtrar
On Error Resume Next
Set VisibleRange = .Range(.Cells(2, 1), .Cells(LastRow, 1)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not VisibleRange Is Nothing Then
'Loop nas células visíveis após aplicação do AutoFiltro
For Each Cell In VisibleRange
MyArray(j) = Cell
j = j + 1
Next
End If
'"zera" o autofiltro, mostrando todos dados filtrados
If .FilterMode Then
.ShowAllData
End If
Next i
'Redimensiona Array para quantidade de elementos correto
If j > 0 Then
ReDim Preserve MyArray(0 To j - 1)
'Loop em cada elemento da Array para criar String
For j = LBound(MyArray) To UBound(MyArray)
txt = txt & MyArray(j) & vbCrLf
Next j
MsgBox txt
Else
MsgBox "Nenhuma data encontrada."
End If
End With
Dados
Assumindo os valores da seguinte forma:
Caso esteja de outra, formatar na planilha ou no código.
Resultado
msgbox
para isso! Apenas gerar a lógica do código no vba para fazer essa verificação. Lembrando que datas com "01-01", usando um traço-
não são padrão no Excel, mas se estiver usando formatação condicional, ok! Já fez algum código para gerar essa validação? Poderia postar?