Limit cell entry to specific text - even when copy/paste data

[SirSquiddly]

Hi,

My issue is this.

I have a sheet where I would like the first few columns to permit any text entry, it is various serial codes.

I would like coloumns D - P, be limited to what data can be entered.

I have made drop down boxes and ticked the box to show error alert for invalid data entry. This works well when data is input to each cell individually.

My issues is when a row is copied from another sheet and pasted into this sheet, invalid data can be entered, which I do not want. Ideally it would alert the user which cell(s) is incorrect, but would be happy if it did not allow the paste at all.

Can anyone help with this issue?

Thanks

 

[Jeffrey Mahoney]

Hello SirSquiddly

Here is some code that will turn off copy paste when the user tries to enter a designated range. You need to paste these SUBS in the SHEET level module for the sheet you want to protect. Create a named range called NoCopyRng to cover the area in Columns D-P. Try to copy some data and then paste it into a cell in one of those columns.

Private Sub Worksheet_Activate()
  Dim i As Range
  Set i = Intersect(ActiveCell, Range("NoCopyRng"))
  If Not i Is Nothing Then
    Application.CutCopyMode = False
  End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim i As Range
  Set i = Intersect(Target, Range("NoCopyRng"))
  If Not i Is Nothing Then
    Application.CutCopyMode = False
  End If
  
End Sub