Match and paste values

[Bagman]

I have the following code which works well. What I would like is to be able to paste the values of the copied ranges only; is this possible?

Sub test()
Application.ScreenUpdating = False
Dim rCell As Range
For Each rCell In Sheets("Report").Rows(1).SpecialCells(xlCellTypeConstants).
On Error Resume Next
With Sheets("Year 6")
.Columns(Application.Match(rCell, .Rows(5), 0)).Copy rCell
End With
Next rCell
Application.ScreenUpdating = True
End Sub

[TMS]

Hi Bagman

Welcome to the forum. Please take a few moments to read the forum rules and add CODE tags to your code example. Until that is done, it would be a breach of the forum rules for anyone to offer a solution.

Please note that it would be helpful, at least to me, to see the code in the context of a sample workbook with some typical data.

Regards

[Bagman]

Thanks TMShucks

I have placed the code in the tags now. Clearly I had not taken the time to read the forum rules.

Cheers

[TMS]

Hi Bagman

strictly speaking, they're quote tags not code tags ... but they still make it a little easier to read. ;-)

Having seen the sample workbook, I understand what your code does ... essentially, copies specific columns from one sheet to another.

However, I'm not 100% sure what you want to do. Could you provide before and after examples?

Regards

[snb]

I think I would use

Please Login or Register  to view this content.

[Bagman]

snb

Thanks for your help it's really appreciated, your suggestion has done exactly what I wanted it to do.

Bagman