Veja se o resultado é o esperado.
Adaptado da sua Macro.
De qualquer maneira, inclua títulos nas colunas C e D se elas farão parte da área do filtro.
Sub HOJE()
'MACRO QUE PROCURA PRIMEIRO , SE A MESMA NAO ENCONTRAR ND REFERENTE , A MESMA NÃO FILTRA E RETORNA A MSBOX
If WorksheetFunction.CountIf(Range("$F$11:$F$20000"), Date) = 0 Then
MsgBox " NÃO TEMOS DATA PARA ESTA OCORRÊNCIA ... "
Exit Sub
Else
ActiveSheet.Range("$C$10:$G$20002").AutoFilter Field:=4
'MACRO QUE FILTRA A DATA DE HOJE
ActiveSheet.Range("$C$10:$G$20000").AutoFilter Field:=4, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
End If
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/01/2017 4:53 pm