highlight active cell Row till "M"

[Jagat Pavasia]

I have VBA code to highlight active Row, it is working very well.
but it is highlight whole Row.
I want hightlight in my data entry range.

my data is typed from Row "A" to "M".

please edit VBA code, I am new user in VBA

code Below :

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Static xRow

If xRow <> "" Then
    With Rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If
pRow = Selection.Row
xRow = pRow
With Rows(pRow).Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
End Sub

 

[fadee2]

try

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Set rng1 = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7))
Set rng2 = Range(Cells(Selection.Row, 10), Cells(Selection.Row, 12))
Set Rng = Union(rng1, rng2)
Static xRow

If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
prow = Selection.Row
xRow = prow

With Rng.Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
End Sub

 

[Jagat Pavasia]

try

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Set rng1 = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7))
Set rng2 = Range(Cells(Selection.Row, 10), Cells(Selection.Row, 12))
Set Rng = Union(rng1, rng2)
Static xRow

If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
prow = Selection.Row
xRow = prow

With Rng.Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
End Sub

try

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Set rng1 = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7))
Set rng2 = Range(Cells(Selection.Row, 10), Cells(Selection.Row, 12))
Set Rng = Union(rng1, rng2)
Static xRow

If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
prow = Selection.Row
xRow = prow

With Rng.Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
End Sub

YES, THIS CODE IS WORK SOLID AS I WANT.

thank you sir, for whole day helping..

really happy with your help, and you are always happy to help us.

 

[fadee2]

YES, THIS CODE IS WORK SOLID AS I WANT.

thank you sir, for whole day helping..

really happy with your help, and you are always happy to help us.

You're very welcome....
.... Happy to help....

 

[Jagat Pavasia]

YES, THIS CODE IS WORK SOLID AS I WANT.

thank you sir, for whole day helping..

really happy with your help, and you are always happy to help us.

try

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Set rng1 = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7))
Set rng2 = Range(Cells(Selection.Row, 10), Cells(Selection.Row, 12))
Set Rng = Union(rng1, rng2)
Static xRow

If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
prow = Selection.Row
xRow = prow

With Rng.Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
End Sub

did it possible to work this VBA code below 6th ROW, because from 1st to 5th ROW has title with background color ?

 

[fadee2]

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Row >= 6 Then
Set rng1 = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7))
Set rng2 = Range(Cells(Selection.Row, 10), Cells(Selection.Row, 12))
Set Rng = Union(rng1, rng2)
Static xRow

If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
prow = Selection.Row
xRow = prow

With Rng.Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
Else
If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
End If
End Sub

 

[Jagat Pavasia]

worked 1

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Row >= 6 Then
Set rng1 = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7))
Set rng2 = Range(Cells(Selection.Row, 10), Cells(Selection.Row, 12))
Set Rng = Union(rng1, rng2)
Static xRow

If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
prow = Selection.Row
xRow = prow

With Rng.Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
Else
If xRow <> "" Then
        Range(Cells(xRow, 1), Cells(xRow, 7)).Interior.ColorIndex = xlNone
        Range(Cells(xRow, 10), Cells(xRow, 12)).Interior.ColorIndex = xlNone
End If
End If
End Sub

worked 100% as i want.. thank you very much