Se eu entendi este codigo atende Sub CopiaPlanilha() Dim Caminho As String Caminho = "C:Users" & Environ("User Name")...

Copa para funcionar vc precisa fazer o seguinte: ShtDADOS_ACT.Range("$C$11:$M$38").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ActiveW...

Sem a base de dados a TD nao funciona.

Vamos la! De onde vem os dados? Como seria uma planilha desta preenchida? Pq das perguntas! Vc pode lançar todas as informções de suas medições em...

Se vc sabe o momento que esta informação e apresentada na tela e da onde vem carregue em uma variavel. E use a variavel no momento que precisar.

Não sei qtas vezes vc vai fazer isso mas se for apenas para criar a lista exclusiva eu faria assim Selecione todos os dados que precisam se excluisos...

Não entendi bem o problema mas ja tentou usar power query para realizar a busca?

Entendo seu problema mas usar a quebra de pagiina nao é uma boa ideia. Qto ao arquivo vc nao postou.

Provavelmente a diferença é na resolução do monitor. Minha sugestao use outro criterio para execução da macro.

Concatene os dados.

Tente Assim Sub Diferentede () Dim linha as long for linha = 2 to range("C" & rows.count).enc(xlup).row if cells(...

... tipo eu queria q ele so buscase as linhas q estao sem colorir, e quando tiver cor ele ivitase, tipo uma buscar por cor isso e possivel? Que crite...

Use o mesmo criterio para pintar de vermelho para fazer a busca.

Exatamente o que o colega sugeriu é so configurar a pagina como deseja que saia o arquivo.