Paste Variable

[cccbzg]

Hello,

I'm trying to copy and paste certain rows from one worksheet to another. I've got that to work - hallelujah! Now, in that same row, I'm trying to output 3 variable fields which I've saved from rows above. My variable fields come out one row below my pasted fields. What to do? I think once the Offset runs, it moves down a row, but I can't seem to figure how to code it differently.

Many thanks,
Bonnie


Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("Summary Sheet")
Set pasteSheet = Worksheets("Your Dates")
Application.ScreenUpdating = False
copySheet.Range("A" & i & ":M" & i).Copy


With pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
.PasteSpecial xlFormats

ActiveRO = ActiveCell.row
pasteSheet.Range("E" & ActiveRO) = CsaveDAYS
pasteSheet.Range("F" & ActiveRO) = CsaveMESSAGE
pasteSheet.Range("A" & ActiveRO) = CsaveDATE

End With

 

[Norie]

Does this work?

With pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .PasteSpecial xlPasteValues
    .PasteSpecial xlFormats

    ActiveRO = .Row
    pasteSheet.Range("E" & ActiveRO) = CsaveDAYS
    pasteSheet.Range("F" & ActiveRO) = CsaveMESSAGE
    pasteSheet.Range("A" & ActiveRO) = CsaveDATE

End With

 

[cccbzg]

OMGoodness YES...IT WORKS!

So what is the difference? Between .Row and ActiveCell.row?

Thanks SO Very much!

 

[Norie]

ActiveCell.Row will give you the row of, well, the active cell.

.Row will give you the row of the range in the With statement, i.e. pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1).

 

[cccbzg]

ActiveCell.Row will give you the row of, well, the active cell.

.Row will give you the row of the range in the With statement, i.e. pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1).

Thanks SO much.