Avatar billede nyhavn18 Mester
12. februar 2009 - 15:49 Der er 7 kommentarer og
1 løsning

Excel opret pop-up advarsel Ja/Nej

Hej alle Kloge hoveder med lidt tid i overskud.

Jeg har brug for en hjælpende hånd.

En knap aktiverer en makro, men jeg vil gerne lige give folk mulighed for at være helt sikre inden makroen kører.

Så knap 1 aktiverer først MsgBox = " Er du nu helt sikker?" Ja eller Nej?, hvis Ja aktiver Makro, hvis nej luk MsgBox.

Jeg har prøvet med:

Private Sub Knap1_klik()
svar = MsgBox("Er du nu helt sikker"vbYesNo)
If svar = vbYes Then
Run (Macro5)

End If

End Sub

Meeen det svinger sgu ikke helt.

Mvh
Morten
Avatar billede supertekst Ekspert
12. februar 2009 - 16:07 #1
Prøv med If svar = 6
Avatar billede da_li Juniormester
12. februar 2009 - 16:17 #2
Hej Nyhavn 18,

Den skal hedde:
svar = MsgBox("Er du nu helt sikker", vbYesNo)
If svar = vbYes Then

Du har ikke komma efter din sætning

Mvh

Dali
Avatar billede nyhavn18 Mester
13. februar 2009 - 09:21 #3
Hej Dali

Nu har jeg følgende stående tilknyttet knap1
Før stod det som programkode i fanen.

Sub Knap_klik1()
svar = MsgBox("er du sikker på at du vil slette alt!", vbYesNo)
If svar = vbYes Then
Run Macro5

End If
End Sub

Nu kører MSGBox'en men selvom jeg trykker Yes så kører makroen ikke (Makro5)

Er jeg tæt på at være der?

Morten
PS skal der ikke stå noget om hvad der sker hvis man trykker Nej
Avatar billede nyhavn18 Mester
13. februar 2009 - 09:21 #4
Hej Dali

Nu har jeg følgende stående tilknyttet knap1
Før stod det som programkode i fanen.

Sub Knap_klik1()
svar = MsgBox("er du sikker på at du vil slette alt!", vbYesNo)
If svar = vbYes Then
Run Macro5

End If
End Sub

Nu kører MSGBox'en men selvom jeg trykker Yes så kører makroen ikke (Makro5)

Er jeg tæt på at være der?

Morten
PS skal der ikke stå noget om hvad der sker hvis man trykker Nej
Avatar billede nyhavn18 Mester
13. februar 2009 - 09:22 #5
Hej Dali

Nu har jeg følgende stående tilknyttet knap1
Før stod det som programkode i fanen.

Sub Knap_klik1()
svar = MsgBox("er du sikker på at du vil slette alt!", vbYesNo)
If svar = vbYes Then
Run Macro5

End If
End Sub

Nu kører MSGBox'en men selvom jeg trykker Yes så kører makroen ikke (Makro5)

Er jeg tæt på at være der?

Morten
PS skal der ikke stå noget om hvad der sker hvis man trykker Nej
Avatar billede jkrons Professor
13. februar 2009 - 10:10 #6
Hvorfor ikke skrive det hele3 sammen?

Altså koden ind i knappen. Først msgbox'en. Hvis svaret er Ja, kører du de næste linjer, ellers forlader du makroen.
Avatar billede da_li Juniormester
13. februar 2009 - 13:27 #7
Du har helt ret - der mangler lige lidt ekstra, men du er meget tæt på at være der :o)

Sub Knap_klik1()
svar = MsgBox("er du sikker på at du vil slette alt!", vbYesNo)
If svar = vbYes Then
Macro5
Else
Exit sub

End If
End Sub

Mvh
Avatar billede da_li Juniormester
27. februar 2009 - 12:24 #8
Hej Nyhavn18 - kunne du få det til at virke?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester