• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

sorteerbereik deselecteren

Status
Niet open voor verdere reacties.
B

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Ik heb achter mijn button om het frm te sluiten een code geplaats dat de sheet "Ledenlijst" alfabetisch te sorteren.
Maar als dat is gebeurt, blijft het sorteerbereik geselecteerd.
Kan de code uitgebreid worden zodat het bereik wordt gedeselecteerd wordt.
Ik had het geprobeert met nog
HTML: 
Range("A1").select
toe te voegen, maar dat lukt niet.
Code: 
Private Sub cmbSluiten_Click()
    Unload Me
        Sheets("Ledenlijst").Sort.SortFields.Clear
        Sheets("Ledenlijst").Sort.SortFields.Add Key:=Range("B2"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                With Sheets("Ledenlijst").Sort
                    .SetRange Range("A2:J251")
                    .Header = xlNo
                    .MatchCase = False
                    .Orientation = xlTopToBottom
                    .SortMethod = xlPinYin
                    .Apply
                End With
End Sub

Grtjs.
Armand
 
Dat gedeelte selecteert niks.
Plaats dat document hier.
 
Code: 
Private Sub cmbSluiten_Click()
  Unload Me
  Sheets("Ledenlijst").Range("A2:J251").Sort Sheets("Ledenlijst").Range("B2"), , , , , , , xlNo
End Sub

Er wordt niets geselecteerd.
 
Laatst bewerkt:
Hallo,

@VenA
Werkt perfect.
Bedankt.

@Ed
Heb het filetje erbij gedaan met mijn code, kan je eens zien wat er gebeurt.
Gewoon even op de sheet "Start" op de button voor de leden klikken en daar terug op de button sluiten klikken (niets inbrengen)
Dan kan je zien dat op de sheet "Ledenlijst" wel degelijk een bereik is geselecteerd

Grtjs.armand
 

Bijlagen

  • Test Wegschrijven.xlsb
    148,6 KB · Weergaven: 33
Vreemd. Ik zie dat inderdaad gebeuren maar bij het doorlopen van de code in debug mode gebeurt dat niet.
Maar je hebt al een oplossing :)
 
VenA,
Toch nog even een vraagje.
Ik heb nog filetjes waar ik zo lijsten sorteer.
Hoe moet ik Uw code aanpassen om dan te sorteren van hoog naar laag.

Grtjs.
Armand
 
Van A naar Z
Code: 
  With Sheets("Ledenlijst")
    .Range("A2:J251").Sort .[B2], 1, , , , , , xlNo
  End With
Van Z naar A
Code: 
  With Sheets("Ledenlijst")
    .Range("A2:J251").Sort .[B2], 2, , , , , , xlNo
  End With
 
Bedankt helpers,

Weeral een beetje meer in mijn file met tips voor VBA.

Grtjs.
Armand
 
Maak gebruik van CurrentRegion dan hoef je het bereik niet vast te zetten.

Code: 
With Sheets("Ledenlijst").Cells(1).CurrentRegion
  .Sort .Cells(1, 2), , , , , , , xlYes
End With
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan