VBA - Unique Values Based on Condition

[Jfloyd80]

Hi,

I'm not very educated in VBA. My co-worker has created a Function Macro and I wanted to modify it to pull only unique values that have .pdf at the end. Would this be possible? Any info or help would be much appreciated!


<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Helvetica Neue'; color: #454545}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Helvetica Neue'; color: #454545; min-height: 14.0px}</style>Function Uniques(ByVal inputRange As Range)
Dim inputArray As Variant
Dim myColl As New Collection
Dim xVal As Variant
Dim outArray() As String

On Error Resume Next
With inputRange
inputArray = Application.Intersect(.Cells, .Parent.UsedRange).Value
End With
On Error GoTo 0

On Error Resume Next
For Each xVal In inputArray
myColl.Add Item:=CStr(xVal), Key:=CStr(xVal)
Next xVal
On Error GoTo 0
myColl.Remove vbNullString

ReDim outArray(1 To Application.Max(myColl.Count, Application.Caller.Cells.Count))
For xVal = 1 To myColl.Count
outArray(xVal) = myColl(xVal)
Next xVal

If Application.Caller.Columns.Count = 1 Then
Uniques = Application.Transpose(outArray)
Else
Uniques = outArray
End If

End Function

 

[tonyyy]

Jfloyd80,

You might consider the following change...

For Each xVal In inputArray
    If Right(CStr(xVal), 4) = ".pdf" Then myColl.Add Item:=CStr(xVal), Key:=CStr(xVal)
Next xVal

Cheers,

tonyyy