Fout in sorteren

[Bertus78]

Wie kan mij even helpen.

Ik krijg een fout 1004
"Methode select van klasse range is mislukt"

Hij loopt vast op

Columns("F:H").Select

Zie gehele stuk hieronder, wat doe ik fout?

Sheets("Lijst").Select
    Columns("F:H").Select
    Selection.Sort _
    Key1:=Range("F1"), Order1:=xlAscending, _
    Header:=xlYes, OrderCustom:=1, _
    MatchCase:=False, Orientation:=xlTopToBottom
    Range("F65536").End(xlUp).Offset(1, 0).Select

 

[VenA]

Weer zo'n halfbakken vraag dus weer een gok.
Sheets("Lijst") bestaat niet.

 

[DigiCafee]

Ik wil ook wel een gokje doen ...

Sheets("Lijst").Columns("F:H").Select

    Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

deze laatste snap ik niet waarom die er staat :

Range("F65536").End(xlUp).Offset(1, 0).Select

 

[cow18]

@digicafee, 65536 wijst op een oude xls-versie met maar zoveel rijen in een werkblad
Verder verschilt die in niets aan de huidige manier van werken, die zoekt gewoon de volgende lege F-cel op

 

[edmoor]

Als je Excel 2003 gebruikt is het precies wat cow18 zegt.
Met dit stukje probeer je regel 65537 te selecteren en die bestaat niet:

Range("F65536").End(xlUp).Offset(1, 0).Select

Daarnaast is die regel code totaal overbodig.

 

[HSV]

Als ik dit even voor het gemak doe, krijg ik wel dezelfde foutnummer, maar met een ander tekst.

 Range("F1048576").Offset(1).Select

Maar het loopt ook vast op...

Columns("F:H").Select

......schrijft TS.

Even een testje gedaan in Excel 2007:
Als in iedere cel in kolom F een waarde staat en ik doe...

Range("F1048576").End(xlUp).Offset(1).select

...wordt gewoon cel F2 geselecteerd.

Maak ik F1048576 leeg, wordt netjes F1048576 geselecteerd.
Dus daar zit de fout ook niet in.

Deze code zou al voldoende moeten zijn als je op gehele kolommen wilt sorteren incl. de lege velden zonder omliggende kolommen.

Sub test()
 Sheets("Lijst").Columns("F:H").Sort Range("F1"), 1, , , , , , xlYes
 Range("F1048576").End(xlUp).Offset(1).Select
End Sub

De 1 in de code staat voor xlascending en staat op standaard, dus mag je ook nog weglaten, maar af toe werkte het niet zonder en of dat komt dat ik jouw code eerst heb laten lopen weet ik niet.

Of beter geschreven voor elke versie.

Sub test()
 Sheets("Lijst").Columns("F:H").Sort Range("F1"), 1, , , , , , xlYes
 cells(rows.count,6).End(xlUp).Offset(1).Select
End Sub

Wel of niet met de select methode die dus overbodig is lijkt me.

 

[Bertus78]

Bedankt voor jullie reacties

Maar ik krijg het niet voor elkaar.

Zie hier een voorbeeld: Bekijk bijlage voorbeeld.xlsm

Ik wil zodra ik (in sheet menu) op de knop "Anciënniteit lijst" druk dat in de Sheet "lijst" F tm I gesorteerd wordt van oud naar nieuw.
Ik had daar onderstaande voor, maar krijg een foutmelding op columns.

Wie kan mij even verder helpen?

    Columns("F:H").Select
    Selection.Sort _
    Key1:=Range("F1"), Order1:=xlAscending, _
    Header:=xlYes, OrderCustom:=1, _
    MatchCase:=False, Orientation:=xlTopToBottom
    Range("F65536").End(xlUp).Offset(1, 0).Select

 

[VenA]

Volgens mij heb je nog niets toegepast van de aangedragen suggesties. Zelfs de 'foute' code in het bestand plaatsen was blijkbaar te veel moeite.

Private Sub CommandButton5_Click()
  With Sheets("Lijst")
    .Cells(1, 6).CurrentRegion.Sort .Cells(1, 6), , , , , , , xlYes
  End With
End Sub

 

[Bertus78]

Hoi VenA,

ik heb alles geprobeerd van bovengenoemde suggesties, anders zou ik geen voorbeeld plaatsen.
Maar met jou code is het gelukt.

bedankt ervoor, super

:thumb:

 

[VenA]

Da's mooi. Tip voor de volgende vraag plaats gelijk een voorbeeldbestand.

 

[HSV]

Hoi VenA,

ik heb alles geprobeerd van bovengenoemde suggesties, anders zou ik geen voorbeeld plaatsen.
Maar met jou code is het gelukt.

bedankt ervoor, super

:thumb:

De laatste code in #6 werkt anders prima hoor.