Pessoal, está dando erro 91..não conheço muito de Macro! Alguém me ajuda?
Dim LinhaSelecAnterior As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect "1205@2017NqF"
Select Case ActiveCell.Row
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17
Select Case LinhaSelecAnterior.Row [b](ESSA LINHA FICA EM AMARELO)[/b]
Case Is <> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End Select
Case Else
Rows(ActiveCell.Row).Interior.ColorIndex = 24
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
ActiveSheet.Protect "1205@2017NqF"
End Sub
Postado : 08/06/2017 12:15 pm