Eu agradeço muito! Mas consegui com ajuda fazendo assim! SELECT cria.NBdaVaca, cria.BdaCria, cria.DatadeNasc, DateDiff("yyyy",[cria.Datade...

Deu certo tb! Muito obrigado!

Acabei descobrindo! NICE! Mas não sei se tem como fazer melhor! Range("E4,E5,E7,E8,H8,H7,H5,H4,K4,K5,K7,K8").Select Selection.Clea...

Muito Obrigado a todos! Com suas dicas consegue acabar o relatório do serviço valeu mesmo economizei só 30 dias de serviço valeu! Era muita coisa!

Muito Obrigado! Leonardo,MPrudencio,Osvaldomp e Mauro Coutinho. Vcs são feras! Só que surgiu algo que achei que não ia precisar mas vou precisar. Se...

Muito Obrigado pela ajuda MPrudencio! E o mesmo da 1 mensagem que enviei. Só tinha esquecido de mencionar os detalhes acima campo sem X e copiar tamb...

Deu certo mas não copio o numero sem X exemplo 119x 120 121xx Resultado x119 121xx ele não copio o 120

Apareceu a mensagem! Erro de compilação: Era esperado: Goto ou Resume fiz dessa forma. Sub teste() Set Ws = ThisWorkbook.ActiveSheet On Error...

Deu certo mas quando não tem X da erro! Exemplo: 118x 120 119xx

Leluir Obrigado pela suas respostas mas vc não entendeu o que eu quero. Não o corpo do userform e nem o label que quero mudar a cor. É do userform e...

Boa tarde! Agradeço pelas dicas leluir mas não deu certo o que você disse.

Obrigado pela sua resposta mas não deu certo! Não é o fundo do corpo que eu quero mudar e sim o a cor do caption o que está escrito "MUDAR AQUI ...