Planilha Excel VBA cursor 14 formata linha Coluna célula ativa

Planilha Excel VBA cursor 14 formata linha Coluna célula ativa Estes procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), com SBX CURSOR FORMATA LINHA E COLUNA (*) – com base na célula ativa (Cursor) Esses procedimentos do aplicativo MS Excel VBA WorkSheet_Change(Ao escrever, alterar) e Worksheet_SelectionChange(ao selecionar) determinada area na folha de planilha, seleciona a coluna e linha de area limitada com base na célula ativa. Observe os procedimentos, limitando a vArea. Também substitui a cor na intersessão das céluas (linhas eColunas) depois retorna a cor anterior. (colorindex = 1)
‘///===============’
Veja também que substitui Arqumento. Target por CelulaAtiva, voce pode renomear esse argumento.

Private Sub Worksheet_Change(ByVal CelulaAtiva As Range)
Set vArea = [A1:F30]
If Not Intersect(vArea, CelulaAtiva) Is Nothing And CelulaAtiva.Count = 1 Then
Application.EnableEvents = False
Union(Cells(CelulaAtiva.Row + 1, 1).Resize(1, vArea.Columns.Count), _
Cells(1, CelulaAtiva.Column).Resize(vArea.Rows.Count, 1)).Select
CelulaAtiva.Offset(1, 0).Activate
Application.EnableEvents = True
End If
End Sub
‘///===============’
Private Sub Worksheet_SelectionChange(ByVal CelulaAtiva As Range)
Set vArea = [A1:F30]
If Not Intersect(vArea, CelulaAtiva) Is Nothing And CelulaAtiva.Count = 1 Then
Application.EnableEvents = False
Union(Cells(CelulaAtiva.Row, 1).Resize(1, vArea.Columns.Count), _
Cells(1, CelulaAtiva.Column).Resize(vArea.Rows.Count, 1)).Select
CelulaAtiva.Activate
Application.EnableEvents = True
End If
End Sub
‘///===============’
Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir Todo Material Didático Escola SaberExcel VBA Estudos

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.