Good Day to you all
I have a dilema
I have this code:
It is in Sheet = Company and returns the required results
I also need to run the same code in Sheet = Broker and also Sheet = Party
I built the same code but changed it to meet the requirements of the Sheet [Broker]:
The named ranges are built but although I receive no errors, no data is populated in Sheet [Broker]
Any ideas because I am now completely frustrated
Thanks for looking
I can share the workbook if anyone wants it
I have a dilema
I have this code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Sheets("Sales").Range("All_Data").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Criteria"), _
CopyToRange:=Range("Extract"), _
Unique:=False
End If
End Sub
It is in Sheet = Company and returns the required results
I also need to run the same code in Sheet = Broker and also Sheet = Party
I built the same code but changed it to meet the requirements of the Sheet [Broker]:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Sheets("Sales").Range("DATA").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Broker").Range("Criteria_Broker"), _
CopyToRange:=Sheets("Broker").Range("Extract_Broker"), _
Unique:=False
End If
End Sub
The named ranges are built but although I receive no errors, no data is populated in Sheet [Broker]
Any ideas because I am now completely frustrated
Thanks for looking
I can share the workbook if anyone wants it
Last edited: