Eu tenho o seguinte código que copia valores de uma folha para outra ao pressionar B2. Eu tenho 20 células diferentes que eu quero ser capaz de clicar, que devem 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
Tags microsoft-excel vba