Veja, dá pra ser assim: =25-SOMARPRODUTO((PROC($E$8:$E$13;{8;9;10;11;12;13;14;15;16;17;18};{0;1;2;3;4;5;6;8;10;13;16}))) Ou assim: =25-SOMARPRODUTO((...

Júlio, Eu fiz o que vc falou, e, realmente, a planilha não fechou. Porém, em alguns momentos, ela fecha. Eu não consegui entender a lógica, e tudo o...

Experimente: Sub Unificar_GT() Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets If Not ws...

Bem, vamos aguardar e ver se mais alguém enfrenta o mesmo problema, porque comigo não aconteceu.

Amigo, o nome da planilha e a seleção dela, nesse caso, não faz diferença. Vc testou a sugestão que te passei por último?

Eu testei a tua planilha, sem mexer nada, e não tive o problema que vc relatou (Excel 2013). Entretanto, fiz uma alteração nos códigos do Userform, v...

Sem o modelo, tente assim: Private Sub CommandButton3_Click() Application.enableevents = false Plan1.Select Unload UserForm2 Application.enab...

Tá, mas vc fez na máquina que tá tendo o problema? Veja, se tudo roda normal, o problema não é no código, é na máquina. Vc tb pode dar uma pesquisad...

Testei na tua planilha e fiz um pequeno ajuste, pois eu tinha cometido um engano em uma linha do código: Sub Apagar_3_a_revanche_testado() Applicati...

Esse controle está na planilha? Sheets("Plan1").Shapes("Botão 1").Delete Dá uma olhada tb nesse link: viewtopic.php?f=10&t=1...

Tá, mas... vc tentou fazer o que o Fernando indicou? É simples, rápido, não dói e não paga nada.

Isso foi o que eu entendi. Sub Apagar_3_a_revanche_nao_testado() Application.ScreenUpdating = False Dim intervalo As Range Dim celula A...

Vc consegue reproduzir o exemplo dessa planilha? Aqui tem um ponto de partida do PROC:

Estou vendo, é como eu falei. Vc colocou na linha 2874, uma fórmula que eu disse que era pra colocar na linha 10.

Não, não, está contando 6. Vc deve ter inserido a fórmula certa, no local errado.