Putting conditional formatting on a page after it's created in vba

[kadain]

Hi guys am looking to code in a condictional formatting to a newly created sheet via vba
This intales highlighting the row orange when you click on a cell between a certain range(Any range will do ill edit it to what i need)
i would just set it up when i use it my self manually but unfortantly the workbooks is for other peoples use and they are not excel friendly
Please any help would be great

 

[Sparcot]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim testRange As Range
    Dim myRange As Range
    Dim selectedRow As Long
    Set testRange = Range("A:A")
    Set myRange = Selection
    If Not Intersect(testRange, myRange) Is Nothing Then
        selectedRow = ActiveCell.Row
        ActiveSheet.Rows.Interior.Color = xlNone '<== optional
        ActiveSheet.Rows(selectedRow).Interior.Color = RGB(255, 192, 0)
    End If
End Sub

 

[kadain]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim testRange As Range
    Dim myRange As Range
    Dim selectedRow As Long
    Set testRange = Range("A:A")
    Set myRange = Selection
    If Not Intersect(testRange, myRange) Is Nothing Then
        selectedRow = ActiveCell.Row
        ActiveSheet.Rows.Interior.Color = xlNone '<== optional
        ActiveSheet.Rows(selectedRow).Interior.Color = RGB(255, 192, 0)
    End If
End Sub

Thanks for the quick reply,

it seems to bug out at

ActiveSheet.Rows.Interior.Color = xlNone '<== optional
and when i remove that its this line that bugs

ActiveSheet.Rows(selectedRow).Interior.Color = RGB(255, 192, 0)

unsure why

 

[Sparcot]

Thanks for the quick reply,

it seems to bug out at

ActiveSheet.Rows.Interior.Color = xlNone '<== optional
and when i remove that its this line that bugs

ActiveSheet.Rows(selectedRow).Interior.Color = RGB(255, 192, 0)

unsure why

Insert the provided code into the worksheet object for the worksheet you want it to work.

 

[kadain]

Insert the provided code into the worksheet object for the worksheet you want it to work.

i did, but unfortantily how ever my the data on my sheet is interfering i think

as when i put in to a blank worksheet it works but not on my filled in sheet

 

[Sparcot]

i did, but unfortantily how ever my the data on my sheet is interfering i think

as when i put in to a blank worksheet it works but not on my filled in sheet

Show me a screenshot

 

[kadain]

theses are the two types of sheets i want to put them on the line appear oranage when i genrate the sheet but after that doesnt move and bugs when i click another cell

 

[Sparcot]

View attachment 78929View attachment 78930
theses are the two types of sheets i want to put them on the line appear oranage when i genrate the sheet but after that doesnt move and bugs when i click another cell

Did you adapt the code to what you need? My code works for selecting any cell in column A.

 

[kadain]

Did you adapt the code to what you need? My code works for selecting any cell in column A.

yeah i change them but tested them in a first
the problem with one of them is i think i have a private sub running for one of the sheets but the other sheet should be effected by this

 

[Sparcot]

yeah i change them but tested them in a first
the problem with one of them is i think i have a private sub running for one of the sheets but the other sheet should be effected by this

Your private sub looks like is causing wrong behavior of this sub