M
Mona
Hi,
I need to duplicate the following code in the same worksheet, but in a
different colum. and not in "Target.Row = A;B;C3 And Target.Column = A;B;C 3":
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 3 Then
'calculate criteria cell in case calculation mode is manual
Worksheets("Apps-Owners").Range("G2").Calculate
Worksheets("Apps-Owners").Range("Database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Apps-Owners").Range("G3:G4"), _
CopyToRange:=Range("A66"), Unique:=False
End If
End Sub
===============================
Kind regards,
I need to duplicate the following code in the same worksheet, but in a
different colum. and not in "Target.Row = A;B;C3 And Target.Column = A;B;C 3":
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 3 Then
'calculate criteria cell in case calculation mode is manual
Worksheets("Apps-Owners").Range("G2").Calculate
Worksheets("Apps-Owners").Range("Database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Apps-Owners").Range("G3:G4"), _
CopyToRange:=Range("A66"), Unique:=False
End If
End Sub
===============================
Kind regards,