Tópico anterior Próximo tópico Novo tópico
VB / VBA
#479407 - 31/01/2018 14:53:44 | ||||
![]() KERPLUNK RIO GRANDE DO SUL Cadast. em:Junho/2009 ![]() |
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