Met behulp van VBA in Excel 2010 naar een tabel te sorteren

Met behulp van VBA in Excel 2010 om een ​​tafel te veel verschil te sorteren, maar datMet behulp van VBA in Excel 2010 naar een tabel te sorteren

Ik heb een lijst te beginnen in kolom A en uitgaan kolom CK, met koppen in lijn 8 en vervolgens de gegevens in rijen 9 tot 267. Ik wil het opzetten van een knop op het blad waarop de gebruiker kan klikken om de tabel te sorteren (van boven naar onder) op een veld. Ik heb problemen met het maken van de macro werk. Hier is de code:

met ActiveSheet.Sort
.SetRange range ("C8: ck267")
.SortFields.Clear
.SortFields.Add Key: = Range ("C9: c267"), SortOn: = xlSortOnValues, Order: = xlAscending, DataOption: = xlSortNormal
.Header = xlYes
.MatchCase = false
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Van toepassing zijn
Eindigt met


Dit geeft "Run-time fout 1004. Het soort verwijzing is niet geldig. Zorg ervoor dat het in de gegevens die u wilt sorteren, en de eerste Sorteren op doos is niet hetzelfde of blanco".

Ik begrijp niet de foutmelding en kan niet zien wat er mis is met de code.

btw, ik probeer te voorkomen dat het gebruik van de autofilter object in deze macro, maar misschien heb ik geen keus. De MS Help-pagina op het terrein setrange zegt "SetRange alleen bij toepassing van een soort op een blad bereik en kan niet worden gebruikt als het bereik binnen een tabel".

Alle hulp dankbaar ontvangen.

Wat als je de setrange regel onder de add-toets te verplaatsen? Kan niet dat het zal veel verschil maken, maar dat is wat het is om in Helpen.

  • alpha456

    Algemeen: Level 24

    StephenJR verdiende in totaal 500 punten

    Wat als je de setrange regel onder de add-toets te verplaatsen? Kan niet dat het zal veel verschil maken, maar dat is wat het is om in Help.

    Bron: www.experts-exchange.com

  • Leave a comment

    Your email address will not be published.


    *


    twaalf + dertien =