Usuário com melhor resposta
Erro '1004'

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
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.
- Marcado como Resposta Filipe B CastroModerator segunda-feira, 28 de agosto de 2017 13:35
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.
- Marcado como Resposta Filipe B CastroModerator segunda-feira, 28 de agosto de 2017 13:35
-
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.