Notifications
Clear all

Cor da linha

2 Posts
2 Usuários
0 Reactions
1,330 Visualizações
(@perroni)
Posts: 6
Active Member
Topic starter
 

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
(@marciobin)
Posts: 204
Estimable Member
 

tente assim:

Dim LinhaSelecAnterior As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Row
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 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

 
Postado : 24/03/2018 6:26 pm