Oprettet lør. d. 28. januar 2012 kl. 13:22:33

AOT1977
AOT1977 (3.550 point. Point ude: 0)

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

Skrevet lør. d. 28. januar 2012 kl. 13:42:40| #1

Thorp
Thorp (2.612 point)
Se denne tråd, den kan sikkert inspirere dig.

http://www.eksperten.dk/ (...)

Skrevet lør. d. 28. januar 2012 kl. 13:54:20| #2

Thorp
Thorp (2.612 point)
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

Skrevet lør. d. 28. januar 2012 kl. 14:20:16| #3

AOT1977
AOT1977 (3.550 point)
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?

Skrevet lør. d. 28. januar 2012 kl. 14:30:05| #4

Thorp
Thorp (2.612 point)
Hvad er indstillingen for makroer i dit sikkerhedscenter

Skrevet lør. d. 28. januar 2012 kl. 14:36:07| #5

Thorp
Thorp (2.612 point)
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

Skrevet lør. d. 28. januar 2012 kl. 14:38:12| #6

Thorp
Thorp (2.612 point)
Prøv at sætte "Stop" ind før 'Skjul BJ og brug F8 tasten til at hoppe igennem koden.

Skrevet lør. d. 28. januar 2012 kl. 15:10:09| #7

AOT1977
AOT1977 (3.550 point)
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?

Skrevet lør. d. 28. januar 2012 kl. 15:17:21| #8

kabbak
kabbak (152.524 point)
www.kabbak.dk
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

Skrevet lør. d. 28. januar 2012 kl. 15:26:07| #9

AOT1977
AOT1977 (3.550 point)
Jeg tænker om det kan havde noget at sige med at BL1 henter data fra et andet ark?

Skrevet lør. d. 28. januar 2012 kl. 15:46:36| #10

AOT1977
AOT1977 (3.550 point)
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

Skrevet lør. d. 28. januar 2012 kl. 15:57:53| #11

AOT1977
AOT1977 (3.550 point)
neeeej, nu skjuler den hele tiden BJ kolonnen teksten i BL1 kan skiften mellem flere forskælige og så =""

Skrevet lør. d. 28. januar 2012 kl. 16:00:46| #12

kabbak
kabbak (152.524 point)
www.kabbak.dk
husk at du skal flytte fra aktive celle, for at koden udføres, altså klik på en anden celle end den der er aktiv.

Skrevet lør. d. 28. januar 2012 kl. 16:11:52| #13

AOT1977
AOT1977 (3.550 point)
ååå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

Skrevet lør. d. 28. januar 2012 kl. 16:22:59| #14

AOT1977
AOT1977 (3.550 point)
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?

Skrevet lør. d. 28. januar 2012 kl. 17:06:15| #15

Thorp
Thorp (2.612 point)
Godt at du fik det til at virke :-)

Skrevet lør. d. 28. januar 2012 kl. 17:28:28| #16

AOT1977
AOT1977 (3.550 point)
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?

Skrevet lør. d. 28. januar 2012 kl. 17:33:50| #17

kabbak
kabbak (152.524 point)
www.kabbak.dk
If Range("$BL$1")= "TeamPoint" or Range("$BL$1")= "Team" Then

Skrevet lør. d. 28. januar 2012 kl. 17:38:44| #18

AOT1977
AOT1977 (3.550 point)
Super, tak til jer begge

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

hjælp til at lave et træningsprogram

Oprettet den 26. maj 2012 kl. 20.44
janskov giver 30 point for svar | Giv et svar »

Datavalidering med anden workbook som referance

Oprettet den 26. maj 2012 kl. 09.05
KenneyD71 giver 60 point for svar | Giv et svar »

Søgeformel i Excel

Oprettet den 25. maj 2012 kl. 23.28
Torben1970 giver 60 point for svar | Giv et svar »



   




Tips & Tricks fra PC World

Teaser billede

Læserne: Her er vores værste it-indkøb

Det er ikke al it-udstyr, som er det rene guld. Her er nogle af læsernes skrækhistorier.


Anmeldelser fra PC World

Teaser billede

Test: Mobil med Ferrari-design - og en Trabant-motor

Motorola har begået endnu en smartphone med lækkert design og potentiale til at være blandt de bedste. Men den når ikke i mål. Se her hvorfor.


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Sådan siger du farvel til Facebook

Læs her, hvordan du dropper Facebook og i stedet anvender nogle brugervenlige alternativer, så du stadig kan være social på nettet.


Nyheder fra Computerworld

Teaser billede

Galleri: De fedeste håndholdte gennem 40 år

Her har du de mest banebrydende håndholdte computere gennem alle tider.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger