Selecionar ultimos dados por data, com filtro aplicado.

[anders1405]

Olá pessoal, gostaria de uma ajuda para inserir um código em minha planilha.

Preciso selecionar todas as celulas da coluna C, onde na coluna B (que é a data), compreenda os ultimos 7 dias ali listados... lembrando que preciso aplicar filtros de produtos, então ele deve selecionar apenas as celulas visivies.

Se puderem me ajudar em algo.

Obrigado.

Anderson.

[muca]

Sub Filtrar()
Dim P As String
With ActiveSheet
P = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
ActiveSheet.Range("$A$1:$C$" & P).AutoFilter Field:=1, Criteria1:="7", _
Operator:=xlBottom10Items
Range("C2:C8").Select
End Sub