Saltar para: Post [1], Pesquisa e Arquivos [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

03
Jan08

Excel - Executar macro conforme o valor de celula

Dúvida colocada: ".. é possivel executar uma macro conforme o conteudo de uma celula ?.."

Solução apresentada: Macro para interceptar um resultado e chamar uma outra macro especifica.

A 1ª deve ser colocada no código da folha que se pretende interceptar o conteudo das células, as macros de teste podem estar no mesmo ou num modulo, desde que no mesmo Livro (Workbook).

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
           Select Case Target
             Case 1
               Call macro1
             Case 2
               Call macro2
             Case Else
           End Select
        End If
        Application.EnableEvents = True
End Sub

'Macros de teste
Sub macro1() MsgBox "macro1" End Sub Sub macro2() MsgBox "macro2" End Sub

 

Fonte: http://jjoao2k.no.sapo.pt