Unieke waarden weergeven welke beginnen met "BS B100"

[Jap3600]

Beste allemaal,

Ik heb onderstaande code van deze site gehaald in bijgaand bericht

http://www.helpmij.nl/forum/showthread.php/704129-Unieke-waarden-uit-een-matrix-in-een-lijst-weergeven

Sub Unieke()
For Each cl In Sheets("blad1").Range("A:L").SpecialCells(2)
If cl.Row <> 1 Then
If InStr(c01, cl.Value) = 0 Then c01 = c01 & "|" & cl.Value
End If
Next
Sheets("blad4").Range("f1").Resize(UBound(Split(c01, "|")) + 1, 1).Value = WorksheetFunction.Transpose(Split(c01, "|"))
End Sub

Deze code werkt fantastisch alleen zou ik deze willen uitbreiden indien dat zou kunnen. Ik wil namelijk alleen maar de SpecialCells(2) hebben welke beginnen met "BS B100"
Is dit mogelijk??

 

[Wigi]

Deze had je nu zelf ook wel kunnen bedenken ;-)

Sub Unieke()
    For Each cl In Sheets("blad1").Range("A:L").SpecialCells(2)
        If cl.Row > 1 Then
[B][COLOR="#FF0000"]            If Left(cl.Value, 7) = "BS B100" Then[/COLOR][/B]
                If InStr(c01, cl.Value) = 0 Then c01 = c01 & "|" & cl.Value
[COLOR="#FF0000"][B]            End If[/B][/COLOR]
        End If
    Next
    Sheets("blad4").Range("f1").Resize(UBound(Split(c01, "|")) + 1, 1).Value = WorksheetFunction.Transpose(Split(c01, "|"))
End Sub

 

[Jap3600]

Deze had je nu zelf ook wel kunnen bedenken ;-)

Al een aantal pogingen gedaan maar niet de goede zoals deze.
Heel hartelijk dank Wigi :thumb:

 

[Wigi]

Dan mag je de vraag nog op opgelost zetten aub.