O Excel 2010 VBA clica em macro de acionador de célula para mostrar a lista de valores

Question

Ao clicar na célula, diga d2 Eu quero mostrar os valores de j2: j6 em e2: e6. Ao clicar na célula d3 eu quero mostrar os valores de k2: k6 em e2: e6, etc. Alguém pode me ajudar? obrigado

    

Answer 1

Você precisará adicionar isso ao módulo de código por trás da sua planilha. Se for Sheet1, no Code Explorer do VBA, clique com o botão direito do mouse em Sheet1 e escolha View Code, e adicione isso ao módulo:

Option Explicit

Const DISPLAY_TARGET As String = "E2:E6"
Const D2_SOURCE As String = "J2:J6"
Const D3_SOURCE As String = "K2:K6"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Select Case Target.Address

    Case "$D$2"
      Range(DISPLAY_TARGET).Value = Range(D2_SOURCE).Value

    Case "$D$3"
      Range(DISPLAY_TARGET).Value = Range(D3_SOURCE).Value

    Case Else
      'Range(DISPLAY_TARGET).ClearContents

  End Select

End Sub

Eu dei a você a opção, após a declaração Case Else, de limpar o conteúdo de E2: E6, se o usuário clicar em qualquer outra célula que não seja D2 ou D3.