Copying range value without cellformula

[Anomandaris]

Ive got this code to copy a set of rows into columns in the next page....but the cells i'm copying contain formula so its not showing up on the next page, I need the cell.values copied without the formula...
how do i do that?

thanks a bunch






[VBA]

Sub GridData()
Dim iCol As Long
Dim iOff As Long

'Application.ScreenUpdating = False

With Worksheets("art")


For iCol = 0 To 7

For iOff = 0 To 7

Worksheets("data").Cells(6, 8 * iCol + iOff + 3).Resize(3).Copy _
Worksheets("art").Cells(6 + iOff * 3, iCol + 3).Resize(3)
Next iOff


Next iCol
End With

Application.ScreenUpdating = True
End Sub
[/VBA]

[Bob Phillips]

[vba]

Sub GridData()
Dim iCol As Long
Dim iOff As Long

'Application.ScreenUpdating = False

With Worksheets("art")


For iCol = 0 To 7

For iOff = 0 To 7

Worksheets("data").Cells(6, 8 * iCol + iOff + 3).Resize(3).Copy
Worksheets("art").Cells(6 + iOff * 3, iCol + 3).Resize(3).Paste xlPasteValues
Next iOff
Next iCol
End With

Application.ScreenUpdating = True
End Sub
[/vba]

[Anomandaris]

hi xld, thanks for the code, but its giving me a 'runtime error 438'
says Object doesnt support this property or method.

clicking debug highlights the follow line of code

[VBA]
Worksheets("art").Cells(6 + iOff * 3, iCol + 3).Resize(3).Paste xlPasteValues
[/VBA]

[mdmackillop]

Set the Paste target as the Top Left cell. No need to specify the whole range.

[mdmackillop]

It should be PasteSpecial
[VBA]
.Cells(6 + iOff * 3, iCol + 3).PasteSpecial xlPasteValues

[/VBA]

[Anomandaris]

I tried this it didnt work

[VBA]
Worksheets("art").Range("C6").Paste xlPasteValues
[/VBA]

[mdmackillop]

See post #5