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
|