View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ken[_4_] Ken[_4_] is offline
external usenet poster
 
Posts: 16
Default Paste or PasteSpecial without CF

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