none
Erro '1004' RRS feed

  • Pergunta

  • Pessoal, bom dia!

    Estou enfrentando um problema com um código que criei essa semana, a função dele é criar uma planilha nova igualzinha a que eu uso porém sem fórmulas. E quando chega na linha de Cells.Select a execução trava a informa o erro "Erro em tempo de execução '1004' Erro de definição de aplicativo ou de definição de objeto"

    Meu código está assim no momento

    Sub Cria_Week_Ending()
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\Users\k.santos\Desktop\Week Ending\Week Ending COM FÓRMULAS2.xlsx"
    Workbooks("Week Ending COM FÓRMULAS2.xlsx").SaveAs Filename:="C:\Users\k.santos\Desktop\Week Ending\Week Ending.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled,
     CreateBackup:=False
    Workbooks("Week Ending.xlsm").Activate
    Sheets(Array("Brazilian vendor", "Foreign vendors", "Master", "Plan1")).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets(Array("Master", "Plan1")).Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Brazilian vendor").Select
    Workbooks("Week Ending.xlsm").Save
    Workbooks("Week Ending.xlsm").Close
    ActiveWorkbook.Save
    MsgBox "Planilha sem fórmulas criada com sucesso!", vbInformation, "Pronto"
    End Sub



    Alguém consegue me ajudar?

    Valeu!!!

    • Editado Kaick93 segunda-feira, 21 de agosto de 2017 14:29
    segunda-feira, 21 de agosto de 2017 14:21

Respostas

Todas as Respostas

  • Boa tarde, Kaick93. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Da uma olhada nesse link, veja se te ajuda.

    https://social.msdn.microsoft.com/Forums/pt-BR/9d92b129-c3f4-4273-b1a2-aa668c260b89/erro-no-vb-do-excel-definio-de-aplicativoobjeto?forum=excelpt

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 21 de agosto de 2017 20:45
    Moderador
  • Bom dia,

    Por falta de retorno essa thread está encerrada.

    Se preciso, favor abrir uma nova thread.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 28 de agosto de 2017 13:35
    Moderador