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.

Na próxima vez, anexe a planilha. Estude o código e adapte: Private Sub CommandButton1_Click() Dim i As Long i = 1 While Plan1.Range("A&q...

Sub Macro1() ActiveWorkbook.SaveAs Filename:="C:UsersANDERSONDesktop" & Range("Y3").Value & "...

Patropi, não sei se veio o arquivo correto mas não está funcionando como deveria. Eu imagino que quando mudar a celula suspensa a de baixo se auto-pr...