Ficou um pouco confuso, o que quer dizer com "que permaneça o mesmo tamanho de página", se estiver falando de configuração de impressão dá p...

Issamu, irá fazer diferença se utilizar da forma que fez : If Target.Address = "$A$2" Or Target.Address = "$D$2:$G$2" Then Em cel...

ericson, se possivel anexe um modelo, ficara mais facil procurar ajudar.

Veja se consegue ajustar, se não mais tarde ajusto para voce. Filtrar valores Unicos em Abas Separadas []a

ericson, não entendi quando diz ter um listox multiplo, e quanto ao filtro, veja no link abaixo é o que pretende, tem até um exemplo para baixar. Exc...

Bom dia joragen Anexe a planilha diretamente aqui no fórum. []s

Por sorte eu ainda tinha esse arquivo, pois de tempos em tempos eu faço uma limpeza nos arquivos mais antigos, não sei como ainda tinha esse que é de ...

Bruno Como você é novo no fórum ainda não leu, que devido a migração do fórum, para um novo provedor, os arquivos anexados ficaram corrompidos. Quan...

Consegui fazer funcionar Mauro, porém..... hahahah Quando algumas celulas da linha que quero apagar o macro "crasha", só consigo clicar em f...

Se entendi, é só adicionar a linha abaixo antes da linha "If Intersect(Target, Range("D3:J3")) Is Nothing Then Exit Sub" If Targe...

O erro está na rotina --> Private Sub btn_cad_Click() linhas: Cells(cont, 7) = txt_uf1 --> aqui o nome e box_uf1 Cells(cont, 8) = txt_est -->...

Coloque uma aspas apos a extensão do arquivo assim " &nome & ".xls" Prudencio, se colocar as aspas da forma que indicou estar...

eliel, Clique com o Botão direito do Mouse na aba que pretende e selecione "Exibir Código" e na janela que abrir cole a rotina acima. Agor...

O ideal seria ter colocado a rotina completa para saber de onde está vindo o nome do arquivo que alimenta a variavel "nome", mas veja se é i...

Utilizei o mesmo valor multiplicador da rotina acima (5), e acrescentei as instruções para que seja efetuada a multiplicação somente se for digitado n...