Bekræftigele før udførsel af makro (knap)

I VBA kan du lave en userform (under indsæt)

Her er et lille eksempel:

Public Sub Demo()
    Dim sAnswer As String
   
    sAnswer = MsgBox("Er du HELT sikker på du vil køre denne makro ?", vbExclamation + vbYesNo, "Systeminformation")
   
    If sAnswer = vbYes Then
        ' Her placeres din makro
    End If
End Sub

knappen sætter du så til at loade userformen !

Eller bare:
Sub etellerandet()
If MsgBox("Ønsker du at fortsætte?", vbYesNo) = vbYes Then
    din kode......
Else
Exit Sub
End If

Hmmm ... det er så har jeg melder mig ud :o)

Kan jeg ikke lave noget der bare skal sættes ind i makroen, der bliver kørt først? Så jeg ikke skal lave det der VBA?

Makroen er VBA!!

Vælg Makro - Makroer - Klik på din makro og klik på Rediger. Så kan du se din vba-kode. Så skal du bare skrive fx min løsning eller Flemmings "rundt om dit eget" som vi beskriver det.

Okay, jeg kan ikke få det til at virke. Min makro starter således:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=9
    Range("E28:E38,E17:E26,C17:C26,C28:C38,A28:A38,A17:A26").Select
    Range("A26").Activate
BLA BLA BLA BLA
  End With
    Range("A1").Select
    ActiveWindow.SmallScroll Down:=-18
End Sub

Har prøvet at sætte det ind i stedet for "din kode......"... har også prøvet at skrive det efter Private Sub CommandButton2_Click()...

okay...jeg fattede det....virker nu...;-)

Dette burde kunne gøre det.

Private Sub CommandButton2_Click()
If MsgBox("Ønsker du at fortsætte?", vbYesNo) = vbYes Then
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=9
    Range("E28:E38,E17:E26,C17:C26,C28:C38,A28:A38,A17:A26").Select
    Range("A26").Activate
BLA BLA BLA BLA
  End With
    Range("A1").Select
    ActiveWindow.SmallScroll Down:=-18

Else
Exit Sub
End If
End Sub

Velbekomme!

Linierne
ActiveWindow.SmallScroll Down:=9
ActiveWindow.SmallScroll Down:=-18

kunne tyde på "makro-støj" som du godt kan fjerne.

Det er også en god ide at indsætte en
Application.ScreenUpdating = True
til sidst.

janvogt >> hvad gør ""Application.ScreenUpdating = True"" ??

Application.ScreenUpdating = False
slår skærmopdateringen fra så man ikke ser alle de ting makroen udfører.

Application.ScreenUpdating = True
slår skærmopdateringen til igen.