G
Guest
Ok this doesn't work unless the producedata is active. WHY? Just when I
thought I was getting this!
Sub UpdateInvoiceList()
With Worksheets("ProduceData")
..Range("Invoice").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"q2"), Unique:=True
..Range("InvoiceList").Sort Key1:=Sheets("ProduceData").Range("q3")
End With
End Sub
thought I was getting this!
Sub UpdateInvoiceList()
With Worksheets("ProduceData")
..Range("Invoice").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"q2"), Unique:=True
..Range("InvoiceList").Sort Key1:=Sheets("ProduceData").Range("q3")
End With
End Sub