Saberexcel - o site de quem precisa aprender Macros MS Excel VBA.

Esse procedimento do Microsoft Excel VBA,(Visual Basic application)  com Evento Selecion Change, ao selecionar determinada área, insere o valor da célula selecionada para outras células desejadas, neste caso usamos a propriedade OffSet(Desloc) para deslocar os valores selecionados.
' - - - - - - - - - - - - - - - - - - - - - -  - - - - - - - - - -'

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
  If Target.Column = 1 Then
 
     With Sheets("Plan1")
       Union(.Range("D1"), .Range("C10")) = Target
             .Range("B13") = Target.Offset(0, 1)
             .Range("B15") = Target.Offset(0, 2)
             .Range("B19") = Target.Offset(0, 3)
    End With
 
  End If
End If
End Sub


'- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® -  Treinamento com Macros, Fórmulas e Funções
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - -



  Baixe o exemplo de planilha contendo o procedimento e fórmula acima:
Excel planilha vba evento selecionchange com procv (83.12 KB)