Como destacar linha ao selecionar uma célula no Excel. VBA

[@eduardosts]

Sugiro que nos próximos vídeos, deixe o código na descrição... ajudaria muito.
Segue testado e funcionando:
Dim LinhaAnterior As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Row
Case 1, 2
Select Case LinhaAnterior.Row
Case Is 1, 2
Rows(LinhaAnterior.Row).Interior.ColorIndex = 0
End Select
Case Else
Rows(ActiveCell.Row).Interior.ColorIndex = 27
If Not LinhaAnterior Is Nothing Then
If ActiveCell.Row LinhaAnterior.Row Then
Rows(LinhaAnterior.Row).Interior.ColorIndex = 0
End If
End If
Set LinhaAnterior = ActiveCell
End Select
End Sub

[@dralves551]

ajudou demais

[@edhermarco1]

Muito obrigado, ajudou bastante, gratidão

[@MAGOO3050]

Excelente e bem explicado e sem correria!!

[@volneizatta]

Muito obrigado! Não entendo tão poucos 👍 para uma dica, um ensinamento, tão importante. Abraço e novamente, obrigado!

[@starblessviagensespeciais7069]

Olha eu aqui na maratona rsr, super pilhada para colocar em prática!

[@tempescamper]

Ameiii, estou aprendendo muito com vc

[@ricardosoares3946]

Ola sabe informar se tem como adaptar para que somente uma célula seja destacada por vez? E como seria o código

[@emersonpaulo1735]

Olá, boa noite !
Gostaria de saber se e possível realçar também o tamanho da fontes conforme a célula selecionada?

[@sidneydp2382]

Mais como deixar o salvamento automático, assim que eu faço isso o meu salvamento automático some???? Ótimo vídeo parabéns,

[@esronamaral3350]

Não consigo executar o código segui como no video e não consegui abaixar a planilha

[@xiaopink3977]

Como faz pra congelar o cabeçalho dessa tabela como vc fez ??

[@edhermarco1]

♥️♥️♥️

[@jhonatancrystyan6845]

Quando é usado esse código do application.calculate a planilha perde a função copiar e colar, teria uma forma de ajusar?

Pode ser feito na planilha online do Google?

[@harrisonsosa8316]

como faço para entrar no telegram

[@reynoconhecimentos]

Neste link: t.me/ReynoCompartilhandoConhecimentos

[@dossantos7159]

E no caso de estoque, quando se tem 2 datas de validade diferentes pro mesmo produto( mesmo codigo de barras), como fazer essa diferenciação?

[@Romariowll]

Incrivel. Tem como limitar as colunas de alcance? Porque vai ate o fim da linha kkkk

[@harrisonsosa8316]

dica como pular os botoes de cadastro soment com um enter

[@reynoconhecimentos]

Neste vídeo: ruclips.net/video/233KGceGrzU/видео.html

[@carollinesantos4517]

Professora, aqui funcionou direitinho o único problema e quando eu bloquei a planilha e começa da erro, e pede para abrir o vba. O que faço?

[@myrlaandrade9790]

O código funcionou, mas quando salvo habilitada macro, o comando não funciona mais... O que posso fazer?

[@leandrolamindepaulapereira9485]

Como podemos limitar somente entre colunas tipo A2:A7

[@claudioxavier8429]

Com o código abaixo você delimita linha e coluna em que quer que o código seja executado
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Declaro as variáveis de delimitação de execução da formatação
Dim linhaInicial As Long
Dim linhaFinal As Long
Dim colunaInicial As Long
Dim colunaFinal As Long
'Inicializo as variáveis
'Delimita a área que quer a formatação ocorra
linhaInicial = 5
linhaFinal = 10
colunaInicial = 2
colunaFinal = 6
'Só executa na faixa de linhas e colunas definidas acima
If (Target.Row >= linhaInicial And Target.Row = colunaInicial And Target.Column

[@augustonascimento4420]

Tá Doido Pareceu ser útil mas eu trabalho com planilha baixanda do GPM com 500 linha ou mas não tem algum nas fácil e útil de fazer.

[@leo_ribeiro9596]

Funcionou a primeira vez mas depois ficou dando erro 424

[@jacsonander7369]

pra min nao funcionou

[@MrTexksan]

No meu caso não deu certo.

[@donadiza3707]

Pofavoweruniacotamariaalicedassecncediassecniahg8898233361488999810311qeruresebemiacotatudumeunokaeuresebinadatudufikavadetueunokaresebianadaeuqeresebermicotatudupofavobotatuduitau

[@ivanrobertopadilhabaptista7033]

2 horas digitam e não funcionou
Private Sub workshhet_selectionchange(ByVal target As Range)
Select Case ActiveCell.Row
Case 1, 2
Select Case LInhaAnterior.Row
Case Is 1, 2
Rows(LInhaAnterior.Row).Interior.ColorIndex = 0
End Select
Case Else
Rows(ActiveCell.Row).Interior.ColorIndex = 27
If Not LinhaAnteriro Is Nothing Then
If ActiveCell.Row LInhaAnterior.Row Then
Rows(LInhaAnterior.Row).Interior.ColorIndex = 0
End If
End If
Set LinaAnterior = ActiveCell
End Select



End Sub
segue

[@MarcosPlayPB]

Vc colocou dois H em private sub workshet_

[@leandrolamindepaulapereira9485]

Dim LinhaAnterior As Range
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Select Case ActiveCell.Row
Case 1, 2
Select Case LinhaAnterior.Row
Case Is 1, 2
Rows(LinhaAnterior.Row).Interior.ColorIndex = 0
End Select
Case Else
Rows(ActiveCell.Row).Interior.ColorIndex = 27
If Not LinhaAnterior Is Nothing Then
If ActiveCell.Row LinhaAnterior.Row Then
Rows(LinhaAnterior.Row).Interior.ColorIndex = 0
End If
End If
Set LinhaAnterior = ActiveCell
End Select
End Sub

[@eduardosts]

escreveu o código todo errado, tipo de contribuição que não ajuda em nada, testa primeiro, deu certo aí sim compartilha o código... fica a dica, abc!