copy cells from sheets based on date, paste to another sheet

**davegugg** · 10-23-2009, 11:00 AM

I can't see how the date would get pasted but the code would still fail on that line. Did you alter the lines directly after that line? I noticed they also have the activecell property on both sides of the equal sign.

**upod** · 10-23-2009, 04:21 PM

Yes, I changed them as follows;

    ActiveCell.Value = Sheets("CoA").Range(CellAddress).Value
    ActiveCell.Offset(0, 1) = Sheets("CoA").Range(CellAddress).Offset(0, 2).Value
    ActiveCell.Offset(0, 2) = Sheets("CoA").Range(CellAddress).Offset(0, 3).Value
    ActiveCell.Offset(0, 3) = Sheets("CoA").Range(CellAddress)(0, 5).Value
    ActiveCell.Offset(0, 4) = Sheets("CoA").Range(CellAddress).Offset(0, 4).Value
    ActiveCell.Offset(0, 10) = Sheets("CoA").Range(CellAddress).Offset(0, 6).Value

Thanks for taking the time to look at this by the way.