Uma dúvida aí, se puderem me ajudar, eu agradeço.
A partir da linha 13 para baixo, toda a linha que eu selecionar, ela fica amarela.
Só que eu nao quero que mude a cor das linhas 12 para cima, mas toda vez que aperto na 10,9... elas saem esse azul e ficam amarelas.
O código que usei foi esse:
Dim LinhaSelecAnterior As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Row
Case 12
Select Case LinhaSelecAnterior.Row
Case Is <> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End Select
Case Else
Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Interior.ColorIndex = 6
If Not LinhaSelecAnterior Is Nothing Then
If ActiveCell.Row <> LinhaSelecAnterior.Row Then
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End If
End If
Set LinhaSelecAnterior = ActiveCell
End Select
End Sub
Vou deixar o link da imagem: http://minhateca.com.br/Perroni91/image ... 498429.jpg
Postado : 24/03/2018 9:56 am