VBA code stop working

[Panda120]

I wanted to use the same layout for two projects, and was to lazy to create an entire new worksheet, so I made a copied of the worksheet's whose format and VBA codes I wanted to use. Apart from the colour scheme, I've made no changes to the copied document. The VBA code still works in the original document, but not in the copied document. I've also check, and the VBA codes are still exactly the same. Any suggestions as to why it just suddenly stopped working? I have on prior occasions made copies of other documents with VBA codes, and the codes still ran in the copied version.

 

[Fluff]

Do you get any error messages when you run the code?
if so what & where?
Also it would help if you could post one of the macros that doesn't work.

 

[Panda120]

No, it doesn't throw out any error messages. Here is the code:

Option Explicit




Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strCellVal As String
Dim i As Long


    On Error Resume Next
    
    If Intersect(Target.EntireRow, [Projects[Project]]) Is Nothing Then Exit Sub
    If Target.Cells.Count <> 1 Then Exit Sub
    
    strCellVal = ActiveCell.Value
    
    With Sheet2
        .ListObjects(1).Range.AutoFilter 3, Criteria1:=Intersect(Target.EntireRow, [Projects[Project]])
        .Activate
        i = .ListObjects(1).Range.Columns(1).SpecialCells(xlCellTypeVisible).Count
     If i = 1 Then
        .ListObjects(1).Range.End(xlDown).Offset(1, 2).Value = strCellVal
     End If
        .[A1].Select
    End With
        
    Cancel = True


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
' Developed by Contextures Inc.
' [URL="http://www.contextures.com"]www.contextures.com[/URL]
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler


On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler


If rngDV Is Nothing Then GoTo exitHandler


If Intersect(Target, rngDV) Is Nothing Then
   'do nothing
Else
  Application.EnableEvents = False
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal
  If Target.Column = 5 Then
    If oldVal = "" Then
      'do nothing
      Else
      If newVal = "" Then
      'do nothing
      Else
      Target.Value = oldVal _
        & ", " & newVal
'      NOTE: you can use a line break,
'      instead of a comma
'      Target.Value = oldVal _
'        & Chr(10) & newVal
      End If
    End If
  End If
End If


exitHandler:
  Application.EnableEvents = True
End Sub

It is suppose to take me to the a selected task when I double click on a specific cell, but all that happens is that it opens the cell for editing

 

[Fluff]

Remove this line

On Error Resume Next

What happens?

 

[Logit]

.
Did you paste the macro into the SHEET LEVEL MODULE or a ROUTINE MODULE ?

It belongs in the SHEET LEVEL MODULE.

Right click the tab of the sheet you want the macro to work on. Select VIEW CODE.

Paste the macro in the SHEET LEVEL MODULE and try the macro again.

 

[Panda120]

I tried this, and still no change (if I double click, it still only opens the cells for edit)

 

[Fluff]

Add the line in red as shown

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim strCellVal As String
   Dim i As Long
   [COLOR=#ff0000]Stop[/COLOR]
   If Intersect(Target.EntireRow, [Projects[Project]]) Is Nothing Then Exit Sub

Then double click in the relevant column. Does that line of code get highlighted?

 

[Panda120]

No it doesn't

 

[Fluff]

Firstly run this

Sub chk()
Application.EnableEvents = True
End Sub

then try double clicking in the Projects columns. If that doesn't help you have the code in the wrong place.
Right click on the tab you want the code to work on > view code. Your code should be in the window that opens up.