Vc mandou a mesma coisa que já estava na primeira imagem. Não preencheu nada, não explicou como vai ser usada a planilha, não colocou os critérios. ...

Manda o modelo da planilha que fica mais fácil.

Em P10: =CONT.SE($B10:$N10;P$1) Em Q10: =CONT.SE($B10:$N10;Q$1) Em R10: =CONT.SE($B10:$N10;R$1) Em U10: =SOMARPRODUTO(--($B10:$M10<>$C10:$N10...

Cara, vc não postou um exemplo real, dai complica te ajudar. O Patropi deu em exemplo com filtro. Eu fiz um outro modelo, com mala direta. Veja que...

Essa explicação não te ajuda?

Seria bom vc disponibilizar o modelo da planilha, explicando com detalhes o que pretende fazer. Por formulário, vc se refere a userform? Eu creio que...

Vc verificou se as informações estão corretas? ultimaPlanilha é um número, certo? Ele deveria indicar a quantidade de planilhas após vc ter criado um...

Vc só postou um pedaço do código, não enviou o modelo da planilha, e a dúvida ficou confusa. Além de não ajudar o pessoal a entender o teu problema, ...

Sub PESQUISA_GENERICA() 'Adapte para os outros 99,9% do código Dim CORRESP As Long, INDICE As Date, PROCURADO As Date InputBox ("Digite a data p...

Então, basta especificar a planilha antes de apagar: Sub apagar_a_ultima_celula_da_coluna_D_agora_testado() With Sheets("teste") .Cells(Row...

Tá, mas... O que vc quer fazer? Vc quer fazer uma pesquisa? Isso dá pra fazer até com fórmulas. Sem o modelo da planilha, a resposta vai ser tão ge...

Para o caso da célula D2, vc estava fazendo assim: If Target.Address = "$D$2" Then 'toda esta parte trata e...

É isso que eu disse, está dinâmico para mim, a referência está dinâmica em area_GT, e fixa em Área de Impressão. Vc testou o anexo ali? Tinha dado c...

Sub apagar_a_ultima_celula_da_coluna_D_nao_testado() 'PS: poste sempre seu anexo Cells(Rows.Count, "D").End(Xlup).Row.ClearContents End Sub

Hmm, não sabia dessa. Criei um nome à parte - area_GT - e joguei o nome na área de impressão. Fiz os testes que vc falou e não perdeu mais a referên...