Avatar billede Cale Mester
15. november 2017 - 19:10 Der er 9 kommentarer og
1 løsning

Vis eller skjul

Hvordan laver man kode, når man laver 2 afkrydsningfelt. Når man vælger en afkrydsningsfelt viser A24 og A25 række og kolonne. Vælger man den anden skjuler række og kolonne?
Avatar billede Mads32 Ekspert
15. november 2017 - 19:40 #1
Hej Karl

Hvad mener du med et afkrydsningsfelt???
Er det nogle celler som du vil sætte et kryds i ???

Du kan ikke ved at sætte kryds i nogle celler skjule eller vise kolonner eller rækker.
Du kan med x i en celle, få andre celler til at være tomme.

Prøv med et eksempel at vise hvad du vil, eller forklar omhyggeligt
Avatar billede Cale Mester
15. november 2017 - 19:48 #2
Nej, undskyld det er alternativknap.

Der er 2 valg mulighed, 1 knap og 2 knap.

Når man vælger 1 knap skal vise række A24 & A25.
Når man vælger 2 knap skal kunne skjul række A24 & A25.

Kan det lade sig gøre?
Avatar billede Mads32 Ekspert
15. november 2017 - 20:59 #3
Hej

Det kan sagtens laves.

Har du bestem hvor dine knapper skal være. De skal jo altid være synlige, så jeg foreslår at de placeres i række 1, som så gøres bred.

Der skal så kun være data fra række 2 og nedad.

række 1 låses så den altid er synlig.

Jeg hjælper gerne videre, men jeg skal ud af huset
Avatar billede Mads32 Ekspert
15. november 2017 - 22:16 #4
Hej

Her er et lille forslag

https://www.dropbox.com/s/tsl4nkbrac36ozg/vis%20eller%20skjul.xlsm?dl=0

Hvis du kan bruge dette, så husk at markere dette som en løsning
Avatar billede jens48 Ekspert
15. november 2017 - 23:31 #5
Du kan sagtens ved at skrive noget i en bestemt celle få Excel til at skjule en linje. Det kræver blot en lille makro i stil med nedenstående, som skal sættes ind under Vis Koder (højreklik på fanebladet).
Denne makro skjuler linje 24 og 25, hvis der skrives noget i celle D4 og viser rækkerne igen, hvis D4 er tom.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4")) Is Nothing Then
If Target = "" Then
Range("A24:A25").EntireRow.Hidden = False
Else
Range("A24:A25").EntireRow.Hidden = True
End If
End If
End Sub
Avatar billede jens48 Ekspert
15. november 2017 - 23:43 #6
Eller du kan hæfte en makro på en Check Box. Den ville så skulle se nogenlunde sådan ud (hvis Check Boxen er linket til celle A1):

Sub CheckBox3_Click()
If Range("A1") = True Then
Range("A24:A25").EntireRow.Hidden = False
Else
Range("A24:A25").EntireRow.Hidden = True
End If
End Sub
Avatar billede Cale Mester
16. november 2017 - 15:39 #7
Tak Mads. Det lykkes.

Men mangler lige at eks.

Når man skjuler A24:A25 - Skal der står i A18 - bogstav A
Når man viser A24:A25 - Skal der står i A18 - bogstav B

Kan man fikse den?
Avatar billede jens48 Ekspert
16. november 2017 - 17:02 #8
Nedenstående makro reagerer på det, der bliver skrevet i A18. Hvis du skriver "A" skjules række 24 og 25. Hvis der skrives "B" (egentlig alt andet end "A") vises linjerne igen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A18")) Is Nothing Then
If Target = "A" Then
Range("A24:A25").EntireRow.Hidden = True
Else
Range("A24:A25").EntireRow.Hidden = False
End If
End If
End Sub
Avatar billede Mads32 Ekspert
16. november 2017 - 23:30 #9
Hej Karl

Jeg har tilrettet makroerne,

Vedlagt et link

https://www.dropbox.com/s/kmrh91bj28dqrgr/vis%20eller%20skjul_2.xlsm?dl=0
Avatar billede Cale Mester
17. november 2017 - 12:26 #10
Tak Mads. Fedt.
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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.

Du kan også logge ind via nedenstående tjenester