tigerdel
New member
- Joined
- Aug 23, 2012
- Messages
- 40
- Reaction score
- 0
- Points
- 0
- Location
- Cambridgeshire
- Excel Version(s)
- Office 365
Good Day to you all
I have a dilema
I have this code:
It is in Sheet = Company
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
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