Vis eller skjul

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

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?

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

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

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

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

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?

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

Hej Karl

Jeg har tilrettet makroerne,

Vedlagt et link

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

Tak Mads. Fedt.