Søg
Avatar billede laurbjerg Nybegynder
27. august 2003 - 15:23 Der er 13 kommentarer og
1 løsning

ja - nej box

Jeg har indspillet nedenstående makro:

ub rengør()
'
' rengør Makro
' Makro indspillet 26-08-2003 af Peter Kenne Jensen
'
' Genvejstast:Ctrl+r
'
    Sheets(Array("MANDAG", "TIRSDAG", "ONSDAG", "TORSDAG", "FREDAG", "LØRDAG", "SØNDAG")) _
        .Select
    Sheets("MANDAG").Activate
    Range("B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30").Select
    Range("B29").Activate
    ActiveWindow.SmallScroll Down:=24
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49"). _
        Select
    Range("B49").Activate
    ActiveWindow.SmallScroll Down:=20
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65" _
        ).Select
    Range("B65").Activate
    ActiveWindow.SmallScroll Down:=18
osv.

Er det muligt i starten , at der popper en box frem, som spørger om man er sikker på at man vil slette de dataer den ber om. Hvis man klikker på ja, går den videre og klikker man på nej stopper makroen ???
Avatar billede thor.ostergaard Nybegynder
27. august 2003 - 15:29 #1
svar = MsgBox("Vil du fortæstte", vbYesNo)
    If svar = vbNo Then
        Exit Sub
    End If
Avatar billede idle Nybegynder
27. august 2003 - 15:30 #2
if MsgBox("Vil du slette?", vbYesNo, "Advarsel") = vbNo then
exit sub
end if
Avatar billede idle Nybegynder
27. august 2003 - 15:30 #3
Sådan er det når man er fo rgammel og langsom :)
Avatar billede thor.ostergaard Nybegynder
27. august 2003 - 15:32 #4
:-)
Avatar billede laurbjerg Nybegynder
28. august 2003 - 07:02 #5
Hvor skal det sættes ind i makroen ?
Avatar billede thor.ostergaard Nybegynder
28. august 2003 - 07:27 #6
Helt i toppen
Avatar billede laurbjerg Nybegynder
28. august 2003 - 07:31 #7
Når du skriver helt i toppen, er det så før " sub rengør()" ???
Avatar billede thor.ostergaard Nybegynder
28. august 2003 - 07:36 #8
Nej lige efter sub
Avatar billede thor.ostergaard Nybegynder
28. august 2003 - 07:38 #9
Altså:
sub rengør()
'
' rengør Makro
' Makro indspillet 26-08-2003 af Peter Kenne Jensen
'
' Genvejstast:Ctrl+r
'
svar = MsgBox("Vil du fortæstte", vbYesNo)
If svar = vbNo Then
    Exit Sub
