Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Executar Comando ao Abrir & Fechar o Planilha
Executar Comando ao Abrir & Fechar o Planilha
Pessoal, Boa tarde!!!!
Gostaria se possível a uma ajuda nos códigos abaixo:
Tenho um documento que ao inicializar cria se uma aba chamada "TESTE".
logo depois vem vários comandos na qual vocês me ajudaram a construir e fico muito agradecido...
Agora já para terminar este trabalho preciso que ao aperta o Botão "X" Fechar ele exclua a aba "TESTE" criada só ficando com a PlAN1.
Novamente peço a você Socooooorro,
Este é a mesagem de erro que dá:
Erro de Copilação
Sub ou Function não definida
No aguardo!!!!
************ Ao fechar o Arquivo Botão "X", da planilha ********************
'este comando se encontra no project ("esta pasta de trabalho")
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet("TESTE").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End Sub
_______________________________________________________________________________
************ Ao Inicializar o Aplicativo ********************
'este comando se encontra no modulo
Public Sub Workbook_Open()
Call ADD
End Sub
_______________________________________________________________________________
Sub ADD()
Sheets.ADD
ActiveSheet.Name = "TESTE"
On Error Resume Next
End Sub
Gostaria se possível a uma ajuda nos códigos abaixo:
Tenho um documento que ao inicializar cria se uma aba chamada "TESTE".
logo depois vem vários comandos na qual vocês me ajudaram a construir e fico muito agradecido...
Agora já para terminar este trabalho preciso que ao aperta o Botão "X" Fechar ele exclua a aba "TESTE" criada só ficando com a PlAN1.
Novamente peço a você Socooooorro,
Este é a mesagem de erro que dá:
Erro de Copilação
Sub ou Function não definida
No aguardo!!!!
************ Ao fechar o Arquivo Botão "X", da planilha ********************
'este comando se encontra no project ("esta pasta de trabalho")
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet("TESTE").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End Sub
_______________________________________________________________________________
************ Ao Inicializar o Aplicativo ********************
'este comando se encontra no modulo
Public Sub Workbook_Open()
Call ADD
End Sub
_______________________________________________________________________________
Sub ADD()
Sheets.ADD
ActiveSheet.Name = "TESTE"
On Error Resume Next
End Sub
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
Re: Executar Comando ao Abrir & Fechar o Planilha
Olá amigo!
bom, vc praticamente fez tudo certo.
Se o seu problema é só executar "deletar" a plan "teste".
Eu fiz aqui e funcionou assim:
colei o código na "EstaPasta de trabalho"
Criei um módulo e escrevi o comando:
Aqui funcionou assim.
Não sei qual será sua rotina... eu criaria um "if" para verificar se existe ou não a plan "teste" para não travar na hipótese de não existir,
mas olhando as suas instruções, parece que sempre ao abrir a plan, tal teste será criada...
Espero que ajude, abs!
bom, vc praticamente fez tudo certo.
Se o seu problema é só executar "deletar" a plan "teste".
Eu fiz aqui e funcionou assim:
colei o código na "EstaPasta de trabalho"
Código: Selecionar todos
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Modulo2.teste ' aqui vc coloca o nome do módulo que vc tem aí que contém os comandos para deletar.
End Sub
Código: Selecionar todos
Sub teste()
Application.DisplayAlerts = False
Worksheets("Teste").Delete
Application.DisplayAlerts = True
End Sub
Não sei qual será sua rotina... eu criaria um "if" para verificar se existe ou não a plan "teste" para não travar na hipótese de não existir,
mas olhando as suas instruções, parece que sempre ao abrir a plan, tal teste será criada...
Espero que ajude, abs!
Re: Executar Comando ao Abrir & Fechar o Planilha
Bom dia, Wagner
Sensacional funcionou perfeitamente,
Muito Obrigado novamente....
Abraços!!!!
Sensacional funcionou perfeitamente,
Muito Obrigado novamente....
Abraços!!!!
-
- Manda bem
- Mensagens: 168
- Registrado em: Sáb Set 24, 2016 4:48 pm
Re: Executar Comando ao Abrir & Fechar o Planilha
maravilha, fico feliz por ajudar, só não esquece de modificar o título para "RESOLVIDO".
Abs!
Resolvido: Executar Comando ao Abrir & Fechar o Planilha
Barucky escreveu: ↑Dom Jul 30, 2017 4:09 pm Pessoal, Boa tarde!!!!
Gostaria se possível a uma ajuda nos códigos abaixo:
Tenho um documento que ao inicializar cria se uma aba chamada "TESTE".
logo depois vem vários comandos na qual vocês me ajudaram a construir e fico muito agradecido...
Agora já para terminar este trabalho preciso que ao aperta o Botão "X" Fechar ele exclua a aba "TESTE" criada só ficando com a PlAN1.
Novamente peço a você Socooooorro,
Este é a mesagem de erro que dá:
Erro de Copilação
Sub ou Function não definida
No aguardo!!!!
************ Ao fechar o Arquivo Botão "X", da planilha ********************
'este comando se encontra no project ("esta pasta de trabalho")
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet("TESTE").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End Sub
_______________________________________________________________________________
************ Ao Inicializar o Aplicativo ********************
'este comando se encontra no modulo
Public Sub Workbook_Open()
Call ADD
End Sub
_______________________________________________________________________________
Sub ADD()
Sheets.ADD
ActiveSheet.Name = "TESTE"
On Error Resume Next
End Sub