Copy/ Paste Special
 

This line works for me: rngSource.Copy Destination:=wsTarget.Range("A2")

but I'd like to add: PasteSpecial Paste:=xlFormats, PasteSpecial
Paste:=xlValues

I'm not getting the syntax right. Could someone help me out please?

Also, since the number of rows in my target changes, I would have preferred
to use something like:

rngSource.Copy Destination:=wsTarget.Range("A" & lstRow + 1) but it fails,
even though I know I have defined lstRow.

Thanks in advance!

Copy/ Paste Special
 

Hi,

Try this:

rngSource.Copy
With wsTarget.Range("A" & lstRow + 1).Resize(rngSource.Rows.Count, _
rngSource.Columns.Count)
.PasteSpecial xlValues
.PasteSpecial xlFormats
End With

Regards,
KL


"GettingThere" wrote in message
...
This line works for me: rngSource.Copy Destination:=wsTarget.Range("A2")

but I'd like to add: PasteSpecial Paste:=xlFormats, PasteSpecial
Paste:=xlValues

I'm not getting the syntax right. Could someone help me out please?

Also, since the number of rows in my target changes, I would have
preferred
to use something like:

rngSource.Copy Destination:=wsTarget.Range("A" & lstRow + 1) but it fails,
even though I know I have defined lstRow.

Thanks in advance!

Copy/ Paste Special
 

Very good KL! Thank you.



"KL" wrote:

Hi,

Try this:

rngSource.Copy
With wsTarget.Range("A" & lstRow + 1).Resize(rngSource.Rows.Count, _
rngSource.Columns.Count)
.PasteSpecial xlValues
.PasteSpecial xlFormats
End With

Regards,
KL


"GettingThere" wrote in message
...
This line works for me: rngSource.Copy Destination:=wsTarget.Range("A2")

but I'd like to add: PasteSpecial Paste:=xlFormats, PasteSpecial
Paste:=xlValues

I'm not getting the syntax right. Could someone help me out please?

Also, since the number of rows in my target changes, I would have
preferred
to use something like:

rngSource.Copy Destination:=wsTarget.Range("A" & lstRow + 1) but it fails,
even though I know I have defined lstRow.

Thanks in advance!