0

Tenho o seguinte problema ...

Na aba 01 esta meu banco de dados;
Na aba 02 esta meu formulário;

Gostaria de fazer uma macro que copia as informações da aba 01 para aba 02 com um critério.
Por Exemplo: As informações na aba 01 estão C10:I10 e serão inclusas linhas diariamente com informações através de datas. Na aba 02 tenho o formulário que também vai de C10:I10 e quero copiar as informações da aba 01 com a data que vai ser digitada na célula D5, ou seja, célula D5 vai ser o filtro para copiar somente as informações correspondentes a data digitada.
Para copiar e colar esta macro esta funcionando, so preciso arrumar a questão do filtro que não funciona.

Sub Macro8()

Range("C10:I10").Select
Sheets("Data Base").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Range("C10:I10").Select
Sheets("Formulário").Select
ActiveSheet.Paste

Application.CutCopyMode = False

Sheets("Data Base").Columns("C:I").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("C5"), CopyToRange:=Range("C10:I10"), _
Unique:=False
Range("D5").Select

End Sub

Me ajudem por favor ... preciso automatizar a planilha que vai facilitar muito meu trabalho.

Obrigado.