Sei la mas tenta atualizar o antivirus.

O codigo pra gerar o pdf é relativamente simples, como vc pode ver abaixo: Sub PDF() Dim Wmap As Worksheet Dim W As Workbook Dim Arq As String Ap...

Fiz alguns ajustes e se por exemplo ao digitar o nif do cliente este nao tiver cadastro vai abrir automaticamente a folha de cadastro, se ja for um cl...

Sem um modelo do arquivo, os dados nao importam.... fica impossivel ajudar.

Disponibilize o arquivo. Assim podemos ajudar. De qualquer maneira coloque o arquivo na nuvem e faça o download. assim vc sera obrigado a autorizar...

Outra dica e tentar assim Selection.AutoFilter Field:=16, _ Operator:=xlFilterValues, _ Criteria1:=Array("<>3719", "...

Ja tentou usar o gravador de macros?

Exatamente como eu disse que eu disse em o valor da celula nao serve como comando e sim como um valor para pesquisa/prenenchimento. Qdo vc usa em To...

Envio nao seria para enviar o email?? Da forma que vc esta fazendo esta carregando dentro da variavel Envio o valor da celula I4 Vc esta dizendo que...

Como vc nao indicou em que parte do codigo o erro acontece ja que tem 3 momentos que vc usa a instrução Envio, entao sugiro que vc faça o seguinte uti...

Coloca o codigo inteiro....

De novo tentou a dica anterior ao inves de activesheet usar Sheet ("Nome da Aba") Tente as outras sugestões que passei. Esse é o tipo de c...

Da pra fazer com Formulas, Fitro Avançado,e com VBA, VBA é o modo mais simples de fazer. Mas uma coisa é certa NUNCA FAÇA UMA TABELA ABAIXO DE OUTRA...

Tenho a impressao que ta faltando coisa ae Tente assim sEnvio = ActiveSheet.Range("I4").value Uma dica que eu uso bastante em meus codi...

Suponha que vc tenha isso nas celulas 10 e 20 esse comando deve lhe retornar algo assim 1020 é isso mesmo que vc pretende? E a informação é pra pegar...