conditionla format based on cursor location

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I found this great code to highlight the current location of a cell. I am
not a code writer and have tried to adjust this code to highlight the cell
immediatly to the left of the current cursor location, but have not been
sucesfull.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Static c As Range
Static ci As Integer
If Not c Is Nothing Then
c.Interior.ColorIndex = ci
End If
ci = Target.Cells(1).Interior.ColorIndex
Target.Cells(1).Interior.ColorIndex = 36
Set c = Target.Cells(1)


End Sub
 
Try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static c As Range
Static ci As Integer
If Not c Is Nothing Then
c.Interior.ColorIndex = ci
End If
On Error Resume Next
ci = Target.Cells(1).Offset(0, -1).Interior.ColorIndex
Target.Cells(1).Offset(0, -1).Interior.ColorIndex = 36
Set c = Target.Cells(1).Offset(0, -1)
On Error GoTo 0
End Sub

Regards

Trevor
 
Excelent

Thanks

Trevor Shuttleworth said:
Try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static c As Range
Static ci As Integer
If Not c Is Nothing Then
c.Interior.ColorIndex = ci
End If
On Error Resume Next
ci = Target.Cells(1).Offset(0, -1).Interior.ColorIndex
Target.Cells(1).Offset(0, -1).Interior.ColorIndex = 36
Set c = Target.Cells(1).Offset(0, -1)
On Error GoTo 0
End Sub

Regards

Trevor
Click to expand...
 
Back
Top