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

Range(Cells(prow, 1), Cells(prow, 13)).Interior

instead of

Rows(pRow).Interior

HTH...

 

[gravanoc]

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

Hello, if I understand correctly, this will fix your problem.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim sh As Worksheet
Dim rg As Range

Static xRow As Long
Dim pRow As Long

Set sh = Sheets("Sheet2")

If xRow <> 0 Then
    With rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If

pRow = Target.Row
xRow = pRow

Set rg = sh.Range("A" & pRow & ":M" & pRow)

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

 

[Jagat Pavasia]

Hello, if I understand correctly, this will fix your problem.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim sh As Worksheet
Dim rg As Range

Static xRow As Long
Dim pRow As Long

Set sh = Sheets("Sheet2")

If xRow <> 0 Then
    With rows(xRow).Interior
        .ColorIndex = xlNone
    End With
End If

pRow = Target.Row
xRow = pRow

Set rg = sh.Range("A" & pRow & ":M" & pRow)

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

VBA code error with yellow highlight at "Set sh = Sheets("Sheet2")"

 

[Jagat Pavasia]

try

Range(Cells(prow, 1), Cells(prow, 13)).Interior

instead of

Rows(pRow).Interior

HTH...

please edit my VBA code, because I am new in VBA coding....please

 

[fadee2]

please edit my VBA code, because I am new in VBA coding....please

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 Range(Cells(prow, 1), Cells(prow, 13)).Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
End Sub

 

[Jagat Pavasia]

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 Range(Cells(prow, 1), Cells(prow, 13)).Interior
    .ColorIndex = 34
    .Pattern = xlSolid
End With
End Sub

YES, THANK YOU SO MUCH,

IT IS WORKING AS I WANT...


THANK YOU FOR HELP

 

[fadee2]

You're welcome, glad we could help...

 

[Jagat Pavasia]

You're welcome, glad we could help...

THANK YOU,

but now my some cell have filled color
and
it is got blank after selection.

please help

 

[fadee2]

but now my some cell have filled color
and
it is got blank after selection.

I m not sure I get this....
What do you mean by "it is got blank after selection""???