Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1 Then
Sheets("base").[N2] = Empty
Sheets("base").[A1:E1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("base").[N1:N2], CopyToRange:=Sheets("base").[G1], Unique:=True
End If
If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then
Sheets("base").[N2] = Target.Offset(0, -1)
Sheets("base").[O2] = Empty
Sheets("base").[A1:CE1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("base").[N1:O2], CopyToRange:=Sheets("Base").[H1], Unique:=True
End If
If Not Intersect([C2:C10], Target) Is Nothing And Target.Count = 1 Then
Sheets("base").[N2] = Target.Offset(0, -2)
Sheets("base").[O2] = Target.Offset(0, -1)
Sheets("base").[P2] = Empty
Sheets("base").[A1:E1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("base").[N1:P2], CopyToRange:=Sheets("base").[I1], Unique:=True
End If
If Not Intersect([d2:d10], Target) Is Nothing And Target.Count = 1 Then
Sheets("base").[N2] = Target.Offset(0, -3)
Sheets("base").[O2] = Target.Offset(0, -2)
Sheets("base").[P2] = Target.Offset(0, -1)
Sheets("base").[Q2] = Empty
Sheets("base").[A1:E1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("base").[N1:Q2], CopyToRange:=Sheets("base").[J1:K1], Unique:=True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([d2:d10], Target) Is Nothing And Target.Count = 1 Then
Sheets("base").[Q2] = Target
Sheets("base").[A1:E1000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("base").[N1:Q2], CopyToRange:=Sheets("base").[K1], Unique:=True
Target.Offset(0, 1) = Sheets("base").[K2]
End If
End Sub