Experimente: altere: Set ws=Worksheet(2) para : Set ws = Worksheets("BCODADOS") -->Por questão de segurança caso mude ou insira uma nova...

Bom dia!! Uma forma não tão elegante.. Att

Bom dia!! Eu fico feliz por ajudar, obrigado pelo retorno! Precisando sabe onde nos encontrar Att

Bom dia!! Sua imagem está com problemas, pois não é possível a visualização! Att

Boa noite!! Faça os testes... Att

Boa noite!! Tem como você fazer manualmente o que deseja, para que eu possa ajuda-lo? Monte alguns resultados manualmente. Obs: Não lista com os no...

Bom dia!! Se eu entendi bem a função PROCV resolve seu problema, mas eu seu anexo eu não vejo nomes associado ao contrato. Onde está os contratos e ...

Boa noite!! Seria isso...? Em N10, ponha a formula=M10*0,08arraste para baixo. A segunda parte está confusa... QUERIA QUE QUANDO EU MUDASSE A PRIMEI...

Boa noite!! Eu não entendi muito bem, quando você diz planilha é mesmo que guia? caso sim use Private Sub Worksheet_Activate() Leia:

Boa noite!! Eu nunca usei outolook, por isso eu não tenho como testar. Quando você papel carta, eu não compreendo sua dúvida. Veja se aqui tem algo...

Boa noite!! Na pesquisa do fórum há explicações para enteder esse erro. Com certeza há alguma referencia errada ou não referenciada!! As duas linha...

Tópico resolvido com o exemplo abaixo: Private Sub TextBox1_Change() Dim UltimaLinha As Long Dim i As Long UltimaLinha = Sheets("...