Sorteren wordt onderaan geplaatst in een bereik

[Pascal62]

Goede morgen,

Hij het sorteren, plaats hij de gesorteerde gegevens onderaan het bereik en dit zowel bij handmatig sorteren als gebruik makende van de actieve opdrachtknop.
Tevens kan ik de actieve opdrachtknop niet gebruiken (foutcode 1004) als bepaalde cellen geblokkeerd zijn tegen bewerking en verborgen via de celeigenschappen.

Weet iemand hier raad mee.

mvg

 

[Hoornvan]

Pascal62,

Ik zie niet direct wat er fout gaat.
Je moet in de code Unprotect en Protect gebruiken.
Zo haald hij eerst even de beveiliging eraf, sorteerd en zet de beveiliging er weer op.

 

[Pascal62]

Hallo Wim,

Het is toch niet normaal, als ik sorteer op naam, wordt alles mooi bovenaan gezet.
Wordt er gesorteerd op punten, kan komt een stuk bovenaan en een stuk onderaan.

Wat bedoel je met de Code Protect en Unprotect. Heeft dit betrekking op VBA?

Groeten, Pascal

 

[Hoornvan]

Hier is je file nu wel goed werkend.
Het zat in Ascending en bij de onderste stond Decending

 

[Pascal62]

Hallo Wim,

Alles blijkt perfect te werken in verband met de beveiliging.
Mijn bij sortering op Ptn - Gem - TGG, komt alles wel bovenaan te staan, maar hij sorteert oplopend in plaats van aflopend. Indien ik Ascending wijzig door Descending plaats hij terug alles onderaan.
Is het in VBA ook mogelijk om een vierde key toe te voegen zodanig dat hij sorteert op 4 kolommen?

Weet jij hiervoor nog een oplossing?

Thanks

 

[Jack Nouws]

Hallo

Of zo...

Private Sub CommandButton1_Click()
  With Sheets(1)
    .Unprotect
    .[A2:AC16].Sort .[B2]
    .Protect
  End With
End Sub

Private Sub CommandButton2_Click()
  With Sheets(1)
    .Unprotect
    .[A2:AC16].Sort .[C2]
    .Protect
  End With
End Sub

Private Sub CommandButton3_Click()
  With Sheets(1)
    .Unprotect
    .[A2:AC16].Sort Key1:=.[V2], Order1:=xlAscending _
                  , Key2:=.[W2], Order2:=xlAscending _
                  , Key3:=.[X2], Order3:=xlAscending
    .Protect
  End With
End Sub

Met vr gr
Jack

 

[Hoornvan]

Pascal62,

Ik krijg het niet voorelkaar om de hoogste boven te krijgen, snap het niet.

Jack Nouws,
Met de code van je lukt het mij ook niet.

 

[Pascal62]

Wim,
Ik vrees dat het probleem ligt in het feit dat bepaalde cellen geen cijfer hebben maar enkel "-" teken.
Ben actueel bezig met de formules aan te passen in de bovenste rij.
Als er dan gesorteerd wordt staat het in volgorde.
Maar ok, dat was eigenlijk niet hetgeen ik wou maar kan mij ermee behelpen.
Groeten

 

[Hoornvan]

Inderdaad komt het door de - , zie ik nu ook.