COMO EU RESPONDO UMA JANELA DE ALERTA AUTOMATICAMENTE ? Application.DisplayAlerts property NÃO FUNCIONA POIS EU QUERO DIZER SIM OU NÃO !

[walac]

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

[Alyson Ronnan Martins]

Boa tarde @walac você não colocou a foto que esta aparecendo.

Teria como mandar uma planilha exemplo para simular o que está acontecendo?

[walac]

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

[Alyson Ronnan Martins]

Vixi um pouco complicado consigo tentar simular com uma planilha ou depois das 19 horas.

[walac]

está bem, irei agradecer eternamente !