Søg
Avatar billede laurbjerg Nybegynder
06. oktober 2003 - 08:54 Der er 9 kommentarer og
1 løsning

slette makro

Jeg har indspillet nedenstående makro, men når jeg kører den igennem så sletter den ikke i de felter som jeg indspillede den til ????
Er det muligt at lave makroen "mindre" elle mere overskuelig???

Genvejstast:Ctrl+r
'
    Range("B6").Select
    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:=30
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62" _
        ).Select
    Range("B61").Activate
    ActiveWindow.SmallScroll Down:=29
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81,B86:F91" _
        ).Select
    Range("B86").Activate
    ActiveWindow.SmallScroll Down:=30
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,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" _
        ).Select
    Range("B113").Activate
    ActiveWindow.SmallScroll Down:=25
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,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" _
        ).Select
    Range("B141").Activate
    ActiveWindow.SmallScroll Down:=24
    Range( _
        "B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,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" _
        ).Select
    Range("B161").Activate
    ActiveWindow.SmallScroll Down:=26
    Union(Range( _
        "B173:F174,B177:F178,B182:F187,B189:F190,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,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" _
        ), Range("B150:F155,B157:F158,B161:F161,B166:F171")).Select
    Range("B189").Activate
    ActiveWindow.SmallScroll Down:=25
    Union(Range( _
        "B173:F174,B177:F178,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,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" _
        ), Range( _
        "B129:F129,B134:F139,B141:F142,B145:F145,B150:F155,B157:F158,B161:F161,B166:F171" _
        )).Select
    Range("B209").Activate
    ActiveWindow.SmallScroll Down:=20
    Union(Range( _
        "B173:F174,B177:F178,B182:F187,B189:F190,B193:F193,B198:F203,B205:F206,B209:F209,B214:F219,B221:F222,B225:F225,B230:F235,B237:F238,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,B38:F43,B45:F46,B49:F49,B54:F59,B61:F62,B65:F65,B70:F75,B77:F78,B81:F81" _
        ), Range( _
        "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("B237").Activate
    ActiveWindow.SmallScroll Down:=26
    Union(Range( _
        "B173:F174,B177:F178,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:F33,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:=26
    Union(Range( _
        "B173:F174,B177:F178,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,B6,B6:F11,B13:F14,B17:F17" _
        ), Range( _
        "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("B289").Activate
    ActiveWindow.SmallScroll Down:=29
    Union(Range( _
        "B173:F174,B177:F178,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:F33,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:=32
    Union(Range( _
        "B173:F174,B177:F178,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,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,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" _
        ), Range("B157:F158,B161:F161,B166:F171")).Select
    Range("B353").Activate
    ActiveWindow.SmallScroll Down:=31
    Union(Range( _
        "B173:F174,B177:F178,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:F33,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
    ActiveWindow.SmallScroll Down:=31
    Union(Range( _
        "B173:F174,B177:F178,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,B390:F395,B397:F398,B401:F401,B406:F411,B413:F414,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33,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("B413").Activate
    ActiveWindow.SmallScroll Down:=30
    Union(Range( _
        "B173:F174,B177:F178,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,B390:F395,B397:F398,B401:F401,B406:F411,B413:F414,B417:F417,B422:F427,B429:F430,B433:F433,B438:F443,B445:F446,B6,B6:F11,B13:F14,B17:F17,B22:F27,B29:F30,B33:F33" _
        ), Range( _
        "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("B445").Activate
    ActiveWindow.SmallScroll Down:=28
    Union(Range( _
        "B173:F174,B177:F178,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,B390:F395,B397:F398,B401:F401,B406:F411,B413:F414,B417:F417,B422:F427,B429:F430,B433:F433,B438:F443,B445:F446,B449:F449,B454:F459,B461:F462,B465:F465,B6,B6:F11" _
        ), Range( _
        "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("B465").Activate
    ActiveWindow.SmallScroll Down:=18
    Union(Range( _
        "B173:F174,B177:F178,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,B390:F395,B397:F398,B401:F401,B406:F411,B413:F414,B417:F417,B422:F427,B429:F430,B433:F433,B438:F443,B445:F446,B449:F449,B454:F459,B461:F462,B465:F465,B470:F475" _
        ), Range( _
        "B29:F30,B33:F33,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("B481").Activate
    Selection.ClearContents
    Range("A1").Select
    Sheets("MANDAG").Select
    Range("A1").Select
End Sub
Avatar billede jama01 Nybegynder
06. oktober 2003 - 09:11 #1
Du kan roligt slette alt over linjen der hedder "Union(Range_"
Det eneste denne makro gør er at slette indholdet af celle B481, og derefter vælger den A1. Det range du vil have slettet skal indtastes istedet for B481 i 6 nederste linje.
Avatar billede laurbjerg Nybegynder
06. oktober 2003 - 09:32 #2
>jama01

Nu står der jo "union (range_" flere steder, så hvad er det du mener jeg skal slette ?
Avatar billede bak Forsker
06. oktober 2003 - 10:25 #3
en ide der gør det mere overskueligt :-)
Marker alle de celler du vil have slettet, gå op i navnefeltet og angiv et navn (fx "Slettes"). Gem så arket.
kør nedenstående makro

Sub SletCeller
Range("Slettes").ClearContents
End Sub
Avatar billede laurbjerg Nybegynder
06. oktober 2003 - 10:37 #4
>bak

Hvordan så når det er flere ark det drejer sig( man,tirs,ons,tors,fre,lør og søndag)

Skal jeg ind og markere og lave navne liste på hvert ark ?
Avatar billede jama01 Nybegynder
06. oktober 2003 - 10:44 #5
Det allernederste. Du skal kun bruge de ca. 20 nederste linjer. Alle andre er overflødige
Avatar billede laurbjerg Nybegynder
06. oktober 2003 - 13:42 #6
>bak

Vil gerne arbejde videre med din løsning ! har fået markeret alle ark og felter, men makroen vil ikke kører igennem. Den kommer med fejl ?
Avatar billede bak Forsker
07. oktober 2003 - 12:05 #7
Løsninger bliver lidt anderledes:
Sub nymakro()
    Dim x, i As Long
    Dim StartArk As Worksheet
    Application.ScreenUpdating = False
    Set StartArk = ActiveSheet
    x = Array("MANDAG", "TIRSDAG", "ONSDAG", "TORSDAG", "FREDAG", "LØRDAG", "SØNDAG")
    On Error Resume Next
    For i = LBound(x) To UBound(x)
        Worksheets(x(i)).Activate
        Worksheets(x(i)).Range("B1:F1").EntireColumn.SpecialCells(xlCellTypeConstants, 1).ClearContents
        Range("A1").Activate
    Next
    On Error GoTo 0
    StartArk.Activate
    Application.ScreenUpdating = True
End Sub
Avatar billede laurbjerg Nybegynder
07. oktober 2003 - 12:30 #8
>bak

Det fungerer bare perfekt.

Jeg takker !

Smider du lige et svar ?
Avatar billede bak Forsker
07. oktober 2003 - 13:30 #9
ok :-')
Avatar billede bak Forsker
07. oktober 2003 - 13:30 #10
ok igennnnn
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
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel 13 24/07/202611:08 03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614:34
data fra et excel til google kalender Af lurup i Excel 3 02/06/202613:23 03/06/202615:06
Inverse formler Af tdktman i Excel 5 26/05/202616:16 28/05/202606:50
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
I går 18:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging
09/0816:05 Samsung Galaxy vil ikke ud af "Sikker tilstand" Af ErikHg i Mobiltelefoner
08/0812:15 morf bilede Af knuldefar1942 i Fri debat
White papers
Flere white papers »