Ga naar inhoud

emielDS

Lid
  • Items

    771
  • Registratiedatum

  • Laatst bezocht

Berichten die geplaatst zijn door emielDS

  1. met een voorbeeldbestandje wordt een excel bestandje bedoeld, of dacht je dat wij  zelf een volledig voorbeeldje gingen maken om het te testen?

     

    ps. plaats uw code tussen code tags

    Sub Sorteren()
    
        With Me.Sort
    
            .SortFields.Clear
    
            .SortFields.Add2 Key:=Range("G9:G13") _
    
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
            .SetRange Range("A8:H13")
    
            .Header = xlYes
    
            .MatchCase = False
    
            .Orientation = xlTopToBottom
    
            .Apply
    
        End With
    
    End Sub
    
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$B$15" Then
            Sorteren
        End If
    End Sub

     

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.