applying trapped filter

[littlepete]

hello

in my column A i have a string that shows the division of my data... it looks like:
1.
...
4.15.3.5
...
135.25.2.5.1

if i filter that last line, i also would like to see 135 ; 135.25 ; 135.25.2 and 135.2.5

i think the best way is with a help column to put a mark (x) and i do succeed to filter the first 135
but i'm stuck in the other levels ...

this is part of what i have :

level1 = Left(currdivision, WorksheetFunction.Find(".", currdivision) - 1)
leftover = InStr(1, nextlevel, ".")
nextlevel = Right(currdivision, Len(currdivision) - leftover)

(all values are strings)

what's your advice ?

thanks !
pete

 

[littlepete]

hello all

this is what i have sofar :
i succeed in dividing the levels and get from 147.12.5.3 : 147.12.5 / 147.12 / 147.
that part works well each level is called level1, level2 and so on... the total string is levelx

next is to filter the list one level at a time, and mark the visible rows... the last part works marking goes well.
but i'm not able to filter the second, third,... other levels. only first works well.

ActiveSheet.Range("rngindeling").AutoFilter Field:=1
Selection.AutoFilter Field:=Range("rngindeling").Cells(2, 1).Column, _
Criteria1:=levelx, Operator:=xlAnd
Set rngfound = Cells.Find(levelx, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)

ActiveSheet.Range("rngindeling").AutoFilter Field:=1
Selection.AutoFilter Field:=Range("rngindeling").Cells(2, 1).Column, _
Criteria1:=level1, Operator:=xlAnd
Set rngfound = Cells.Find(level1, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False)

the next line after those is the marking which goes well. the rows are marked, after that i clear the filter and go to next level...

am i doing something wrong ?

thanks,
pete