littlepete
Well-known Member
- Joined
- Mar 26, 2015
- Messages
- 503
- Office Version
- 365
- Platform
- Windows
hallo
sinds enige tijd krijg ik AF EN TOE een error op steeds weer dezelfde ene macro...
ik heb een bestand dat bijhoudt wanneer lidkaarten die mindering geven gekocht, gebruikt, betaald en teruggebracht worden...
ik sorteer deze lijst chronologisch, op naam uitdeler, op naam klant, op nummer van de klantenkaart, en die laatste geeft AF EN TOE, deze foutmelding...
ik merk dat die nooit een probleem na mijn wis filter macro (waarbij alle criteria van mijn uitgebreid filter gewist worden), maar wel na een andere macro, of twee keer na elkaar dezelfde.
dit is de macro:
(sorry maar mijn geheugen laat mij te vaak in de steek om te houden waar ik kan zien hoe ik deze macro moet invoegen zodat die als echte code in een venster wordt weergegeven...)
sinds enige tijd krijg ik AF EN TOE een error op steeds weer dezelfde ene macro...
ik heb een bestand dat bijhoudt wanneer lidkaarten die mindering geven gekocht, gebruikt, betaald en teruggebracht worden...
ik sorteer deze lijst chronologisch, op naam uitdeler, op naam klant, op nummer van de klantenkaart, en die laatste geeft AF EN TOE, deze foutmelding...
ik merk dat die nooit een probleem na mijn wis filter macro (waarbij alle criteria van mijn uitgebreid filter gewist worden), maar wel na een andere macro, of twee keer na elkaar dezelfde.
dit is de macro:
(sorry maar mijn geheugen laat mij te vaak in de steek om te houden waar ik kan zien hoe ik deze macro moet invoegen zodat die als echte code in een venster wordt weergegeven...)
Code:
Sub zetbknumeriek()
Application.ScreenUpdating = False
Range("A5:s5").Select
Selection.ClearContents
Range("databank").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("Criteria"), Unique:=False
ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Clear
' eerst op nummer
ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Add Key:=Range("rngbknr"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' sorteer klant
ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Add Key:=Range("rngklant"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' daarna op datum
ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Add Key:=Range("rngdatum"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' filteren op gebruikte nummers
Range("K5").Select
ActiveCell.FormulaR1C1 = "<999"
With ActiveWorkbook.Worksheets("agenda").Sort
.SetRange Range("databank")
' .Header = xlYes
' .MatchCase = False
' .Orientation = xlTopToBottom
' .SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
tooneersterij
Range("rngboard") = "VOLGORDE OP NUMMER"
End Sub
Last edited by a moderator: