Don't know why this code won't work
Trying to define array ("M1:O1") thru ("M5:O5")
and input results to a child sheet
The code below this and before the 'NEXT' statement works fine.

For g = 1 to 5
Set gml = Sheets("Input").Range(cells(g,13),cells(g,15))
next

Anyhelp is appreciated
Chris

Try setting the worksheet of the cells in the Range.

--
Disregard, this is so I can find my post later.
***postedbyJay***


"cgnotrom" wrote:

Don't know why this code won't work
Trying to define array ("M1:O1") thru ("M5:O5")
and input results to a child sheet
The code below this and before the 'NEXT' statement works fine.

For g = 1 to 5
Set gml = Sheets("Input").Range(cells(g,13),cells(g,15))
next

Anyhelp is appreciated
Chris

Maybe

Set gml = Sheets("Input").Range(Cells(1, 13), Cells(5, 15))

Mike

"cgnotrom" wrote:

Don't know why this code won't work
Trying to define array ("M1:O1") thru ("M5:O5")
and input results to a child sheet
The code below this and before the 'NEXT' statement works fine.

For g = 1 to 5
Set gml = Sheets("Input").Range(cells(g,13),cells(g,15))
next

Anyhelp is appreciated
Chris

Dim G as long
dim gml as range

with sheets("input")
for g = 1 to 5
set gml = .range(.cells(g,13), .cells(g,15))
'do something with gml here???
next g
end with

or
for g = 1 to 5
set gml = sheets("sheet1").cells(g,13).resize(1,3)
'do something with gml here???
next g




cgnotrom wrote:

Don't know why this code won't work
Trying to define array ("M1:O1") thru ("M5:O5")
and input results to a child sheet
The code below this and before the 'NEXT' statement works fine.

For g = 1 to 5
Set gml = Sheets("Input").Range(cells(g,13),cells(g,15))
next

Anyhelp is appreciated
Chris

--

Dave Peterson

Notice the placement of the dots in front of .range and .cells
Not quite sure what you want here. As shown, you get 1 in all 15 cells.
Changing the comment to the next to last line gets you only 3 on row 5

Sub doit()
For g = 1 To 5
With Sheets("Input")
Set gml = .Range(.Cells(g, 13), .Cells(g, 15))
gml.Value = 1
End With
Next
'gml.Value = 1
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"cgnotrom" wrote in message
...
Don't know why this code won't work
Trying to define array ("M1:O1") thru ("M5:O5")
and input results to a child sheet
The code below this and before the 'NEXT' statement works fine.

For g = 1 to 5
Set gml = Sheets("Input").Range(cells(g,13),cells(g,15))
next

Anyhelp is appreciated
Chris

Thankyou Dave
The second suggestion works great..the .resize comand did the trick
and has saved me many 'if then' statements.
Thanks again
Chris
"Dave Peterson" wrote:

Dim G as long
dim gml as range

with sheets("input")
for g = 1 to 5
set gml = .range(.cells(g,13), .cells(g,15))
'do something with gml here???
next g
end with

or
for g = 1 to 5
set gml = sheets("sheet1").cells(g,13).resize(1,3)
'do something with gml here???
next g




cgnotrom wrote:

Don't know why this code won't work
Trying to define array ("M1:O1") thru ("M5:O5")
and input results to a child sheet
The code below this and before the 'NEXT' statement works fine.

For g = 1 to 5
Set gml = Sheets("Input").Range(cells(g,13),cells(g,15))
next

Anyhelp is appreciated
Chris

--

Dave Peterson