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

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



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

 

Autoria e outros dados (tags, etc)







Arquivo

  1. 2014
  2. J
  3. F
  4. M
  5. A
  6. M
  7. J
  8. J
  9. A
  10. S
  11. O
  12. N
  13. D
  14. 2013
  15. J
  16. F
  17. M
  18. A
  19. M
  20. J
  21. J
  22. A
  23. S
  24. O
  25. N
  26. D
  27. 2012
  28. J
  29. F
  30. M
  31. A
  32. M
  33. J
  34. J
  35. A
  36. S
  37. O
  38. N
  39. D
  40. 2011
  41. J
  42. F
  43. M
  44. A
  45. M
  46. J
  47. J
  48. A
  49. S
  50. O
  51. N
  52. D
  53. 2010
  54. J
  55. F
  56. M
  57. A
  58. M
  59. J
  60. J
  61. A
  62. S
  63. O
  64. N
  65. D
  66. 2009
  67. J
  68. F
  69. M
  70. A
  71. M
  72. J
  73. J
  74. A
  75. S
  76. O
  77. N
  78. D
  79. 2008
  80. J
  81. F
  82. M
  83. A
  84. M
  85. J
  86. J
  87. A
  88. S
  89. O
  90. N
  91. D
  92. 2007
  93. J
  94. F
  95. M
  96. A
  97. M
  98. J
  99. J
  100. A
  101. S
  102. O
  103. N
  104. D