Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
error
I get a run time error when I run this procedure. It's probably something
simple but I can't figure out why it won't run. What am I doing wrong? This is the procedu Sub enteritem() Dim a(8) As Range Dim tcell As Range Dim x As Integer Dim xcell As Range Dim drwno As Integer 'a(1) = draw drwno = ActiveCell.EntireRow.Cells(2).Value MsgBox (drwno) drw = ActiveSheet.Range("currentdraw").Value Set xcell = Range(drw & "itemno").Offset(drwno, 0) For x = 3 To 8 Set tcell = Range(xcell.Offset(0, x)) Next End Sub thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
error
In the line "drw = ActiveSheet.Range("currentdraw").Value" you use drw which
isn't declared as a variable Sam "ranswert" wrote: I get a run time error when I run this procedure. It's probably something simple but I can't figure out why it won't run. What am I doing wrong? This is the procedu Sub enteritem() Dim a(8) As Range Dim tcell As Range Dim x As Integer Dim xcell As Range Dim drwno As Integer 'a(1) = draw drwno = ActiveCell.EntireRow.Cells(2).Value MsgBox (drwno) drw = ActiveSheet.Range("currentdraw").Value Set xcell = Range(drw & "itemno").Offset(drwno, 0) For x = 3 To 8 Set tcell = Range(xcell.Offset(0, x)) Next End Sub thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
error
I added
dim drw as string and I still get a 'run time error '1004 method 'range of object'_global failed' and this line is highlighted in yellow Set tcell = Range(xcell.Offset(0, x)) "Sam Wilson" wrote: In the line "drw = ActiveSheet.Range("currentdraw").Value" you use drw which isn't declared as a variable Sam "ranswert" wrote: I get a run time error when I run this procedure. It's probably something simple but I can't figure out why it won't run. What am I doing wrong? This is the procedu Sub enteritem() Dim a(8) As Range Dim tcell As Range Dim x As Integer Dim xcell As Range Dim drwno As Integer 'a(1) = draw drwno = ActiveCell.EntireRow.Cells(2).Value MsgBox (drwno) drw = ActiveSheet.Range("currentdraw").Value Set xcell = Range(drw & "itemno").Offset(drwno, 0) For x = 3 To 8 Set tcell = Range(xcell.Offset(0, x)) Next End Sub thanks |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
error
Ah, OK.
You've declared xcell as a range, so the code you need to set tcell is just set tcell = xcell.offset(0,x) "ranswert" wrote: I added dim drw as string and I still get a 'run time error '1004 method 'range of object'_global failed' and this line is highlighted in yellow Set tcell = Range(xcell.Offset(0, x)) "Sam Wilson" wrote: In the line "drw = ActiveSheet.Range("currentdraw").Value" you use drw which isn't declared as a variable Sam "ranswert" wrote: I get a run time error when I run this procedure. It's probably something simple but I can't figure out why it won't run. What am I doing wrong? This is the procedu Sub enteritem() Dim a(8) As Range Dim tcell As Range Dim x As Integer Dim xcell As Range Dim drwno As Integer 'a(1) = draw drwno = ActiveCell.EntireRow.Cells(2).Value MsgBox (drwno) drw = ActiveSheet.Range("currentdraw").Value Set xcell = Range(drw & "itemno").Offset(drwno, 0) For x = 3 To 8 Set tcell = Range(xcell.Offset(0, x)) Next End Sub thanks |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
error
Thank You
"Sam Wilson" wrote: Ah, OK. You've declared xcell as a range, so the code you need to set tcell is just set tcell = xcell.offset(0,x) "ranswert" wrote: I added dim drw as string and I still get a 'run time error '1004 method 'range of object'_global failed' and this line is highlighted in yellow Set tcell = Range(xcell.Offset(0, x)) "Sam Wilson" wrote: In the line "drw = ActiveSheet.Range("currentdraw").Value" you use drw which isn't declared as a variable Sam "ranswert" wrote: I get a run time error when I run this procedure. It's probably something simple but I can't figure out why it won't run. What am I doing wrong? This is the procedu Sub enteritem() Dim a(8) As Range Dim tcell As Range Dim x As Integer Dim xcell As Range Dim drwno As Integer 'a(1) = draw drwno = ActiveCell.EntireRow.Cells(2).Value MsgBox (drwno) drw = ActiveSheet.Range("currentdraw").Value Set xcell = Range(drw & "itemno").Offset(drwno, 0) For x = 3 To 8 Set tcell = Range(xcell.Offset(0, x)) Next End Sub thanks |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
error
I think you'll have to be more explicit.
What value is in drwno? What is CurrentDraw--a single cell or lots of cells? What is/are the value/s in currentdraw xcell is already a range. Does xcell.Offset(0, x) really have something in it that looks like an address When you do that for/next loop, what do you expect to happen? You're really only doing: Set tcell = Range(xcell.Offset(0, 8)) (or did you skinny down the code for testing?) ranswert wrote: I get a run time error when I run this procedure. It's probably something simple but I can't figure out why it won't run. What am I doing wrong? This is the procedu Sub enteritem() Dim a(8) As Range Dim tcell As Range Dim x As Integer Dim xcell As Range Dim drwno As Integer 'a(1) = draw drwno = ActiveCell.EntireRow.Cells(2).Value MsgBox (drwno) drw = ActiveSheet.Range("currentdraw").Value Set xcell = Range(drw & "itemno").Offset(drwno, 0) For x = 3 To 8 Set tcell = Range(xcell.Offset(0, x)) Next End Sub thanks -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
Error Handling - On Error GoTo doesn't trap error successfully | Excel Programming | |||
Form Err.Raise error not trapped by entry procedure error handler | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Automation Error, Unknown Error. Error value - 440 | Excel Programming |