Søg
Avatar billede lail Forsker
06. januar 2020 - 10:26 Der er 12 kommentarer

VBA hjælp

Jeg har nogle områder jeg folder ind og ud
Så snart jeg åbner et nyt område =folder ud

Lukker jeg andet område jeg måtte have åbent - så der altid kun er et område åbent af gangen som udgangspunkt

Men alle de områder der foldes ind har jeg stående mange steder (der er i alt 10-15 områder. der gentager sig selv.

Kan jeg ikke skrive det et sted -  og så henvise til dette - så jeg ikke skal ind og rette i 10-15 forskellige makroer - i tilfælde af at området bliver større eller mindre

Sub fold_forudætninger_UD()
'
' fold_forudætninger_UD Makro
'
Application.ScreenUpdating = False
'folder basis ind
    Rows("6:14").Select
    Selection.EntireRow.Hidden = True
'folder Teams ind
    Rows("31:55").Select
    Selection.EntireRow.Hidden = True
   
'folder forudsætnonger UD
    Rows("17:28").Select
    Selection.EntireRow.Hidden = False
   
   
    Range("E18").Select ' står i første celle i området
    Application.ScreenUpdating = True
Avatar billede Flemming Vadet - Smart Office DK Professor
06. januar 2020 - 11:53 #1
Navngivning af områder eller NamedRanges som det også hedder... er hvor jeg ville tage fat..

F.eks. kan du navngive i dit Excel ark
A6:A14 som  group_basis
A31:A55 som group_temas

i VBA kan du lave variabler der holder navnene - laves i toppen af en modul
public sRNG_GROUP_BASIS as string = "group_basis"
public sRNG_GROUP_TEAMS as string = "group_teams"

I koden kan du
Range(sRNG_GROUP_BASIS).EntireRows.Hidden = True/False

Alle dine select kan du slette - på nær den sidste, som f.eks. kan se således ud
Range(sRNG_GROUP_TEAMS).cells(1,1).Select
Avatar billede Jan K Ekspert
06. januar 2020 - 14:52 #2
# 1: Vil navngivne områder ikke give problemer, hvis der kommer flere rækker/kolonner til, som tilføjes uden for det navngivne område?
Avatar billede store-morten Ekspert
06. januar 2020 - 16:19 #3
Enig i at: Navnestyring må kunne bruges. Vil dog foretrække det lidt mere enkelt.

Makro til at oprette og ændre ved udvidelse:
Sub Opret_Rediger_Områder()
                            'Name: (basis)    og område: (=Ark1!R6:R14)
    ActiveWorkbook.Names.Add Name:="basis", RefersToR1C1:="=Ark1!R6:R14"
    ActiveWorkbook.Names.Add Name:="Teams", RefersToR1C1:="=Ark1!R31:R55"
    ActiveWorkbook.Names.Add Name:="forudsætninger", RefersToR1C1:="=Ark1!R17:R28"
   
    'Flere kan tilføjes, og hvis Name ikke ændres, kan område tilpasset løbende.
End Sub

Og Makro til "Fold ud":
Sub fold_forudsætninger_UD()
Application.ScreenUpdating = False
'folder basis ind
    Range("basis").EntireRow.Hidden = True
'folder Teams ind
    Range("Teams").EntireRow.Hidden = True
'folder forudsætninger UD
    Range("forudsætninger").EntireRow.Hidden = False
'stå i første celle i området
    Range("E18").Select
    Application.ScreenUpdating = True
End Sub
Avatar billede lail Forsker
07. januar 2020 - 14:18 #4
store-morgen

Den fejler i Range("basis").EntireRow. Hidden  = True
Avatar billede store-morten Ekspert
07. januar 2020 - 14:37 #5
Og du har kørt den første kode?
Avatar billede lail Forsker
07. januar 2020 - 14:49 #6
Ja 
Det er korrekt forstået at jeg med det øverste navngiver områderne - dvs jeg skal ikke fysysk nangive nogle områder i excelfilen?

og
RefersToR1C1:="=Ark1!R6:R14" 

står R for Row??

Ved godt det sikkert er dumme spørgsmål ;O)

LN
Avatar billede lail Forsker
07. januar 2020 - 14:53 #7
fejlmeddelelsen er

Run-time error'1004':

Method 'Range' of object '_Global' failed
Avatar billede store-morten Ekspert
07. januar 2020 - 15:04 #8
Ja, det er rigtigt.
Ja: RefersToR1C1:="=Ark1!R6:R14"  Række 6 til 14 på Ark1
Se: https://www.dropbox.com/s/jdhuz7yhz6np7c2/foruds%C3%A6tninger.xlsm?dl=0
Avatar billede store-morten Ekspert
07. januar 2020 - 15:10 #9
Det går galt hvis du ikke har Ark1 men døbt  Arket om!

Så skal du tilpasse koden:

Sub Opret_Rediger_Områder()
                            'Name: (basis)    og område: (=Ark1!R6:R14)
    ActiveWorkbook.Names.Add Name:="basis", RefersToR1C1:="=Ark1!R6:R14"

Ark1 rettes til det faneblad du vil skjule på.
Avatar billede lail Forsker
08. januar 2020 - 09:43 #10
ActiveWorkbook.Names.Add Name:="basis", RefersToR1C1:="=Oplysninger!R6:R14"

Men fejler stadig samme sted
Avatar billede lail Forsker
08. januar 2020 - 09:56 #11
https://www.dropbox.com/h?preview=Projektbudgetskabelontest.xlsm

Ved ikke om jeg jeg gør det rigtigt
Avatar billede store-morten Ekspert
08. januar 2020 - 10:01 #12
Den kan ikke hentes
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
Fødselsdag og anciennitet liste Af Alni i Excel 5 I går 13:46 I går 22:05
Beregn alder (i år, måneder og dage) på personer født før år 1900. Af Balar Seir i Excel 5 11/11/202509:38 13/11/202522:09
Flere ark (tabeller) samlet under et ark i en tabel Af Peder Lund Nielsen i Excel 12 06/11/202522:17 08/11/202509:44
Afskrivningskurve Af tummes1983 i Excel 5 31/10/202513:28 11/11/202521:37
Finde mindsteværdi som er større end 00:00:00 Af Peder Lund Nielsen i Excel 6 20/10/202511:14 20/10/202518:52
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 16:39 Manglende driver til netværksdongle Af trav4u2 i Andet netværk
I går 13:46 Fødselsdag og anciennitet liste Af Alni i Excel
15/1117:01 for lille harddisk Af Marie i PC
15/1115:01 Vejledning til køb af (budget) gaming laptop Af Mont22 i PC
15/1112:57 mit.id Af Jette i Tablet
White papers
Flere white papers »