Losing Validation and Conditional Formatting on paste

[rhmkrmi]

Hello,

Is there a way to avoid losing conditional formatting and data validation when pasting data in the cells?

Thank you.

 

[Aryatect]

Hi, If you are talking about the condition destination cell, then pasting as value of the data will not impact conditional formatting. If you are talking about the source cell, depending on the type of conditional formatting like formula can still work in the expected way depending on the way the formula is used. Data Validation will also get copied from source.

Example: I used a conditional formatting formula on column J (=$J2="Text A"), when I pasted it Cell P3 it still looked as $J3 and gave right format.

If you have any specific case where it is not working please let me know, can look at that.

Thanks

 

[rhmkrmi]

This is going to be used by multiple users and I cannot control how they paste the data.
If you paste data, for example from a word document, it will clear the conditional formatting and the data validation in the cell.

I need to make sure that when users paste data in the cells, the conditional formatting and the data validation stay!

Thanks.

 

[Jaafar Tribak]

You could try some small vba code to prevent pasting onto target cells as follows:

Place this in the worksheet module and change cell A1 to suit:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim sUndoList As String

    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        sUndoList = CommandBars.FindControl(ID:=128).List(1)
        If Left(sUndoList, 5) = "Paste" Or sUndoList = "Auto Fill" Or sUndoList = "Drag and Drop" Then
            Application.EnableEvents = False
            Application.Undo
            Application.OnUndo "", ""
            Application.EnableEvents = True
        End If
    End If

End Sub

EDIT:
Note this code is language dependent.

 

[rhmkrmi]

Thank you so much, your code worked like a charm.