11. februar 2004 - 08:48Der er
5 kommentarer og 1 løsning
Kode til msg-bokse
Hej
Jeg har en makro der skal flytte data fra eks. kvartal 1 over på et nyt ark (Q1).
Denne makro har jeg lavet, men jeg kunne godt tænke mig, at Excel lige spørger først. Så dét jeg ønsker, at at ved tryk på knappen skal der komme en msgbox "Er du sikker på at du vil flytte 1. kvartal ?"
Hvis ja - kør koden nedenunder - hvis Nej - gør ingenting...
Jeg har også en makro "Nytaar", der blanker data for hele året samt de 4 kvartaler - (når ovenstående kode er kørt - kommer med en msgbox der siger "Husk med det samme at gemme projektmappen under nyt navn med det korrekte årstal". Herefter skal der blot være mulighed for at svare "OK" i boksen, og der skal ikke ske mere.
Private Sub CommandButton1_Click() Dim Resultat As Integer Resultat = MsgBox("Er du sikker på at du vil flytte 1. kvartal ?", vbOKCancel, "Er du sikker?") If Resultat = 1 Then MsgBox "Udfør kode" Else MsgBox "Gør ingenting" End If Resultat = MsgBox("Husk med det samme at gemme projektmappen under nyt navn med det korrekte årstal.", vbOKOnly) End Sub
2) Dim Resultat Resultat = MsgBox("Husk med det samme at gemme projektmappen under nyt navn med det korrekte årstal.", vbOKOnly)
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.
