Solved: Condition with StatusBar based on Row number

[Ctrl]

Hi everyone

This handy code was written by xld yesterday.
How can make (statusbar = False) if current row number is < 6 or > 60?

[vba]Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Me.Range("B" & Target.Row).Value = "" Then

Application.StatusBar = False

Else

Application.StatusBar = _
Me.Range("B" & Target.Row).Address(False, False) & ": " & Me.Range("B" & Target.Row).Value & ", " & _
Me.Range("BR" & Target.Row).Address(False, False) & ": " & Me.Range("BR" & Target.Row).Value & ", " & _
Me.Range("BS" & Target.Row).Address(False, False) & ": " & Me.Range("BS" & Target.Row).Value & ", " & _
Me.Range("BT" & Target.Row).Address(False, False) & ": " & Me.Range("BT" & Target.Row).Value

End If

End Sub
[/vba]

[Bob Phillips]

[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "6:60"
On Error Resume Next

If Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then

Application.StatusBar = False

Else

Application.StatusBar = _
Me.Range("B" & Target.Row).Address(False, False) & ": " & Me.Range("B" & Target.Row).Value & ", " & _
Me.Range("BR" & Target.Row).Address(False, False) & ": " & Me.Range("BR" & Target.Row).Value & ", " & _
Me.Range("BS" & Target.Row).Address(False, False) & ": " & Me.Range("BS" & Target.Row).Value & ", " & _
Me.Range("BT" & Target.Row).Address(False, False) & ": " & Me.Range("BT" & Target.Row).Value

End If

End Sub
[/vba]

[Ctrl]

Thank you xld again. But I noticed that you removed the condition that test the value of Column "B" if it is nothing

[VBA]
If Me.Range("B" & Target.Row).Value = "" Then

Application.StatusBar = False[/VBA]

How can i test both of them?

[Bob Phillips]

Of course you can. I thought that you had used that to show what you want.

[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "6:60"
On Error Resume Next

If Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Or _
Me.Cells(Target.Row, "B").Value = "" Then

Application.StatusBar = False
Else

Application.StatusBar = _
Me.Range("B" & Target.Row).Address(False, False) & ": " & Me.Range("B" & Target.Row).Value & ", " & _
Me.Range("BR" & Target.Row).Address(False, False) & ": " & Me.Range("BR" & Target.Row).Value & ", " & _
Me.Range("BS" & Target.Row).Address(False, False) & ": " & Me.Range("BS" & Target.Row).Value & ", " & _
Me.Range("BT" & Target.Row).Address(False, False) & ": " & Me.Range("BT" & Target.Row).Value
End If

End Sub
[/vba]

[Ctrl]

Thank you very much xld.