Vis / skjul makro

hvis du indsætter knapper i de celler, så forsvinder de når kolonnen skjules
prøv i stedet om dette eks. kan bruges
http://pmexcelent.dk/bogfoer_v2.xls

Ser smart ud, men bliver det ikke lidt voldsomt hvis man nu forestiller sig at der pludselig blev 15 grønne rækker? Er det ikke muligt at lave en form for on/off knap som enten skjuler alle på nær den kolonne knappen er bundet til, og når man så trykker igen viser den alle?

Og ville også utroligt gerne hvis man kunne skjule de rækker hvori der ikke var indtastet noget, så mad f.eks. blev begrænset til rækkerne som har numrene 4 og 6 :)

jo det gør det da vist
hvis det er knappeløsning du vælger kan koden se sådan ud for de 2 første

Private Sub CommandButton1_Click()
If Range("I1:L1").EntireColumn.Hidden = True Then Range("H1:L1").EntireColumn.Hidden = False Else Range("H1:L1").EntireColumn.Hidden = True
Range("H1").Columns.EntireColumn.Hidden = False
End Sub

Private Sub CommandButton2_Click()
If Range("H1,J1:L1").EntireColumn.Hidden = True Then Range("H1:L1").EntireColumn.Hidden = False Else Range("H1:L1").EntireColumn.Hidden = True
Range("I1").Columns.EntireColumn.Hidden = False
End Sub

følgende skal stå på 1 linie i begge koder:

If Range("I1:L1").EntireColumn.Hidden = True Then Range("H1:L1").EntireColumn.Hidden = False Else Range("H1:L1").EntireColumn.Hidden = True

Denne kan pastes som den er (knap 3)
sig til hvis du skal have hjælp til de 2 sidste

Private Sub CommandButton3_Click()
If Range("H1:I1,K1:L1").EntireColumn.Hidden = True Then _
Range("H1:L1").EntireColumn.Hidden = False Else Range("H1:L1").EntireColumn.Hidden = True
Range("J1").Columns.EntireColumn.Hidden = False
End Sub

Det er "excelent"!

Nu mangler vi bare hvis den så også kunne skjule de tomme rækker, så f.eks. knappen over "mad" sørger for at det kun er de to linjer hvorpå der er posteret, samt sum-linjen som vises ned ad :)

Prøv disse 3 første kan bruges

Private Sub CommandButton1_Click()
If Range("I1:L1").EntireColumn.Hidden = True Then _
Range("H1:L1").EntireColumn.Hidden = False Else Range("H1:L1").EntireColumn.Hidden = True
Range("H1").Columns.EntireColumn.Hidden = False
rk = Cells(1000, "H").End(xlUp).Row
Range("H4:H" & rk).EntireRow.Hidden = False
If Columns("I").EntireColumn.Hidden = True Then
Range("H4:H" & rk).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
End Sub

Private Sub CommandButton2_Click()
If Range("H1,J1:L1").EntireColumn.Hidden = True Then _
Range("H1:L1").EntireColumn.Hidden = False Else Range("H1:L1").EntireColumn.Hidden = True
Range("I1").Columns.EntireColumn.Hidden = False
rk = Cells(1000, "I").End(xlUp).Row
Range("I4:I" & rk).EntireRow.Hidden = False
If Columns("J").EntireColumn.Hidden = True Then
Range("I4:I" & rk).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
End Sub

Private Sub CommandButton3_Click()
If Range("H1:I1,K1:L1").EntireColumn.Hidden = True Then _
Range("H1:L1").EntireColumn.Hidden = False Else Range("H1:L1").EntireColumn.Hidden = True
Range("J1").Columns.EntireColumn.Hidden = False
rk = Cells(1000, "J").End(xlUp).Row
Range("J4:J" & rk).EntireRow.Hidden = False
If Columns("K").EntireColumn.Hidden = True Then
Range("J4:J" & rk).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
End Sub

Præcis som jeg havde tænkt mig det skulle være!

Smid et svar til den her...

Som en lille ekstra ting, er der en nem måde hvorpå man kan oprette nye kolonner, hvor både knap og tilhørende makro følger med? eller skal de laves manuelt i tilfælde af at man i kampens hede mangler en nye kolonne(konto) i arket?

Nej ikke ud over at du kan kopiere koden og så rette den til desværre

Det er bare helt i orden, jeg takker og bukker for den perfekte hjælp :)