Voorbeeld :
Sheet1 [WORKSHEET]
A1 = Sheet2!$C$1*10 (dus formule)
A2 = Sheet3!$C$2*15
$ = erg belangrijk om vaste relaties aan te brengen
-Ga naar je VBA-Window [Alt-F11] en selecteer de sheet met
de formules die gesorteerd moeten worden
VBA Project
+-+-crosoft Excel Objects
+-Sheet1(Sheet1) <---- op deze manier
-Selecteer in de eerste (linker) dropdown-menu
WORKSHEET
-Selecteer in de tweede (rechter) dropdown-menu
CALCULATE
-Sub Worksheet_Calculate wordt nu aangemaakt
Deze subroutine zal dus uitgevoerd worden wanneer
data veranderd in de betreffende sheet. Ook wanneer
die niet zichtbaar is!
-Zet hierin je SorteerCode bijvoorbeeld als volgt :
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Je zal zien dat kolom A gesorteerd wordt zodra er veranderingen zijn in je sheet.
SUCCES.... Erik
> Google Certified Searcher
> Make users so committed to Google that it would be painful to leave
> C64 Gospel
> [SjoQ] = SjoQing