Planilha Excel VBA Eventos SelectionChange busca dados

Planilha Excel VBA Evento SelectionChange busca dados

Planilha Excel VBA Eventos Selection Change busca dados

Este exemplo de planilha com procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento SelectionChange (ao selecionar, clicar) em determinado intervalo de células em determinada coluna na folha de planilha. Veja os códigos na FOLHA DE CÓDIGO da folha de Planilha (tecle Alt + F11)
‘//===========’

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(2, “E”), Cells(Cells(Rows.Count, “E”).End(xlUp).Row + 1, “E”)).ClearContents
‘localiza ultima linha para dinamizar a coluna(H) isto é expandir com a digitação do usuario.
sb = Cells(Rows.Count, “h”).End(xlUp).Row + 1
‘aqui vamos fazer uma instrução for para comparar a linha selecionada com a coluna(B)
For i = 1 To Cells(Rows.Count, “h”).End(xlUp).Row
‘condição if sensibiliza Evento SelecionChange se selecionar as células Usadas(ColE)
If Not Intersect(Range(“D2” & “:” & “D” & sb), Target) Is Nothing And Target.Count Then
If Target.Value = Cells(i, “h”) Then ‘fazendo a comparação com condição IF
Target.Offset(, 1).Value = Cells(i, “i”).Value
Target.Offset(, 1).Font.ColorIndex = Int(Rnd * 56)
End If
End If
Next i
End Sub
‘//===============’
Fiquem com Deus, Expedito Marcondes.

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® – Treinamentos com Macros, Fórmulas e Funções.