selecting rows using a variable
 

I am using excel 2003 and I need to select rows using a variable. Here is
what I have now:

Dim name As String
name = Range("e800")

ActiveWorkbook.Sheets("individual stats").Range("a1:a1540").Select
Selection.EntireRow.Hidden = True

Dim Start As Integer
Dim finish As Integer

Start = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("t800:t881"))
finish = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("u800:u881"))

ActiveWorkbook.Sheets("individual stats").Rows(Start, finish).Select


Selection.EntireRow.Hidden = False

I verifed that in the case I was testing, start = 81 and finish = 100. With
this code I get "Application-defined or object-defined error" with the row
selection line highlighted.

any help would be appreciated

selecting rows using a variable
 

Hi,

Note your variables now declared as LONG and that we are no longer selecting
anything

Dim name As String
Dim Start As Long
Dim finish As Long
name = Range("e800").Value
ActiveWorkbook.Sheets("individual stats").Rows(1).EntireRow.Hidden = True
Start = Application.WorksheetFunction.Lookup(name, _
Range("Q800:Q881"), Range("t800:t881"))
finish = Application.WorksheetFunction.Lookup(name, _
Range("Q800:Q881"), Range("u800:u881"))
ActiveWorkbook.Sheets("individual stats").Rows(Start & ":" & _
finish).EntireRow.Hidden = False


--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"bigjim" wrote:

I am using excel 2003 and I need to select rows using a variable. Here is
what I have now:

Dim name As String
name = Range("e800")

ActiveWorkbook.Sheets("individual stats").Range("a1:a1540").Select
Selection.EntireRow.Hidden = True

Dim Start As Integer
Dim finish As Integer

Start = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("t800:t881"))
finish = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("u800:u881"))

ActiveWorkbook.Sheets("individual stats").Rows(Start, finish).Select


Selection.EntireRow.Hidden = False

I verifed that in the case I was testing, start = 81 and finish = 100. With
this code I get "Application-defined or object-defined error" with the row
selection line highlighted.

any help would be appreciated

selecting rows using a variable
 

That did it. Thanks, I really appreciate it.

Jim

"Mike H" wrote:

Hi,

Note your variables now declared as LONG and that we are no longer selecting
anything

Dim name As String
Dim Start As Long
Dim finish As Long
name = Range("e800").Value
ActiveWorkbook.Sheets("individual stats").Rows(1).EntireRow.Hidden = True
Start = Application.WorksheetFunction.Lookup(name, _
Range("Q800:Q881"), Range("t800:t881"))
finish = Application.WorksheetFunction.Lookup(name, _
Range("Q800:Q881"), Range("u800:u881"))
ActiveWorkbook.Sheets("individual stats").Rows(Start & ":" & _
finish).EntireRow.Hidden = False


--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"bigjim" wrote:

I am using excel 2003 and I need to select rows using a variable. Here is
what I have now:

Dim name As String
name = Range("e800")

ActiveWorkbook.Sheets("individual stats").Range("a1:a1540").Select
Selection.EntireRow.Hidden = True

Dim Start As Integer
Dim finish As Integer

Start = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("t800:t881"))
finish = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("u800:u881"))

ActiveWorkbook.Sheets("individual stats").Rows(Start, finish).Select


Selection.EntireRow.Hidden = False

I verifed that in the case I was testing, start = 81 and finish = 100. With
this code I get "Application-defined or object-defined error" with the row
selection line highlighted.

any help would be appreciated

selecting rows using a variable
 

Glad i could help and thanks for the feedback
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"bigjim" wrote:

That did it. Thanks, I really appreciate it.

Jim

"Mike H" wrote:

Hi,

Note your variables now declared as LONG and that we are no longer selecting
anything

Dim name As String
Dim Start As Long
Dim finish As Long
name = Range("e800").Value
ActiveWorkbook.Sheets("individual stats").Rows(1).EntireRow.Hidden = True
Start = Application.WorksheetFunction.Lookup(name, _
Range("Q800:Q881"), Range("t800:t881"))
finish = Application.WorksheetFunction.Lookup(name, _
Range("Q800:Q881"), Range("u800:u881"))
ActiveWorkbook.Sheets("individual stats").Rows(Start & ":" & _
finish).EntireRow.Hidden = False


--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"bigjim" wrote:

I am using excel 2003 and I need to select rows using a variable. Here is
what I have now:

Dim name As String
name = Range("e800")

ActiveWorkbook.Sheets("individual stats").Range("a1:a1540").Select
Selection.EntireRow.Hidden = True

Dim Start As Integer
Dim finish As Integer

Start = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("t800:t881"))
finish = Application.WorksheetFunction.Lookup(name, Range("Q800:Q881"),
Range("u800:u881"))

ActiveWorkbook.Sheets("individual stats").Rows(Start, finish).Select


Selection.EntireRow.Hidden = False

I verifed that in the case I was testing, start = 81 and finish = 100. With
this code I get "Application-defined or object-defined error" with the row
selection line highlighted.

any help would be appreciated