code continu berekenen

[H3ndrik]

Hier op het forum onderstaande code gevonden. Wat moet ik toevoegen zodat deze continu berekend wordt en niet handmatig opgestart hoeft te worden?

Sub UniqueList_A()
Range("E1", Range("E65536").End(xlUp)).ClearContents
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=[E1], Unique:=True
[E1] = "Kolom E"
End Sub

MvG

Henk

 

[Ad Becude]

Probeer één van deze twee maar eens.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("E1", Range("E65536").End(xlUp)).ClearContents
 Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
 Action:=xlFilterCopy, CopyToRange:=[E1], Unique:=True
 [E1] = "Kolom E"
End Sub

Of

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("E1", Range("E65536").End(xlUp)).ClearContents
 Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
 Action:=xlFilterCopy, CopyToRange:=[E1], Unique:=True
 [E1] = "Kolom E"
End Sub

 

[H3ndrik]

Bedankt Ad,

De 2e code was voor mij de oplossing. Ik had wat moeite om de juiste plaats te vinden waar hij moet staan. Niet in een module maar in het werkblad zelf. Dit werkt nu prima.

Wat ik nu nog zou willen is dat hij met filteren de lege cellen overslaat.


Weet jij (of iemand anders) daar nog een oplossing voor?

Voor andere mensen met deze uitdaging voeg ik nog even mijn bestandje toe.

Bedankt voor de hulp tot zover.

Bekijk bijlage Sorteren.xlsm