Søg
Avatar billede Mathias- Nybegynder
03. juli 2011 - 00:21 Der er 11 kommentarer og
1 løsning

skjule rækker i excel

Jeg vil gerne have en macro som skjuler rækker.

Den skal skjule følgende rækker:
F, K, P, S, T, V, W, Y, Z, AD, AE, AG, AH, AL, AM, AN, AW, AX, AZ, BA, BB, BC, BD, BE, BF, BG, BH, BJ, BK, BL, BM, BN, BO, BP, BQ, BR, BS, BT, BU, BV, BW, BX, BY, BZ, CA, CB, CC, CD, CE, CF, CG, CH, CI, CJ, CK, CL, CM, CN, CO, CP, CQ, CR, CS, CT, CU, CV, CW, CX, CY, CZ, DA, DB, DC, DD, DE, DF, DG, DH, DI, DJ, DK
Avatar billede 220661 Ekspert
03. juli 2011 - 08:01 #1
Skal det virke med en knap eller når macroer aktiveres i arket?
Her er lidt du kan kigge på:
http://www.google.dk/webhp?hl=da&tab=iw#hl=da&source=hp&q=macro+to+hide+rows&oq=macro+to+hide+rows&aq=f&aqi=g-L5&aql=undefined&gs_sm=e&gs_upl=1664l10276l0l20l20l1l6l6l0l236l2197l2.5.6l13&bav=on.2,or.r_gc.r_pw.&fp=bccc2f8b6a91efc1&biw=1024&bih=618
Avatar billede Mathias- Nybegynder
03. juli 2011 - 10:22 #2
Jeg ledte efter et mere konkret svar, men tak :)
Avatar billede store-morten Ekspert
03. juli 2011 - 10:50 #3
Sub MakroSKJUL()
    Range("F:F,K:K,P:P,S:S,T:T,V:V,W:W,Y:Y,Z:Z,AD:AD,AE:AE,AG:AG,AH:AH,AL:AL,AM:AM").Select
    Selection.EntireColumn.Hidden = True
End Sub

Skjuler:
F, K, P, S, T, V, W, Y, Z, AD, AE, AG, AH, AL, AM
Tilføj selv resten ;-)
Avatar billede store-morten Ekspert
03. juli 2011 - 11:15 #4
Range("F:F,K:K,P:P,S:S,T:T,V:V,W:W,Y:Y,Z:Z,AD:AD,AE:AE,AG:AG,AH:AH,AL:AL,AM:AM").Select

Kan gøre lettere:
Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AM").Select

S:S,T:T = S:T
V:V,W:W = V:W
Y:Y,Z:Z = Y:Z... osv.
Avatar billede Mathias- Nybegynder
03. juli 2011 - 11:39 #5
det virker tak, smid et svar store-morten.
Avatar billede store-morten Ekspert
03. juli 2011 - 12:01 #6
Sub MakroSKJUL()
    Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AN,AW:AX,AZ:BC,BF:BH,BJ:DK").Select
    Selection.EntireColumn.Hidden = True
End Sub
Avatar billede store-morten Ekspert
03. juli 2011 - 12:07 #7
Tilføjet at den husker den celle du står i.
Sub MakroSKJUL()
FraCel = ActiveCell.Address
    Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AN,AW:AX,AZ:BC,BF:BH,BJ:DK").Select
    Selection.EntireColumn.Hidden = True
Range(FraCel).Select
End Sub


Sub MakroVIS()
FraCel = ActiveCell.Address
    Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AN,AW:AX,AZ:BC,BF:BH,BJ:DK").Select
    Selection.EntireColumn.Hidden = False
Range(FraCel).Select
End Sub
Avatar billede Mathias- Nybegynder
03. juli 2011 - 23:21 #8
der er lige opstået et problem... jeg har kode på mit ark, kan jeg kode den ind i makroen, så den låser op og låser?
Avatar billede store-morten Ekspert
04. juli 2011 - 19:12 #9
Beskyt uden kode

Sub MakroSKJUL()
    ActiveSheet.Unprotect
FraCel = ActiveCell.Address
    Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AN,AW:AX,AZ:BC,BF:BH,BJ:DK").Select
    Selection.EntireColumn.Hidden = True
Range(FraCel).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub MakroVIS()
ActiveSheet.Unprotect
FraCel = ActiveCell.Address
    Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AN,AW:AX,AZ:BC,BF:BH,BJ:DK").Select
    Selection.EntireColumn.Hidden = False
Range(FraCel).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Avatar billede store-morten Ekspert
04. juli 2011 - 19:19 #10
Med kode 1234

Sub MakroSKJUL()
    ActiveSheet.Unprotect "1234"
FraCel = ActiveCell.Address
    Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AN,AW:AX,AZ:BC,BF:BH,BJ:DK").Select
    Selection.EntireColumn.Hidden = True
Range(FraCel).Select
ActiveSheet.Protect "1234"
End Sub

Sub MakroVIS()
ActiveSheet.Unprotect "1234"
FraCel = ActiveCell.Address
    Range("F:F,K:K,P:P,S:T,V:W,Y:Z,AD:AE,AG:AH,AL:AN,AW:AX,AZ:BC,BF:BH,BJ:DK").Select
    Selection.EntireColumn.Hidden = False
Range(FraCel).Select
ActiveSheet.Protect "1234"
End Sub
Avatar billede Mathias- Nybegynder
04. juli 2011 - 20:04 #11
tak
Avatar billede store-morten Ekspert
04. juli 2011 - 20:19 #12
Velbekomme
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
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 4 17/04/202616:11 18/04/202608:16
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
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 17:35 Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker
I går 13:33 Lukning af Microsoftkonto Af ErikHg i Windows
23/0416:10 Bat file. Af johnnylassen i Andet programmering
23/0410:28 “Signe” Svindel omtalt i medier Af nu_igen i Mobiltelefoner
22/0420:59 RAID controller virker ikke ved tilslutning af alle 4 harddiske Af Strawberry i Andet hardware
White papers
Flere white papers »