Toon posts:

[VBA] Excel vraagje...

Pagina: 1
Acties:
  • 100 views sinds 30-01-2008
  • Reageer

Verwijderd

Topicstarter
Hoe kan ik in excel een kolom sorteren op grootte als de waarden in die kolom met een formule zijn berekend??

Bijv:
In A1 staat =som(b1+c1) = 5
In A2 staat =som(b2=c2) = 3

En nu wil ik kolom a sorteren op grootte aflopend...

  • glashio
  • Registratie: Oktober 2001
  • Laatst online: 14-09 12:37

glashio

C64 > AMIGA > PC

-

> Google Certified Searcher
> Make users so committed to Google that it would be painful to leave
> C64 Gospel
> [SjoQ] = SjoQing


  • glashio
  • Registratie: Oktober 2001
  • Laatst online: 14-09 12:37

glashio

C64 > AMIGA > PC

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


Verwijderd

Topicstarter
Op woensdag 24 oktober 2001 16:52 schreef glashio het volgende:
Voorbeeld :

Sheet1 [WORKSHEET]
A1 = Sheet2!A1*10 (dus formule)
A2 = Sheet3!A1*15

-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
;(
snap niks nie van....kep ABSOLUUT geen kennis van VBA en ook niet van de VBA editor

  • glashio
  • Registratie: Oktober 2001
  • Laatst online: 14-09 12:37

glashio

C64 > AMIGA > PC

Op woensdag 24 oktober 2001 16:59 schreef snapnie het volgende:

[..]

;(
snap niks nie van....kep ABSOLUUT geen kennis van VBA en ook niet van de VBA editor
Dan kan het dus niet!!!! Helaas je zal VBA (Visual Basic for Applications) moeten gebruiken omdit te doen.
Met formules alleen gaat het echt niet. En trouwens in je PostHeader tikte je [VBA]...... dus daar ging ik wel van uit >:)

Erik

> Google Certified Searcher
> Make users so committed to Google that it would be painful to leave
> C64 Gospel
> [SjoQ] = SjoQing


Verwijderd

Topicstarter
Tis me gelukt om je code in te voeren en aan te passen aan mijn worksheet, maar er gebeurde niks totdat ik dus handmatig ging sorteren. Maargoed ik denk dat ik VBA moet gaan leren, want ik heb geen zin om hier kant en klare scripts te moeten vragen...
;)

Maar toch bedankt want ik kwam een heel eind...*D
Pagina: 1