Ir ao conteúdo
  • Cadastre-se

Excel VBA para escritório, macro não esta executando a partir da pasta2


Posts recomendados

Não estou conseguindo executar minha macro quando passa de mais de uma pasta, até a pasta1, segue ok.

Segue abaixo a macro e será que pode me ajudar?

 

Sub FiltrarExtratoFornecedor_LojaREF()
'
' FiltrarExtratoFornecedor_LojaREF Macro
   
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    'Seleção do arquivo para extração
    Range("W6").Select
    Selection.ShowDetail = True
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Sheets.Add After:=ActiveSheet
    Windows("BEBIDAS_Acomp_ReaçãoPreço.v4-NANC.xlsb").Activate
    Sheets("De_Para_Loja REF").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Pasta1").Activate
    ActiveSheet.Paste
    Sheets("Planilha2").Select
    Sheets("Planilha2").Name = "Loja Referencia"
    Sheets("Planilha1").Select
    Sheets("Planilha1").Name = "Extrato"
    Columns("Q:Q").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("A2").Select
    
   'Salvar arquivo na rede renomeado por Fornecedor
    ActiveWorkbook.SaveAs Filename:= _
        "\\brnts800\data11\Food\MERCEARIA\BEBIDAS FRIAS Final\SUCOS_NANC-HIDRATACAO\ANDRE_CAMARGO\Ferramenta_BEBIDAS\EnviarArquivo_Fornecedor\" & "Extrato_Reação-" & Range("T2") & "-" & Format(Now, "ddmmyy") & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    ActiveWindow.Close
    Sheets("Acompanhamento_REAÇÃO").Select
    Range("E2").Select
    
'Deletar planilhas que foram utilizadas para extração
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets(Array("planilha1")).Delete
    On Error Resume Next
    Sheets(Array("plan1")).Delete
    On Error Resume Next
    Sheets(Array("planilha2")).Delete
    On Error Resume Next
    Sheets(Array("plan2")).Delete
    On Error Resume Next
    Sheets(Array("planilha3")).Delete
    On Error Resume Next
    Sheets(Array("plan3")).Delete
    On Error Resume Next
    Sheets(Array("planilha4")).Delete
    On Error Resume Next
    Sheets(Array("plan4")).Delete
    On Error Resume Next
    Sheets(Array("planilha5")).Delete
    On Error Resume Next
    Sheets(Array("plan5")).Delete
    On Error Resume Next
    Sheets(Array("planilha6")).Delete
    On Error Resume Next
    Sheets(Array("plan6")).Delete
    On Error Resume Next
    Sheets(Array("planilha7")).Delete
    On Error Resume Next
    Sheets(Array("plan7")).Delete
    On Error Resume Next
    Sheets(Array("planilha8")).Delete
    On Error Resume Next
    Sheets(Array("plan8")).Delete
    On Error Resume Next
    Sheets(Array("planilha9")).Delete
    On Error Resume Next
    Sheets(Array("plan9")).Delete
    On Error Resume Next
    Sheets(Array("planilha10")).Delete
    On Error Resume Next
    Sheets(Array("plan10")).Delete
    On Error Resume Next
    Sheets(Array("planilha11")).Delete
    On Error Resume Next
    Sheets(Array("plan11")).Delete
    On Error Resume Next
    Sheets(Array("planilha12")).Delete
    On Error Resume Next
    Sheets(Array("plan12")).Delete
    On Error Resume Next
    Sheets(Array("planilha13")).Delete
    On Error Resume Next
    Sheets(Array("plan13")).Delete
    On Error Resume Next
    Sheets(Array("planilha14")).Delete
    On Error Resume Next
    Sheets(Array("plan14")).Delete
    On Error Resume Next
    Sheets(Array("planilha15")).Delete
    On Error Resume Next
    Sheets(Array("plan15")).Delete
    On Error Resume Next
    Sheets(Array("planilha16")).Delete
    On Error Resume Next
    Sheets(Array("plan16")).Delete
    On Error Resume Next
    Sheets(Array("planilha17")).Delete
    On Error Resume Next
    Sheets(Array("plan17")).Delete
    On Error Resume Next
    Sheets(Array("planilha18")).Delete
    On Error Resume Next
    Sheets(Array("plan18")).Delete
    On Error Resume Next
    Sheets(Array("planilha19")).Delete
    On Error Resume Next
    Sheets(Array("plan19")).Delete
    On Error Resume Next
    Sheets(Array("planilha20")).Delete
    On Error Resume Next
    Sheets(Array("plan20")).Delete
    On Error Resume Next
    Sheets(Array("planilha21")).Delete
    On Error Resume Next
    Sheets(Array("plan21")).Delete
    On Error Resume Next
    Sheets(Array("planilha22")).Delete
    On Error Resume Next
    Sheets(Array("plan22")).Delete
    On Error Resume Next
    Sheets(Array("planilha23")).Delete
    On Error Resume Next
    Sheets(Array("plan23")).Delete
    On Error Resume Next
    Sheets(Array("planilha24")).Delete
    On Error Resume Next
    Sheets(Array("plan24")).Delete
    On Error Resume Next
    Sheets(Array("planilha25")).Delete
    On Error Resume Next
    Sheets(Array("plan25")).Delete
    On Error Resume Next
    Sheets(Array("planilha26")).Delete
    On Error Resume Next
    Sheets(Array("plan26")).Delete
    On Error Resume Next
    Sheets(Array("planilha27")).Delete
    On Error Resume Next
    Sheets(Array("plan27")).Delete
    On Error Resume Next
    Sheets(Array("planilha28")).Delete
    On Error Resume Next
    Sheets(Array("plan28")).Delete
    On Error Resume Next
    Sheets(Array("planilha29")).Delete
    On Error Resume Next
    Sheets(Array("plan29")).Delete
    On Error Resume Next
    Sheets(Array("planilha30")).Delete
    On Error Resume Next
    Sheets(Array("plan30")).Delete
    Application.DisplayAlerts = True
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True
       
    MsgBox ("Arquivo Salvo na Rede")
    
End Sub

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...