walac

está bem, irei agradecer eternamente !

o que está acontecendo é essa foto ai, eu quero que a opção seja não, toda vez !

MEU CODIGO : nesse codigo eles me pedem para eu salvar sobre a pasta resumo, e eu não quero salvar sobre a pasta resumo no fim, vou anexar uma foto da janela de alerta. EU QUERIA SABER COMO EU AUTOMATIZO PARA RESPONDER NÃO AUTOMATICAMENTE, OU SIMPLES EU não FAZER UM SALVAMENTO SOBRE RESUMO. Sub Geração_Ficha() ' ' Geração_Ficha Macro Dim Agente As String Dim Nome_arquivo As String Dim Caminho As String Dim Base As Worksheet Dim linha As Long Set Base = Worksheets("Base agrupada para Ficha") linha = 2 x = 3 While Planilha4.Cells(3, 1) <> "" Agente = Planilha4.Cells(3, 1).Value Nome_arquivo = "Ficha de Cliente - " & Agente Caminho = "C:\Users\ABAXNZZ\Documents\Wallison - Otimizações\1- Nova Ficha de clientes\FICHAS\" Range("A3").Select Selection.Copy Sheets("Resumo").Select Range("P1").Select ActiveSheet.Paste Sheets(Array("Resumo", "Base agrupada para Ficha")).Select Sheets("Base agrupada para Ficha").Activate Application.CutCopyMode = False Sheets(Array("Resumo", "Base agrupada para Ficha")).Copy Range("C1").Select ActiveWorkbook.ShowPivotTableFieldList = False Range("P1").Select Selection.Copy Sheets("Base agrupada para Ficha").Select Columns("J:J").Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("Resumo").Select Range("c1").Select ActiveSheet.PivotTables("Tabela dinâmica1").ChangePivotCache ActiveWorkbook. _ PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Base agrupada para Ficha!C1:C9", Version:=6) Range("C16").Select ActiveSheet.PivotTables("Tabela dinâmica2").ChangePivotCache ("Tabela dinâmica1" _ ) Range("P1").Select Selection.Copy Application.CutCopyMode = False ChDir "C:\Users\ABAXNZZ\Documents\Wallison - Otimizações\1- Nova Ficha de clientes\FICHAS\" ActiveWorkbook.SaveAs Filename:=Caminho & Nome_arquivo, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close Sheets("Execução macro").Select Rows("3:3").Select Selection.Delete Shift:=xlUp Range("A2").Select Wend End Sub