Paste or PasteSpecial without CF

K

Ken

Hi Group....here is a question that I've seen a couple of times
reading some old posts. How can you paste or paste special everything
but conditional formatting and data validation?
I can paste special, values only, or paste and clear all formatting,
but neither get what I need.
Here is a snippet of the vba that I have altered to use in my project:

Sheets("JobLogEntry").Select
While Len(Range("A" & CStr(LSearchRow)).Value) > 0

'If value in column Q = LSearchValue copy entire row to SCHEDULED
If Cells(LSearchRow, "Q").Value = LSearchValue And _
(Cells(LSearchRow, "P") = "SCHEDULED" Or Cells(LSearchRow, "P") =
"PENDING ARRIVAL") Then

'Select row in JobLogEntry to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy


'Paste row into SCHEDULED in next row
Sheets("SCHEDULED").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.Paste

Is there any way to copy and paste with everything intact but
Conditional Formatting and Data Validation, then let me set up the
Conditional Formatting for the destination worksheet and not have it
cleared each time I search? Any guidance will be most appreciated!
Thanks in advance!
Ken
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can I send an email too? 3
Help with Macro that contains text and not looks at case 2
Help With VBA Copy Code 6
paste row into Sheet2 in next row 1
Set row number for Date function in while loop? 4
On Cell click, start macro 4
Copying to next unused row 5
Pasting rows below the last row with data? 1

Top