Thread
:
Can't select range
View Single Post
#
6
Posted to microsoft.public.excel.programming
salgud
external usenet poster
Posts: 219
Can't select range
On Fri, 25 Jul 2008 10:24:13 -0700 (PDT),
wrote:
On Jul 26, 12:05*am, salgud wrote:
The following code works until the last line:
Option Explicit
Public Sub TribalInvCheck()
Dim wbTribalHist As Workbook
Dim wbTribalTR As Workbook
Dim wsTribalTR As Worksheet
Dim wsTribalHist As Worksheet
Dim rTRCell As Range
Dim lTRRow As Long
Dim lHistRow As Long
Dim rFoundID As Range
Dim sTRID As String
Dim rTribalHist As Range
Dim lHistCol As Long
Set wbTribalHist = ThisWorkbook
Set wbTribalTR = ActiveWorkbook
Set wsTribalTR = ActiveSheet
Set wsTribalHist = wbTribalHist.Worksheets("Historical")
'Range set temporarily until I can find out how to set the range to the
longest column in the range
Set rTribalHist = wsTribalHist.Range("A3:Iv150")
'Application.ScreenUpdating = False
If ThisWorkbook.Name = ActiveWorkbook.Name Then
* MsgBox "Please do not run this macro from the workbook that contains it."
_
* * & Chr(10) & "Please select a Turnaround Report and then restart this
macro."
* Exit Sub
End If
Set rTRCell = wsTribalTR.Range("A3")
sTRID = rTRCell.Value
Set rFoundID = rTribalHist.Find(sTRID, LookIn:=xlValues)
'wsTribalHist.Activate
'rFoundID.Select
lTRRow = 3
lHistRow = rFoundID.Row + 2
lHistCol = rFoundID.Column
wsTribalHist.Activate
wsTribalHist.Range(Cells(lHistRow, lHistCol)).Select <--- Method range of
object worksheet failed
End Sub
Any ideas why it doesn't recognize this range?
Thanks!
When you stop the code (i.e. put a breakpoint in) what are the
variables lHistRow and lHistCol, to me the only thing that would make
any sense is if it wasn't finding sTRID. Either that or the active
workbook wasn't wbTribalHist, aslong as the activeworkbook is
wbTribalHist (so try changing the wsTribalHist to wbTribalHist) the
range should then select (I think).
James
Thanks for your reply. See XP's reply above, that was it.
Reply With Quote
salgud
View Public Profile
Find all posts by salgud