Como adicionar 2 em funções de clique no excel

0

Eu tenho o seguinte código que copia valores de uma folha para outra quando pressiona B2. Eu tenho 20 células diferentes que eu quero ser capaz de clicar, que deve exibir vários textos de diferentes abas. Eu estou lutando para encontrar uma boa solução para este problema. Qualquer ajuda seria appreaciated 

If Selection.Count = 1 Then
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Worksheets("B").Range("A:J").Copy Worksheets("A").Range("M:V")

    End If
End If
microsoft-excel vba Peter
fonte
1
Eu pensar você tem isso no SelectionChange evento, mas desde que todo o seu procedimento não está incluído, é difícil dizer. Assim, você está copiando 10 colunas inteiras de "B" para "A", de modo que serão mais de 20 células. Você pode ser mais explícito sobre o que está tentando? Você tem 20 intervalos de colunas? Você quer 20 células específicas em algum lugar nessas 10 colunas?
FreeMan
Desculpas novas para isso. Eu tenho 20 células diferentes que eu quero ser capaz de clicar e recuperar dados de outras planilhas. B2, B3, B4 ... B20. Quando clico em B3, quero copiar as colunas A a J da folha C para as colunas M e V na folha A. Quando clico em B4, quero copiar da Folha D para a Folha, etc. Estou com um passe sobre como fazer isso e qualquer assistência seria muito apreciada.
Peter
Talvez alguém mais que possa aconselhar?
Peter