help with data project

[rollis13]

Sorry, missed your last post.
Something went wrong with the pasting of the merged macros. Change the last part of it this way:

[...]
            With .Sort
                .SetRange rngSort
                .Header = xlYes
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        Next i
        'mark if missing numbers
        For i = 3 To lr
            If .Range("A" & i).Value - .Range("A" & i - 1).Value > 1 Then .Range("B" & i).Value = "#"
        Next i
    End With
    Application.ScreenUpdating = True
    
End Sub

[rollis13]

Sorry again, it's still not right, this should be it:

[...]
        'extract numbers to column A
        For i = 2 To lr
            With .Range("C" & i)
                SearchString = .Value
                SearchChar = "."
                MyPos = InStr(1, SearchString, SearchChar, 1)
                MyStr = Left(SearchString, MyPos - 1)
                .Offset(0, -2).Value = MyStr
            End With
        Next i
        'sort on column A
        .Sort.SortFields.Clear
        .Sort.SortFields.Add2 Key:=Range("A2:A" & lr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        Set rngSort = .Range("A1:C" & lr)
        With .Sort
            .SetRange rngSort
            .Header = xlYes
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        'mark if missing numbers
        For i = 3 To lr
            If .Range("A" & i).Value - .Range("A" & i - 1).Value > 1 Then .Range("B" & i).Value = "#"
        Next i
    End With
    Application.ScreenUpdating = True
    
End Sub

[r121a947]

Thank you.

Far more effort than expected . . .

[r121a947]

I was getting confused by the number of files + missing songs not adding up to number of songs . . . Then I realized that sometimes there is more than one song in a row missing, so I changed the output to the B cell to be

(.Range("A" & i).Value - .Range("A" & i - 1).Value) - 1

so that the total of the B column + (A - 1) = number of songs.

Not a big deal . . .

[rollis13]

That's ok, the first intent was only to mark the presence of missing numbers.