Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Executar Comando ao Abrir & Fechar o Planilha

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Barucky »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Wagner.cwb »

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"

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
Criei um módulo e escrevi o comando:

Código: Selecionar todos

Sub teste()
Application.DisplayAlerts = False

Worksheets("Teste").Delete
Application.DisplayAlerts = True
End Sub
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!


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Re: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Barucky »

Bom dia, Wagner

Sensacional funcionou perfeitamente,
Muito Obrigado novamente....
Abraços!!!!


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Wagner.cwb »

Barucky escreveu: Seg Jul 31, 2017 11:52 am Bom dia, Wagner

Sensacional funcionou perfeitamente,
Muito Obrigado novamente....
Abraços!!!!
maravilha, fico feliz por ajudar, só não esquece de modificar o título para "RESOLVIDO".

Abs!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Resolvido: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Barucky »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder