View Single Post
  #2  
Old March 16th, 2011, 11:48 AM
tarquinious tarquinious is offline
Experienced Member
 
First recorded activity by OfficeFrustration: Mar 2011
Posts: 34
Default

Quote:
Originally Posted by Azrael View Post
I need to copy certain data from a page and move it to another form, in the same book. The basics is that data will be entered each day then the user will hit the paste macro and that information will be moved to another page that will store it.
I have this so far, just the rough draft atm:

Sub pasteval()
'
' pasteval Macro
'

'
Range("I13:J13").Select
Selection.Copy
Range("D16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
End Sub

But I need the next day's data to be pasted onto D17, and each day after that on subsequent lines. That data will then be used to chart/graph the data for the week/period.
You could put a bit of code after the Range("D16").Select line where it looks for the next blank cell to paste into.

Try:
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Activate
Loop