Ir para conteúdo
Fórum Script Brasil
  • 0

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


walac

Pergunta

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

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...