End If
Avatar billede laurbjerg Nybegynder
28. august 2003 - 07:40 #10
Det var også det jeg gjorde i starten, men der kommer ingen box frem, når jeg afspiller makroen ?
Avatar billede thor.ostergaard Nybegynder
28. august 2003 - 07:43 #11
Lad mig se starten af din makro
Avatar billede laurbjerg Nybegynder
28. august 2003 - 07:48 #12
Sub rengør()
'
' rengør Makro
' Makro indspillet 26-08-2003 af Peter Kenne Jensen
'
' Genvejstast:Ctrl+r
'svar = MsgBox("Vil du fortæstte", vbYesNo)
    If svar = vbNo Then
        Exit Sub
    End If
    Sheets(Array("MANDAG", "TIRSDAG", "ONSDAG", "TORSDAG", "FREDAG", "LØRDAG", "SØNDAG")) _
        .Select
    Sheets("MANDAG").Activate
    Range("B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30").Select
    Range("B29").Activate
    ActiveWindow.SmallScroll Down:=24
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49"). _
        Select
    Range("B49").Activate
    ActiveWindow.SmallScroll Down:=20
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65" _
        ).Select
    Range("B65").Activate
    ActiveWindow.SmallScroll Down:=18
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81" _
        ).Select
    Range("B81").Activate
    ActiveWindow.SmallScroll Down:=17
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97" _
        ).Select
    Range("B97").Activate
    ActiveWindow.SmallScroll Down:=18
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126" _
        ).Select
    Range("B125").Activate
    ActiveWindow.SmallScroll Down:=23
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145" _
        ).Select
    Range("B145").Activate
    ActiveWindow.SmallScroll Down:=23
    Union(Range( _
        "B173:F174,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155" _
        ), Range("B166:F171")).Select
    Range("B173").Activate
    ActiveWindow.SmallScroll Down:=24
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129" _
        ), Range("B145:F145,B150:F155,B157:F158,B161:F161,B166:F171")).Select
    Range("B193").Activate
    ActiveWindow.SmallScroll Down:=23
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107" _
        ), Range( _
        "B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171" _
        )).Select
    Range("B221").Activate
    ActiveWindow.SmallScroll Down:=25
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78" _
        ), Range( _
        "B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171" _
        )).Select
    Range("B241").Activate
    ActiveWindow.SmallScroll Down:=22
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B246:F251,B253:F254,B257:F257,B262:F267,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49" _
        ), Range( _
        "B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171" _
        )).Select
    Range("B262").Activate
    ActiveWindow.SmallScroll Down:=23
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B246:F251,B253:F254,B257:F257,B262:F267,B269:F270,B273:F273,B278:F283,B285:F286,B6,B6:F11,B13:F14,B17:F17,B22:F27" _
        ), Range( _
        "B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171" _
        )).Select
    Range("B285").Activate
    ActiveWindow.SmallScroll Down:=20
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B246:F251,B253:F254,B257:F257,B262:F267,B269:F270,B273:F273,B278:F283,B285:F286,B289:F289,B294:F299,B301:F302,B6" _
        ), Range( _
        "B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171" _
        )).Select
    Range("B301").Activate
    ActiveWindow.SmallScroll Down:=16
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B246:F251,B253:F254,B257:F257,B262:F267,B269:F270,B273:F273,B278:F283,B285:F286,B289:F289,B294:F299,B301:F302" _
        ), Range( _
        "B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161" _
        )).Select
    Range("B321").Activate
    ActiveWindow.SmallScroll Down:=21
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B246:F251,B253:F254,B257:F257,B262:F267,B269:F270,B273:F273,B278:F283,B285:F286,B289:F289,B294:F299,B301:F302" _
        ), Range( _
        "B342:F347,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155" _
        ), Range("B166:F171")).Select
    Range("B342").Activate
    ActiveWindow.SmallScroll Down:=24
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B246:F251,B253:F254,B257:F257,B262:F267,B269:F270,B273:F273,B278:F283,B285:F286,B289:F289,B294:F299,B301:F302" _
        ), Range( _
        "B342:F347,B349:F350,B353:F353,B358:F363,B365:F366,B369:F369,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110,B113:F113,B118:F123,B125:F126" _
        ), Range("B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171")).Select
    Range("B369").Activate
    ActiveWindow.SmallScroll Down:=22
    Union(Range( _
        "B173:F174,B177:F177,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B241:F241,B246:F251,B253:F254,B257:F257,B262:F267,B269:F270,B273:F273,B278:F283,B285:F286,B289:F289,B294:F299,B301:F302" _
        ), Range( _
        "B342:F347,B349:F350,B353:F353,B358:F363,B365:F366,B369:F369,B374:F379,B381:F382,B385:F385,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F34,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91,B93:F94,B97:F97,B102:F107,B109:F110" _
        ), Range( _
        "B125:F126,B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171" _
        )).Select
    Range("B385").Activate
    Selection.ClearContents
    ActiveWindow.LargeScroll Down:=-12
    Range("B6").Select
    Sheets("Produktivitetsrapport - SMED").Select
End Sub
Avatar billede thor.ostergaard Nybegynder
28. august 2003 - 07:51 #13
Du har et kommentar tegn i starten af den linje der skal vise boksen
'svar = MsgBox("Vil du fortæstte", vbYesNo)

fjern det - så kører din makro korrekt
Avatar billede laurbjerg Nybegynder
28. august 2003 - 07:52 #14
det funker. jeg takker
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »