Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Duplicate a code
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("A6:D6"), Unique:=False End If End Sub =============================== Kind regards, |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
regular code module | Excel Discussion (Misc queries) | |||
code not unique find latest date | Excel Discussion (Misc queries) | |||
Conform a total to a list of results? | Excel Discussion (Misc queries) | |||
Macro for changing text to Proper Case | Excel Worksheet Functions | |||
close form code | Excel Discussion (Misc queries) |