Automatisch sorteren in beveiligde tab zonder macro button

[vlotter33]

Beste,
ik heb een macro gemaakt, waardoor het mogelijk wordt om in een beveiligde tab in kolom J de waarden aflopend te sorteren.
Nu moeten de gebruikers nog steeds op de macro button klikken.
(zie bijlage)

Is het mogelijk dat kolom J in een beveiligde tab automatisch aflopend wordt gesorteerd van zodra er een cel in die kolom wordt gewijzigd? (zodat er niet telkens op de macro button moet worden geklikt)

Hartelijk dank bij voorbaat voor uw hulpBekijk bijlage Pipeline template check of macro werkt.xlsx

 

[Cobbe]

Zie geen macro in je bestand ???

 

[snb]

Heb je al eens naar de gebeurtenisprocedure _change gekeken van het werkblad ?

 

[Cobbe]

Zie eens of dit je vooruit helpt.

 

[vlotter33]

Mijn excuses,

macro heb ik hieronder gecopieerd.
Het is niet mogelijk op helpmij.nl om een doc groter dan 100kb als xlsm erop te zetten.(geprobeerd om het doc te verkleinen, maar kleiner dan 196 kb is niet mogelijk)
Hopelijk lukt het met de beschrijving van de macro hieronder
En kan de macro aangevuld/gewijzigd worden zodat sorteren automatisch gebeurt
Nogmaals hartelijk dank

Sub AflopendJ()
'
' AflopendJ Macro
'

'
Sheets("Details").Select
ActiveSheet.Unprotect ("Anker182016") 'Opheffen beveiliging
Range("A18:AR1017").Select
Range("A1017").Activate
ActiveWindow.ScrollColumn = 4
ActiveWorkbook.Worksheets("Details").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Details").AutoFilter.Sort.SortFields.Add Key:= _
Range("J17:J1017"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Details").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Details").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering _
:=True
End Sub

 

[vlotter33]

Beste Cobbe,
dit is helemaal wat ik zocht.
Hier heb je me ongelooflijk mee verder geholpen!
Echt bedankt!

 

[vlotter33]

Beste Cobbe,
In jouw doc werkt het prima.
Ik heb nu de macro gekopieerd naar het document, dat ik wil gebruiken (zie details hieronder)
Mijn doc heb ik tevens veranderd naar xlsb
De kolom J, waarop wordt gesorteerd, staat op aflopend
En toch werkt het niet.
Wat ben ik vergeten?


Sub AflopendJ()
ActiveWorkbook.Worksheets("Details").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Details").Sort.SortFields.Add Key:=Range("J18:J1017" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Details").Sort
.SetRange Range("A18:CKJ1017")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Cobbe]

Je hoeft je bestand niet te hernoemen naar xlsb, deze dient enkel om het posten mogelijk te maken.

Wat de fout betreft denk ik dat je je sheetnaam moet aanpassen aan de nieuwe situatie:

ActiveWorkbook.Worksheets("Details").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Details").Sort.SortFields.Add Key:=Range("J18:J1017" _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Details").Sort

 

[vlotter33]

Hartelijk dank voor jullie hulp