Sorteer Probleem

[Atwist]

Goedemorgen

Loop te klooien met een sorteer probleem, niet het sorteren op zich maar met de Checkboxen die ook op de regel staan.
De Checkboxen staan gelinkt aan de cellen waar deze in staan, na het sorteren staan deze in een andere cel en staan er 2 Checkboxen in 1 cel.
Hoe kan ik dit probleem oplossen?????

Voorbeeld bij gevoegd

Hoor graag van jullie met een tip.

 

[emields]

Probeer deze eens

 

[Atwist]

Dank je wel emields

ik zag dat je de Checkboxen gewijzigd hebt in formulierbesturingselementen, en dat werkt perfect.
Dus wat ik wil werkt dus niet met activeX besturingselementen.

Weer wat geleerd.

Nogmaals erg veel dank.:thumb::thumb:

 

[edmoor]

Dat zijn geen formulierbesturingselementen
Kijk eens naar het voor die cellen gebruikte font.

 

[Atwist]

ik zag dat je de Checkboxen gewijzigd hebt in formulierbesturingselementen, en dat werkt perfect.

Nee dus er is lettertype Wingdings gebruikt

Nu even uit dokteren hoe ik mijn buttons erin ga verwerken.

 

[Atwist]

Dat zijn geen formulierbesturingselementen
Kijk eens naar het voor die cellen gebruikte font.

Ik had het al gezien Ed maar ik kan niet zo snel typen als jullie

 

[HSV]

Het probleem met je checkboxen is dat ze niet gecentreerd in de cel staan.
Pas de rijhoogte aan en centreer de checkbox.

 

[Atwist]

Hallo Harry

Dat met de regelhoogte snap ik, maar wist niet dat je een Checkbox kan centreren in een cel.

Dus mijn vraag hoe doe ik dit.

 

[HSV]

Met de ontwerpmodus, dan checkbox selecteren en met de pijltjestoetsen omhoog cq. omlaag.

 

[Atwist]

Eerst een oplossing zoeken ipv vragen zeg ik altijd.

Nu vraag ik eerst en ga dan zoeken, heb wel iets moois gevonden.

Sub CenterCheckbox()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

 

[Atwist]

Zit toch ergens een foutje in de macro, sommige Checkboxen kunnen niet meer gekozen worden.

 

[Atwist]

Snap niet wat er aan de hand is, sommige cellen kan ik niet meer selecteren na het sorteren.

Zou iemand er eens een blik op kunnen werpen????

 

[edmoor]

Over welke cellen heb je het dan?
De checkboxjes werken allemaal in ieder geval.

 

[HSV]

Ze zijn allemaal te selecteren hoor.
Je checkboxes zijn wat te breed, maar de cellen zijn gewoon te selecteren middels de pijltjestoetsen op je toetsenbord.

Waarom sorteer je de kolommen G en H niet mee?

 

[Atwist]

Na dat de breedte van de Checkboxen is aan gepast werkt alles :thumb::thumb:

Bij sub Sort1 wordt van A2 tot H13 gesorteerd

 

[HSV]

Hier een niet opgenomen sorteercode die hetzelfde doet.

Sub Macro2()
'
' Macro2 Macro
'


'
 Sheets("blad1").Range("A1:H13").Sort Cells(1), xlAscending, , , , , , xlYes
End Sub

Zorg ervoor dat je commandbuttons ook netjes uitgelijnd in de cel staan.

 

[Atwist]

Private Sub Sort1()
    Range("A2:h13").Sort [a2]
    Range("H15").Select
    End Sub

Ik dacht dat met deze toch niets mis is.

De buttons ga ik ook uitlijnen

 

[HSV]

Nee, niets mis mee als je vanaf de tweede rij wilt sorteren zonder kopteksten en dan op A2.
xlascending is default net als xlno bij weggelaten.

Onderstaande code staat in je bestand, vandaar.

Sub Macro2()
'
' Macro2 Macro
'


'
    Range("A2:E13").Select
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A3:A13"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A2:E13")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub