Tópico anterior Próximo tópico Novo tópico
ALTERAR CODIGO DE PLANILHA VIA MACRO
VB / VBA
| #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