kleine aanpassing aan hsv macro. ( maar veel te moeilijk voor mij.)

[Depant]

Hallo Allemaal,

Ik wil eigenlijk de macro van hsv gebruiken voor een exact identiek klusje, met als enig verschil dat de "1" in kolom 10 staan
Maar ik krijg hem niet goed aangepast.
Het enige verschil de met de nieuwe macro moet zijn dat hij in kolom 10 kijkt
Dus resize naar 10 snap ik.
Deleten van rijen snap ik.
Maar het de laatste stap niet
Wie kan me me helpen of het uitleggen.



Sub hsv()
Dim j As Long
Application.ScreenUpdating = False
With Sheets("mis").Cells(1).CurrentRegion.Offset(1).Resize(, 16)
.AutoFilter 2, Array("=< 1", "1", "2"), 7
.Offset(1).EntireRow.Delete
.AutoFilter
For j = 11 To 16
.AutoFilter j, 1
.Offset(1).SpecialCells(12).Copy Sheets("twee").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.AutoFilter
Next j
.Sort .Parent.Cells(2, 14), , .Parent.Cells(2, 15), , , .Parent.Cells(2, 16), , xlYes
.Sort .Parent.Cells(2, 11), , .Parent.Cells(2, 12), , , .Parent.Cells(2, 13), , xlYes
End With
End SubBekijk bijlage mis (1).xlsmBekijk bijlage mis (1).xlsmBekijk bijlage hsv.xlsmBekijk bijlage hsv.xlsm

 

[HSV]

Doe het bestandje er eens bij als je wilt.
Ik meende dat er lege kolommen in stonden, vandaar de resize(,16), wat misschien bij jou helemaal niet nodig is.
Met het laatste stukje sorteer je de boel.

 

[Depant]

zitten idd lege rijen in

Hallo Harry

Allereerst bedankt voor je hulp.
Dat is ook zo.
Ik doe nog even de orginele bestanden erbij, waar de macro op moet lopen.

Groeten Henk Harbers