Loop Infinito

[Felipe Paz]

Pessoal, é o seguinte. Fiz uma macro para exportar em pdf, antes, é solicitado um nome para salvar o arquivo. O problema é o loop que eu criei. Enquanto o nome estiver vazio, a mensagem de "Insira o nome" vai aparecer. Porém esse inputbox obriga o usuário a preencher o campo não dando a possibilidade de cancelar ou fechar a janela.

 

Citar

If pdf = vbYes Then
               
                    Do While nome = ""
       
                         nome = InputBox("Insira o nome do arquivo", "Insira o nome", vbOKCancel)
        
                    Loop
               
                            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                            "C:\Users\felipe.paz\Documents\" & nome & ".pdf", Quality:=xlQualityStandard _
                            , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                            True
                
               
               Else
                     nome = MsgBox("Operação cancelada", vbInformation, "Canceled")
                     
               End If

 

[Basole]

Felipe coloque um condicao se o valor da imputBox for nulo e um Exit Do para sair do Loop:

 

  Do While nome = ""
       
                         nome = InputBox("Insira o nome do arquivo", "Insira o nome", vbOKCancel)
                        
                         If nome = "" Then Exit Do
        
                    Loop

 

[Felipe Paz]

Basole, fiz como tu indicou mas se deixa em branco o campo do inputbox ou cancela dá erro.

 

Do While nome = ""
                         nome = InputBox("Insira o nome do arquivo", "Insira o nome", vbOKCancel)
                      If nome = "" Then Exit Do
                      
                      Loop
                      
        
                                   
                            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                            "C:\Users\felipe.paz\Documents\" & nome & ".pdf", Quality:=xlQualityStandard _
                            , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                            True   (informa que o erro está aqui).

[Basole]

Coloque um exit sub para sair da macro:

 

If nome = "" Then Exit Do: Exit Sub

 

[Felipe Paz]

Valeu man ... deu certo agora!! Show de bola tuas ajudas!