sorteermacro

[jpvs]

zie hier?

 

[hazesoft]

Stuur anders de sorteerroutine maar terug.
Note:
De eerste en de laatste sheet mogen niet mee worden genomen in de routine.
In het grote bestand mag alleen het tweede t/m het elfde sheet worden doorzocht.
Ik weet dat ik het (bijna) onmogelijke vraag.

 

[hazesoft]

Hallo JPVS,

Bijna goed. Mijn complimenten.
Alleen: hij neemt de tweede sheet, genoemd 1, niet mee.

 

[hazesoft]

Sorry, keek niet goed.
Bij de eerste sheet geeft hij de naam van de school (de inhoud van cel A1).
Kun je dat zo wijzigen dat daar ook de naam van de sheet komt (dus een getal, zoals bij de andere sheets)?
Ik denk dat de variabele eerst leeggemaakt moet worden.
Dan ben ik helemaal blij.

 

[hazesoft]

De sorteerroutine is nu dankzij jullie helemaal goed.
Eén klein probleempje.
Voor het eerste blad waar het gezochte wordt gevonden, geeft hij als naam de waarde van cel A3.
Wie lost dit nog even op?

 

[jpvs]

Verander in de macro :

gevonden = gevonden & Range("A1").Value

in

gevonden = gevonden & ActiveSheet.Name

Nu zal het wel werken, met dank van Jan voor de macro.


Pierre

 

[hazesoft]

Yesssss! Het werkt!
Hartelijk dank voor jullie meedenken met mijn probleem.