| Descricao: |
 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
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|