Code werkt wel bij Copy en niet bij Sort

[Oude leerling]

Geacht Forum ,

Range("N" & 89 & ":N" & (Range("B1").Value + 4)).Sort

Waarom werkt bovenstaande code wel als ik wil kopiëren maar niet bij sorteren??

Hoe krijg ik hem wel werkend?

 

[VenA]

Omdat je moet aangeven waarop je wilt sorteren.

Sub VenA()
t = Range("B1") + 4
Range("N89:N" & t).Sort Range("N" & Application.Min(t, 89))
End Sub

 

[Oude leerling]

Het werkt.
Alleen selecteert de code van groot naar klein en dat moet net andersom
Ik heb de "Min" al gewijzigd in "Plus" dacht dat het daarin zou zitten , maar nee dat klopte niet
Wat wil die "Min" eigenlijk zeggen en hoe krijg ik hem wel van laag naar hoog?

 

[VenA]

Aangezien er geen voorbeeldbestand bijzit is het natuurlijk niet duidelijk wat er in B1 staat. Min bepaald de kleinste waarde om op de juiste cel te sorteren. Dus al t < 89 dan wordt de bovenste cel N&t anders N89. De code sorteert van klein naar groot.

Als het andersom moet dan wordt het

Range("N89:N" & t).Sort Range("N" & Application.Min(t, 89))[COLOR="#FF0000"], 2[/COLOR]

Lees hier meer over de methode sort.
https://msdn.microsoft.com/en-us/library/office/ff840646.aspx

 

[Oude leerling]

VenA,
Ik heb jouw code uitgeprobeerd in een voorbeeld bestandje en het werkt prima.
Ook het omkeren van de sorteervolgorde met , 2 er achter gaat goed.

In mijn hoofdprogramma blijft hij echter halsstarrig van hoog naar laag sorteren
terwijl t=<89 is .
Ik kan het niet zo snel vinden wat daar de oorzaak van kan zijn
Misschien heeft u nog een tip voor mij

 

[VenA]

Plaats het bestand even.

 

[Oude leerling]

Als ik alles wis behalve de kolommen N , O ,P
dan werkt het maar in deze situatie niet

 

[VenA]

Zonder een heldere uitleg komen we niet veel verder. Dus maar wat vragen:
- Waarom staat er 8 in B1;
- Waar heb je N89 voor nodig;
- Hoe komen de totaalscores tot stand;
- Waarom heeft N3 geen kolomkop;
- Etc

Het sorteren op 1 kolom lijkt mij ook niet echt logisch. Dus wat je wilt?

 

[HSV]

Het werkt gewoon van laag naar hoog hier;
Ps. ik zou het wel omdraaien in de code.

Range("N" & t & ":P89").Sort Range("N" & Application.Min(t, 89))

 

[Oude leerling]

Nou werkt het ineens wel!
Zeker een bitje niet goed gezeten.
HSV , ik zal het omdraaien.
Allebei bedankt voor de reacties en aan mij geboden steun , veel van opgestoken.

Jaap