Rijen moeten gemarkeerd zijn

[robdgr]

Met

Sub sorteer()

    Application.ScreenUpdating = False
    
    Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("C3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("Totaal_t_m_vandaag").Select
    
    Application.ScreenUpdating = True
End Sub

sorteer een gemarkeerd aantal rijen. Als ik nalaat rijen te markeren komt er een foutmelding.

Wat kan ik toevoegen om een melding te krijgen eerst rijen te markeren?

 

[Wigi]

Sub sorteer()

    if Msgbox("Zijn de rijen wel gemarkeerd?")=vbYes Then
    Application.ScreenUpdating = False
    
    Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("C3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("Totaal_t_m_vandaag").Select
    
    Application.ScreenUpdating = True
    End if
End Sub

 

[robdgr]

Wigi,

Dank voor je aanwijzing. Hij komt wel met een msgbox, maar er gebeurde niets. Daarom heb ik hem aangepast:

Sub sorteer()

If MsgBox("Je wilt sorteren. Zijn er rijen gemarkeerd? ", vbYesNo, "Rijen markeren!") = vbYes Then
        
        Application.ScreenUpdating = False
        Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("C3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
        Range("Totaal_t_m_vandaag").Select
        Application.ScreenUpdating = True
    
End If
End Sub