https://youtu.be/H3pjAg0qTu8 https://youtu.be/lXXzHrUXTEI https://www.youtube.com/watch?v=PYVfxWBLrrk

Está executando as três macros, mas na linha .Cells.EntireRow.Hidden = False Desfaz o que as anteriores fizeram. Favor marcar como r...

Sub OcultarLinhas1() Dim i As Integer Application.ScreenUpdating = False With Sheets("Formulário") .Cells.Entir...

Foi feita uma correção no código

Isso é o que deveria acontecer. Mas o que está acontecendo de errado? O que não está acontecendo? Dê um exemplo real.

Isso é o que deve acontecer, dê um exemplo do que está / não está acontecendo. QUAL É O PROBLEMA QUE ESTÁ OCORRENDO?

Anexe a planilha

Private Sub CommandButton1_Click() On Error Resume Next Dim volume, altura, comprimento, largura As Double altura = CDbl(txtAltura.Text) largu...

Intervalos nomeados dão problema. Você faz tudo certinho e mesmo assim não funcionam. Já auxiliei um amigo que estava com o mesmo problema em macro pa...

Paulo, se você imagina que está falando com gênios, está absurdamente enganado. Explique o problema como se estivesse falando com a pessoa mais ignor...

Reinaldo, esse problema já foi resolvido no último anexo postado.

Sub Localizar_Caminho() Dim strCaminho As String With Application.FileDialog(msoFileDialogFolderPicker) 'Permitir mais de uma pasta .Allo...

Por favor, teste o código que postei. Se não funcionar, explique o que não funcionou.

Com certeza vai ser café pequeno pra vocês. Como você sabe? Pode ser algo inacreditavelmente complicado. Não somos deuses.

Você deve explicar o que e onde não está funcionando. Não somos videntes.