SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

Esses procedimento e macros do Aplicativo Microsoft Excel VBA, com auxlio do Evento SelectionChange, colore as linha(s) e Coluna(s) da célula ativa,
também inserí com finaldidade didática um loop contador que insere as cores e numeros correpondentes na planilha auxiliar.
Espero que o exemplo lhes sejam útil. Fiquem com Deus. Expedito Marcondes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static vCelulaAtiva As Range

If Not vCelulaAtiva Is Nothing Then
   vCelulaAtiva.EntireRow.Interior.ColorIndex = xlColorIndexNone
   vCelulaAtiva.EntireColumn.Interior.ColorIndex = xlColorIndexNone
   Target.Value = ""
End If
   Target.EntireRow.Interior.ColorIndex = 36
   Target.EntireRow.Font.ColorIndex = 10
   Target.EntireColumn.Interior.ColorIndex = 4
   Target.Value = "Saberexcel_VBA_Treinamentos®"
  
Set vCelulaAtiva = Target
End Sub

Sub cores_numeros_vb()
[A2].Select
For i = 1 To 56
    ActiveCell.Interior.ColorIndex = i
    ActiveCell.Offset(0, 1).Value = i
    ActiveCell.Offset(1, 0).Select
Next i
[d1].Select
End Sub

Sub limpar_celulas_teste()
Saber2.[A2:B100].Clear
Saber1.Cells.ClearContents
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel