Sorterings probleem

[AatB]

Het kan eenvoudiger:

Sub tst()
  On Error GoTo XL90
  With Range("A3").CurrentRegion
    Cells(.Rows.Count + 4, 5) = " "
    .Offset(1).Sort [A4], , [B4]
    Do
      .AutoFilter 1, .Cells(WorksheetFunction.Match(WorksheetFunction.Small(.Columns(2), 1), .Columns(2), 0), 1).Value
      .Offset(IIf(.SpecialCells(12).Cells(1) = "Link", 1, 0)).SpecialCells(12).Copy Cells(Rows.Count, 5).End(xlUp).Offset(1)
      .Offset(IIf(.SpecialCells(12).Cells(1) = "Link", 1, 0)).SpecialCells(12).ClearContents
      .AutoFilter
    Loop
  End With
XL90:
End Sub

Hi SNB,

Ook een mooie oplossing.
Werpt voor mij weer nieuw licht op VBA mogelijkheden

De sheet waar ik de sortering met link in moet bouwen, is 80 kolommen breed.
Ik denk dat het dan sneller met de hulpkolom gaat en daarna sorteren.

Bedankt in ieder geval.....


mvg,

Aat

 

[snb]

VBA is immer sneller.