Anomandaris
05-29-2009, 08:15 AM
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
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
how do i do that?
thanks a bunch
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