ALTERAR CODIGO DE PLANILHA VIA MACRO

 Tópico anterior Próximo tópico Novo tópico

ALTERAR CODIGO DE PLANILHA VIA MACRO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#479407 - 31/01/2018 14:53:44

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Posso, mas não sei se devo...

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#479408 - 31/01/2018 14:55:43

PABLOMOREIRAGV
GOVERNADOR VALADARES
Cadast. em:Julho/2010


Ok. Obrigado Oráculo.

Pablo Moreira

#479416 - 01/02/2018 23:41:27

DIEGOSANTOS
CATOLE DO ROCHA
Cadast. em:Setembro/2015


Citação:
:
Mais ou menos o que pensei que fosse. Notou que esse comportamento se assemelha bastante à o que um vírus faz?


KERPLUNK , nesse caso o evento Worksheet_SelectionChange injetara código em qualquer  ActiveSheet ?



#479417 - 02/02/2018 11:06:35

PABLOMOREIRAGV
GOVERNADOR VALADARES
Cadast. em:Julho/2010


Segue solução:

Sub AddCodInSheet() 'adiciona o código CALCULATE no evente Selection Change da planilha ativa

        Dim StartLine As Long
    ActiveWorkbook.Worksheets(1).Activate

    With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveSheet.CodeName).CodeModule
  
        On Error Resume Next
        If .ProcBodyLine("Worksheet_SelectionChange", vbext_pk_Proc) = 0 Then
            Rem evento nao existe

            On Error GoTo 0
            StartLine = .CreateEventProc("SelectionChange", "worksheet") + 1
            .InsertLines StartLine, _
             "                Calculate" & Chr(10) _
                       & "     'seleção ativada" & Chr(10) _
                   & "End Sub"
                
        Else
            MsgBox "ja existe"
            On Error GoTo 0
        End If
    End With
                
End Sub

Pablo Moreira

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PABLOMOREIRAGV em 02/02/2018 11:07:19