Boa tarde!! Não testado!! Sub AleVBA_18070() Dim iLast As Long Dim iCounter As Integer iLast = Worksheets("Plan2").Range(&...

Boa tarde! Tente assim: Sub UnprotectRefresh() On Error Resume Next With Activesheet .Unprotect Password:="mypassword" ...

Mas não justifica que tamanho do arquivo...

RechBR Tá cheio de Select, isso faz ficar pesado e tremer a tela na execução. []s

Boa tarde, Veja se a seguinte fórmula, que deve ser colocada na célula B9, te ajuda: =SOMASE($I$8:$I$31;A9;DESLOC($I$8;0;CORRESP(INDIRETO("...

Suspeitei. Achei muito óbvia a pergunta por estar vindo de você. kkkkk Faça esse ShrinkToFit em VBA. Reinvente a roda. kkkkkk Fiz um exemplo. É uma ...

Como esta o alinhamento de celulas nesse bloco mesclado? Visto que a "carga" e efetuada com o VBA, não pode incluir uma quebra de linha a ca...

Se puder compactar com zip, eu conseguirei abrir aqui no trabalho pra tentar ajudar...

Por favor, compacte e disponibilize seu arquivo para eu identificar o que o torna enorme assim. Daí fica mais fácil procurar o problema nesta macro gr...

Bernardo, valeu, mas... ... o bloco de células mescladas está com Quebrar Texto Automaticamente, pois são 11 colunas por 30 linhas. Eu fui obrigado a...

Bom dia Fernando, Eu quero gradativamente reduzir o tamanho da fonte, até que o texto todo fique visível! Já tentou isso? ShrinkToFit = True Qualquer...

Bom dia, Fiz um artigo demonstrando como remover a mesclagem das células selecionadas. É um procedimento muito parecido com o já apresentado no ...

Boa noite Fiz o que vc pediu usando fórmula matricial. 09_11_15_Filtrar com critério utilizando Matricial_Patropi.xlsx Dê retorno. Se foi útil, c...

Boa tarde!! De qual o nome do userForm, nome do textBox, nome Listbox, você está se referindo ? Você tem 4 UserForm etc... Att