Planilha Excel VBA cursor 2 formata cursor restitui cor antiga

Planilha Excel VBA cursor 11 formata linha fonte

Planilha Excel VBA cursor 2 formata cursor restitui cor antiga

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
SBI – SABEREXCEL PLANILHAS INTELIGENTES
Cursor ao selecionar insere cor e ou restitui a cor anterior
Observe que o procedimento cria duas Range Nomeadas para realização do exercício. Usei o Evento de Planilhas WorkSheet_SelectionChange() ao selecionar determinada área da folha de planilha, também delimitei a área para a seleção para sensibilizar o evento:

‘se for nessa área delimitada e o usuário selecionar somente uma célula

If Not Intersect([D6:G25], Target) Is Nothing And Target.Count = 1 Then

(***) pratique e decore essa linha de código acima: faça até que consiga sem olhar e entender o que esta fazendo
‘lembre-se — Target Representa a célula ativa (você poderá renomear esse Target para qualquer nome como explico nas video-aulas sobre eventos de planilhas).
Fique com Deus, Bons Estudos:

‘//=========’
‘planilhas inteligentes escola saberexcel vba estudos®’ treinamentos com macros, fórmulas e funções.
‘lembre-se o evento criará automaticamente o Range Nomeado ‘Ao selecionar’
‘Eventos ficam na folha de código da folha de planilha e não nos módulos comuns(veja os vídeos)
‘//===========’EVENTO SELECTIONCHANGE()

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If [memoENDERECO] <> “” Then Range([memoENDERECO]).Interior.ColorIndex = [memoCOR]
ActiveWorkbook.Names.Add Name:=”memoENDERECO“, RefersToR1C1:=””
If Not Intersect([D6:G25], Target) Is Nothing And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:=”memoENDERECO“, RefersToR1C1:=”=” & Chr(34) & Target.Address & Chr(34)
ActiveWorkbook.Names.Add Name:=”memoCOR“, RefersToR1C1:=”=” & Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6 ‘colorir celula ativa (cursor) amarelo…
End If
End Sub

(*) observe também que quando voce clicar fora da área apagará uma das Range Nomeadas
[memoENDERECO], preservando somente [memoCOR] ‘faça o teste usando o macro |
IMPREDINDO USUARIO DE INSERIR LINHAS OU COLUNAS
Truque usado para não permitir a inserção de linhas ou colunas
fui na ultima célula na ultima coluna e inseri uma letra (Saberexcel) se inserir um ( . ) um ponto já é o suficiente.
Bons Estudos
Fiquem com Deus,
Expedito Marcondes.