Jump to content
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 !


Question

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 to post
Share on other sites

4 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148933
    • Total Posts
      644970
×
×
  • Create New...