Skjul kolonner i VBA

Skjul kolonner i vba:
Columns("A:A").entirecolumn.hidden = true

Så manger du blot at definere nogle variable som vælger hvilke kolonner...

En ide kunne være at skjule dem alle via vbaen først og så bagefter definere hvilke der skal vises (hvis det er nemmere).

Jeg kan umiddelbart ikke få koden til at virke... Men dette skyldes måske at jeg har en del kodning stående inden da..

For eksempel sådan:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("E5")) Is Nothing Then
    Columns("F:Y").Hidden = True
    For x =5 To 5 + Cells(5, 5)
    Columns(x).Hidden = False
    Next
  End If
End Sub

Jeg har nu gemt kolonnerne til at starte med, men hvilken kode skal jeg så bruge til at fremkalde dem en efter en??

Columns("[hvad end du har kaldt kolonnerne]").entirecolumn.hidden = false

Hvad med hvis jeg gerne vil vise fx 5 kolonner F:J hvis celle værdien i C4 = 5, hvad er koden så?

Som jeg skrev i #3:

  For x =5 To 5 + Cells(5, 5)
    Columns(x).Hidden = False
    Next

Når du skriver "for x = 5 to 5 + cells (5, 5)" - hvad indikere så i denne at de skal gå ud fra hvad der skrives i cellen C4? Og hvad betyder det at der står 5 + cells (5, 5) ??

I dit første indlæg skrev du E5 og det har jeg skrevet som Cells(5,5), men da du har rettet det til C4, bør du skrive Cells(4,3) i stedet.

Det giver god mening, men når jeg intaster koden og skriver 5 i celle C4, så fremkommer kun 4 kolonner, hvor der skal fremkommer 5??

Skal koden som du skrev i #7 skal den bare gentages op til 20, hvis jeg værdien i C4 kan være fra 1-20??

Hvis det stadig er kolonnerne F til Y det drejer sig om vil makroen se således ud:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C4")) Is Nothing Then
    Columns("F:Y").Hidden = True
    For x = 5 To 5 + Cells(4, 3)
    Columns(x).Hidden = False
    Next
  End If
End Sub

Koden virker godt, men viser en kolonne mindre end hvad der står i cellen C4?

Det forstår jeg ikke. Hvis jeg f. eks skriver 2 i C4, så vises kolonnerne F og G

Jeg har rettet koden lidt til og nu virker dem optimalt - mange tak for hjælpen..

Ved du evt. hvordan man summerer en sum med kun de viste celler?? Fx. en formel som kun summerer de celler der vises og ikke medregner de skjulte celler??

Der findes en funkion der hedder
=SUBTOTAL(109;F4:F23), men den virke kun når området er lodret. Hvis du vælger for en række tæller den alt med.
Men med en makro vil det kunne lade sig gøre. Jeg har sat den ind i den oprindelige makro, og summen skrives i E5.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C4")) Is Nothing Then
    Columns("F:Y").Hidden = True
    For x = 5 To 5 + Cells(4, 3)
    Columns(x).Hidden = False
    Next
   
    Range("E5") = 0
    For x = 6 To 25
    If Columns(x).Hidden = False Then
    Range("E5") = Range("E5") + Cells(4, x) 'række 4 testes
    End If
    Next
 
  End If
End Sub

Den ovenstående løsning du har skrevet tager den både højde for skjulte rækker og kolonner?

Nej, den checker kun for skjulte kolonner, og summerer kun række 4 (bestemt af 4-tallet i 10. række (cells(4,x))

Du kender ikke til en kode der tager højde for begge dele, altså hvis jeg har skjult nogle rækker og har skjult nogle kolonner skal den ikke medregne værdierne i de skjulte kolonner og rækker??

Skriv hvilke rækker og kolonner der skal checkes, så laver jeg den i morgen

Tak! Det er sådan at alt efter hvor mange rækker og kolonner der er viste så skal den udregne som at hvis der fx er 3 rækker vist og 5 kolonner så udgøre de til sammen 100% uden at medregne de resterende 7 skjulte rækker og de resterende kolonner.

Når alle rækker er vist drejer det sig om række 15 til og med 24, og alle kolonner er fra G til og med Z.

Og værdierne skal regnes for hver af rækkerne og til sidst summeres de i en celle som udgøre de 100%
Så får række 15, skal resultatet stå i celle F15, og for række 16 i F16 osv.

Mange tak for din hjælp!

Hvis jeg har forstået dig korrekt kan du bruge denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C4")) Is Nothing Then
    Columns("F:Y").Hidden = True
    For x = 5 To 5 + Cells(4, 3)
    Columns(x).Hidden = False
    Next
   
    Range("F15:F24").ClearContents
    For r = 15 To 24
    For k = 7 To 25
    If Columns(k).Hidden = False Then
    Cells(r, 6) = Cells(r, 6) + Cells(r, k)
    End If
    Next
    Next
 
  End If
End Sub

Jeg har disse koder stående i arket nu:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4")) Is Nothing Then
       
        If Range("C4") <> "" Then
            Application.ScreenUpdating = False
           
            n = Range("C4")
           
            Range("14:25").Rows.Hidden = False
            Range(15 + n & ":25").Rows.Hidden = True
           
            Application.ScreenUpdating = True
           
        End If
       
    End If
   
  If Not Intersect(Target, Range("C5")) Is Nothing Then
    Columns("G:Z").Hidden = True
    For x = 5 To 6 + Cells(5, 3)
    Columns(x).Hidden = False
    Next
  End If

End Sub
 
Hvis jeg sætter den kode ind som du har lavet ovenfor så kan jeg umiddelbart ikke få det til at virke. Cellen som angiver antal rækker er C? og koden som angiver antal kolonner der skal vises er C5.

Prøv med denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C5")) Is Nothing Then
        If Target.Row = 4 And Range("C4") <> "" Then
            Application.ScreenUpdating = False
            Range("F15:F24").EntireRow.Hidden = True
            For x = 14 To 14 + Cells(4, 3)
            Rows(x).Hidden = False
            Next
        End If
        If Target.Row = 5 And Range("C5") <> "" Then
            Columns("G:Z").Hidden = True
            For x = 6 To 6 + Cells(5, 3)
            Columns(x).Hidden = False
            Next
        End If
             
  Range("F15:F24").ClearContents
    For r = 15 To 24
    For k = 7 To 25
    If Columns(k).Hidden = False Then
    Cells(r, 6) = Cells(r, 6) + Cells(r, k)
    End If
    Next
    Next
 
  Application.ScreenUpdating = True
End If
End Sub

Jeg kan umiddelbart ikke få koden til at virke - når jeg efter at have indsat koden i arket prøver at skjule nogle kolonner og rækker så tæller den stadig de skjulte rækker med og siger at den er 500% i første rækker, hvor den skal tælle hvor mange celler der er udfyldt med et 1-tal ud af de viste kolonner i rækken...

Makroen kører kun, hvis du skriver noget i cellerne C4 eller C5. Hvis du bruger andre metoder til at skjule rækker eller kolonner, sker der ingen genberegning

Okay jeg prøver lige igen så, men hvor angiver den hvilken celle den skal skrive summen i?

Det er instruktionen
  Cells(r, 6) = Cells(r, 6) + Cells(r, k)
Altså i kolonne F for den givne række