Macro pra deleta código de módulo  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Macro pra deleta código de módulo

Mensagempor vitorhsh » Seg Dez 18, 2017 8:56 pm

Boa noite familia,

Estou trabalhando em uma rotina que deleta o cód de um módulo precisava que essa rotina ativa-se Aparti de uma data específica e apagasse o código de outros módulo exemplo dia 25 ao arquivo ser aberto ele iria deleta os código
Código: Selecionar todos
Sub RemoveEuMesmo() On Error Resume Next Set oModulo = ActiveWorkbook.VBProject.VBComponents("Módulo1") If Not oModulo Is Nothing Then oModulo.CodeModule.DeleteLines 1, oModulo.CodeModule.CountOfLines lin = "' Código removido automaticamente em " + Format(Now, "dd/mm/yyyy hh:MM:ss") oModulo.CodeModule.AddFromString lin End If End Sub
alguem pra da essa força
vitorhsh
Membro
Membro
 
Mensagens: 102
Registrado em: Ter Jul 11, 2017 3:21 pm
Has thanked: 55 times
Have thanks: 3 times

{ SO_SELECT }

Re: Macro pra deleta código de módulo  [Resolvido]

Mensagempor Mauro Coutinho » Ter Dez 19, 2017 7:46 am

Espero que a intensão seja de proteção, mas não vou questionar, é só colocar no evento Open do arquivo a verificação e chamada para a sua rotina, tipo :

Código: Selecionar todos
Private Sub Workbook_Open()
    Dim sDataNatal As String
   
    sDataNatal = Date

    If sDataNatal = "25/12/2017" Then
        MsgBox "Coloque a chamada de sua rotina aqui"
    End If
   
End Sub


[]s

For this post the author Mauro Coutinho thanked:
vitorhsh (Qua Jan 17, 2018 7:36 am)
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3934
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 181 times
Have thanks: 1447 times

Re: Macro pra deleta código de módulo

Mensagempor MPrudencio » Ter Dez 19, 2017 7:30 pm

Eu so mudaria essa linha

If sDataNatal = "25/12/2017" Then

Para essa

If sDataNatal >= "25/12/2017" Then

A primeira só funciona no dia 25/12/2017

A segunda a partir desta data.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

MPrudencio
Membro
Membro
 
Mensagens: 2744
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 71 times
Have thanks: 599 times

Re: Macro pra deleta código de módulo

Mensagempor vitorhsh » Qua Jan 17, 2018 7:37 am

Obrigado Mauro sua rotina caio perfeitamente
vitorhsh
Membro
Membro
 
Mensagens: 102
Registrado em: Ter Jul 11, 2017 3:21 pm
Has thanked: 55 times
Have thanks: 3 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: caleonel, Google Adsense [Bot] e 4 visitantes