Boa tarde!!

Onde está seu arquivo compactado?????????

Att

Aqui

Boa tarde!

Eu entendi só essa parte

Sub FilterAleVBA()
   With Plan1
        .AutoFilterMode = False
        .Range("A1:K1").AutoFilter Field:=11, Criteria1:="Presente"
        .Range("A1:K1").CurrentRegion.Copy Destination:=Plan4.Range("A10")
        .Range("A1:K1").AutoFilter
   End With
End Sub

Você em dar baixar e a linha ser então deletada, eu ainda estou boiando.

Faça os teste, e veja o que falta.

Att

Olá alexandre, não deu muito certo, chega uma hora que não aparece mais os presentes...
Bom, tive essa ideia, mas por algum motivo o código não funciona, não sei o que fiz errado.
Pensei em juntar esse código com o do botão de entrada, assim, toda vez que der entrada, o filtro atualiza, o mesmo com as saídas.
Será se funciona?

Sub Lista_presente()
'Limpa dados
Range("Plan1!B14:IV65536").ClearComments

'reestabelece os dados de acordo com os critérios

Range("Controle!a1:iv65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Plan1!a1:iv2"), CopyToRange:=Range("Plan1!B14"), Unique:=True


End Sub

acabei de refazer o código... Mas eu acho que minha planilha deve estar com problemas, pq o
Range("Plan1!B14:IV65536").ClearComments , deveria limpar os dados, mas ficam sempre os mesmos, mesmo depois
de apaga-los na planilha controle. =/

Boa noite!!

Tente....

Sheets("Plan1").Range("B11:L3000").ClearContents

Edite seu intervalo, eu peguei um exemplo.
Att

Cara que bacana! agora sim a macro faz a limpeza direitinho.
Mas meu problema agora é outro, meu filtro só retorna o código da pessoa e as outras células em branco =/

Boa noite!!

Tente meu arquivo e use o Botão "AleVBAFiltro" caso não for isso especifique exatamente qual código está tentando adaptar.
Baixe o arquivo em:
http://www.sendspace.com/file/hu8h8k

Att

Caraca! isso mesmo o/
Você é muito bom!!

Teria como deixar sem pegar o dia da semana e a data?

Boa noite!!

Veja se é isso...

Att