Loop untill

[roastfreak]

Hierbij zoals beloofd het meest recente excell bestand

Zoals je ziet in tabblad Tabel, komt er soms tweemaal achter elkaar dezelfde nr voor alhoewel deze in de worksheet Lijst niet na elkaar voorkomen.
Waarom doet hij dit ?

Wederom bedankt voor je tijd!

Mvg,
Tim

 

[snb]

Met zulke bijlagen is het moeilijk macro's testen....

 

[roastfreak]

Manmanman, niet goed bezig
Nog eens een poging

Mvg,
Tim

 

[snb]

Sub tst5()
  With Sheets("Lijst").UsedRange
     .AutoFilter 7, "WAFPO"
     .Offset(1).Columns(9).SpecialCells(xlCellTypeVisible).Copy Sheets("Tabel").Cells(1, 1)
     .AutoFilter
    End With
End Sub