Get unique values with criteria

[sharky12345]

Can anyone show me how to get a list of unique values but only if a condition is met?

So I need the unique values from Column C on Sheet10 put into Column A of Sheet18, (from A3), but only if the cell in the same row of Column A on Sheet10 has the value "Toolbox".

I can generate a unique list no problem, it's doing it with the criteria that stumps me.

 

[Fluff]

How about

Sub GetUnique()
   Dim cl As Range
   
   With CreateObject("scripting.dictionary")
      For Each cl In Sheet10.Range("C2", Sheet10.Range("C" & Rows.Count).End(xlUp))
         If cl.Offset(, -2).Value = "Toolbox" Then .Item(cl.Value) = Empty
      Next cl
      Sheet18.Range("A3").Resize(.Count).Value = Application.Transpose(.keys)
   End With
End Sub

 

[sharky12345]

Fluff - thanks, works a treat.

I've just realised I need one more tweak though - that is the value from D on Sheet10 put into Column B of Sheet18.

Can you help please?

 

[Fluff]

Try

Sub GetUnique()
   Dim cl As Range
   
   With CreateObject("scripting.dictionary")
      For Each cl In Sheet10.Range("C2", Sheet10.Range("C" & Rows.Count).End(xlUp))
         If cl.Offset(, -2).Value = "Toolbox" Then .Item(cl.Value) = cl.Offset(, 1).Value
      Next cl
      Sheet18.Range("A3").Resize(.Count, 2).Value = Application.Transpose(Array(.keys, .items))
   End With
End Sub

 

[sharky12345]

Thanks Fluff - great work!

 

[Fluff]

You're welcome