Macro: bevestiging uitvoer door gebruiker

[Abco_B]

Wat moet ik aan een macro toevoegen om een bevestiging van de gebruiker te vragen bij uitvoer.

Bijvoorbeeld:

Wilt u deze opdracht uitvoeren ? Ja / Nee


Abco

 

[Wigi]

Hallo

Voeg

Antw = MsgBox("Wilt u deze opdracht uitvoeren", vbYesNo)

toe. Kijk in de helpfiles voor meer info over de andere argumenten in de message box.

Je kan verder in de code gebruik maken van de variabele Antw.

Wigi

 

[Abco_B]

OK Wigi,

Dank voor de code,

Abco

 

[Abco_B]

Sub Rij_verwijderen()

Dim AC As Variant
AC = ActiveCell.Address

Selection.EntireRow.Select

Dim Antw As Variant
Antw = MsgBox("Wilt deze rij(en) verwijderen ?", vbYesNoCancel)
If Antw = vbYes Then

Application.ScreenUpdating = False
Selection.EntireRow.Delete Shift:=xlUp

Else
End If

Range(AC).Select

End Sub

 

[Dnereb]

Zo en nu een beetje gefatsoeneerd.... kijk er eens goed naar

Sub Rij_verwijderen()

    Dim AC As String
    
    AC = ActiveCell.Address
    If MsgBox("Wilt deze rij(en) verwijderen ?", vbYesNoCancel) = vbYes Then
        Application.ScreenUpdating = False
        Selection.EntireRow.Delete Shift:=xlUp
        'wel weer aan zetten hoor!
        Application.ScreenUpdating = True
    End If
    
    Range(AC).Select
    
End Sub

 

[Abco_B]

Dnereb,

Bedankt voor je reactie.

Is wel goed om even te zien dat het altijd nog beter kan !

Abco

 

[Dnereb]

N Thx