Ik wil de lijst op blad1 opschonen zodat hier alleen de vervallen codes blijven staan.
Op blad “Niet vervallen” heb ik de “Nr_”-s gezet die niet vervallen zijn. Hier komen de ‘Code’ meerdere malen voor.
Ik kan de lijst op blad “Niet vervallen” opschonen door
Nu wil ik de regels verwijderen op Blad1 waarvan de ‘Code’ op blad "Niet-Vervallen" staan.
Ik hoop dat iemand mij verder kan helpen.
Probeer nog een voorbeeld bestand toe te voegen lukt niet dus hierbij een download link;
http://ge.tt/8pqaeTs1/v/0?c
Op blad “Niet vervallen” heb ik de “Nr_”-s gezet die niet vervallen zijn. Hier komen de ‘Code’ meerdere malen voor.
Ik kan de lijst op blad “Niet vervallen” opschonen door
Code:
Sub Opschonen_Code()
'
' Opschonen_Code Macro
'
'
Range("A1").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Niet-Vervallen").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Niet-Vervallen").AutoFilter.Sort.SortFields.Add Key _
:=Range("A1:A66451"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Niet-Vervallen").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B2").Select
ActiveSheet.Range("$A$1:$A$66451").RemoveDuplicates Columns:=1, Header:= _
xlNo
End Sub
Nu wil ik de regels verwijderen op Blad1 waarvan de ‘Code’ op blad "Niet-Vervallen" staan.
Ik hoop dat iemand mij verder kan helpen.
Probeer nog een voorbeeld bestand toe te voegen lukt niet dus hierbij een download link;
http://ge.tt/8pqaeTs1/v/0?c
Laatst bewerkt: