Søg
Avatar billede AOT1977 Praktikant
28. januar 2012 - 13:22 Der er 16 kommentarer og
2 løsninger

Skjul kolonne hvis....

Hej

Nu jeg kigget lidt rund og kan ikke lige finde noget jeg kan bruge.

Jeg har prøvet lidt af det jeg har fundet men kan ikke få det til at virke.

Jeg vil gerne havde kolonne BJ til at blive vist hvis celle BL4 = 1 og bliver skjult hvis BL4 = 0, i BL4 er der står der denne formler =HVIS(BL1="TeamPoint";1;0)

Skal jo nok ud i noget vba, nogle der har en idé?

Hilsen
Allan
Avatar billede Thorp Praktikant
28. januar 2012 - 13:42 #1
Se denne tråd, den kan sikkert inspirere dig.

http://www.eksperten.dk/spm/955507
Avatar billede Thorp Praktikant
28. januar 2012 - 13:54 #2
Ellers kan du bruge denne:

Private Sub Worksheet_Change(ByVal Target As Range)

'Skjul BJ
If Range("$BL$4").Value = 0 Then
Range("BJ:BJ").EntireColumn.Hidden = True
Else
Range("BJ:BJ").EntireColumn.Hidden = False
End If

End Sub
Avatar billede AOT1977 Praktikant
28. januar 2012 - 14:20 #3
den bliver ikke skjult

Private Sub Worksheet_Change(ByVal Target As Range)

'Skjul BJ
If Range("$BL$4").Value = 0 Then
Range("BJ:BJ").EntireColumn.Hidden = True
Else
Range("BJ:BJ").EntireColumn.Hidden = False
End If

End Sub

har sat denne i selvet arket (når man dobbelklikker på ark) men virker ikke hvad gør jeg forkert?
Avatar billede Thorp Praktikant
28. januar 2012 - 14:30 #4
Hvad er indstillingen for makroer i dit sikkerhedscenter
Avatar billede Thorp Praktikant
28. januar 2012 - 14:36 #5
Det virker når jeg tester den - har du dobbelt tjekket, det er det rigtige ark koden er sat ind i?

Private Sub Worksheet_Change(ByVal Target As Range)

'Skjul BJ
If Range("$BL$4").Value = 0 Then
Range("BJ:BJ").EntireColumn.Hidden = True
Else
Range("BJ:BJ").EntireColumn.Hidden = False
End If

End Sub
Avatar billede Thorp Praktikant
28. januar 2012 - 14:38 #6
Prøv at sætte "Stop" ind før 'Skjul BJ og brug F8 tasten til at hoppe igennem koden.
Avatar billede AOT1977 Praktikant
28. januar 2012 - 15:10 #7
Makroer er alle aktive.

Har tjekket og tjekket  og tjekket at det er det rigtige ark.

Har skrevet Stop 'Skjul BJ og trykket F8 sker ikke noget?
Avatar billede kabbak Professor
28. januar 2012 - 15:17 #8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("$BL$1")= "TeamPoint" Then
Range("BJ:BJ").EntireColumn.Hidden = True
Else
Range("BJ:BJ").EntireColumn.Hidden = False
End If

End Sub

Prøv denne, den tjekker på en anden celle
Avatar billede AOT1977 Praktikant
28. januar 2012 - 15:26 #9
Jeg tænker om det kan havde noget at sige med at BL1 henter data fra et andet ark?
Avatar billede AOT1977 Praktikant
28. januar 2012 - 15:46 #10
nå, det havde noget at sige så nu virker det som kabbak skriver, vil i begge havde point eller?

100000000000000 tak for hjælpen til begge
Avatar billede AOT1977 Praktikant
28. januar 2012 - 15:57 #11
neeeej, nu skjuler den hele tiden BJ kolonnen teksten i BL1 kan skiften mellem flere forskælige og så =""
Avatar billede kabbak Professor
28. januar 2012 - 16:00 #12
husk at du skal flytte fra aktive celle, for at koden udføres, altså klik på en anden celle end den der er aktiv.
Avatar billede AOT1977 Praktikant
28. januar 2012 - 16:11 #13
åååh ja sådan, nu er den så skjult når der står TeamPoint, men det er bare den forkerte vej BJ skal vises når BL1 er TeamPoint og skjules når BL1 er andet
Avatar billede AOT1977 Praktikant
28. januar 2012 - 16:22 #14
nu har jeg byttet om på True og False altså sådan her

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("$BL$1")= "TeamPoint" Then
Range("BJ:BJ").EntireColumn.Hidden = False
Else
Range("BJ:BJ").EntireColumn.Hidden = True
End If

End Sub

og det virker

tak for hjælpen begge igen griner

vil i begge havde point eller?
Avatar billede Thorp Praktikant
28. januar 2012 - 17:06 #15
Godt at du fik det til at virke :-)
Avatar billede AOT1977 Praktikant
28. januar 2012 - 17:28 #16
kom lige til at tænke på en ting

kan man sætte den til at vælge melleme to ord f.eks. TeamPoint eller Team?
Avatar billede kabbak Professor
28. januar 2012 - 17:33 #17
If Range("$BL$1")= "TeamPoint" or Range("$BL$1")= "Team" Then
Avatar billede AOT1977 Praktikant
28. januar 2012 - 17:38 #18
Super, tak til jer begge
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
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 5 I går 18:11 I går 22:03
Æ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
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 20:49 Fejl på Tv2 Play Af Bukse i Browsere
I går 18:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
White papers
Flere white papers »