Lave makro til betinget formatering og skjul koloner

Hvad med denne:

Sub SkjulKolonner()
    If Range("B2").Value = 0 And Range("E2").Value = 0 Then
        Columns("A").EntireColumn.Hidden = True
        Columns("B").EntireColumn.Hidden = True
        Columns("C").EntireColumn.Hidden = True
        Columns("D").EntireColumn.Hidden = True
        Columns("E").EntireColumn.Hidden = True
        Columns("F").EntireColumn.Hidden = True
    ElseIf Range("B2").Value = 0 Then
        Columns("A").EntireColumn.Hidden = True
        Columns("B").EntireColumn.Hidden = True
        Columns("C").EntireColumn.Hidden = True
    ElseIf Range("E2").Value = 0 Then
        Columns("D").EntireColumn.Hidden = True
        Columns("E").EntireColumn.Hidden = True
        Columns("F").EntireColumn.Hidden = True
    Else
        Columns("A").EntireColumn.Hidden = False
        Columns("B").EntireColumn.Hidden = False
        Columns("C").EntireColumn.Hidden = False
        Columns("D").EntireColumn.Hidden = False
        Columns("E").EntireColumn.Hidden = False
        Columns("F").EntireColumn.Hidden = False
    End If
End Sub

Super :-)

Det virker perfekt - nu skal jeg bare have den udvidet (har jeg lige fundet ud af), det skal være: (Hvis "B2-B9+B11-B18" eller "C2-C9+C11-C18" er tomme = Hide A+B+C) - (hvis der står noget i ET af disse felter = ingenting) Dette skal jeg så have lavet for ca. 30 kolonner af sæt med 3.

Igen - jeg håber det giver mening.

Nu har jeg arbejdet lidt videre med det og er kommet frem til det her - som virker med 3 rækker_

Sub skujl_kolonner()
  Dim Cell As Object
  ' Hvis S7:T13,S19:T25 er stoerre end 0
  For Each Cell In Range("S7:T13,S19:T25")
  If Cell > 0 Then

        ' Goer ingenting.
        Columns("R").EntireColumn.Hidden = False
        Columns("S").EntireColumn.Hidden = False
        Columns("T").EntireColumn.Hidden = False

  Else
        ' Skjuler kolonne R S T
        Columns("R").EntireColumn.Hidden = True
        Columns("S").EntireColumn.Hidden = True
        Columns("T").EntireColumn.Hidden = True
       
 
  End If
  Next Cell
 
End Sub

men jeg fatter ikke hvordan jeg udvider den til flere sæts 3 kolonner - f.eks U+V+W

nogen der kan det??

Hej,

er der ikke nogen der har et forslag ??

\Ole

har du lavet det i et ark, som du evt. kan sende... så er det nemmere for mig, at få et overblik over hvad det er præcis du mener?

mail: mit-alias @ hotmail . com

Lyder godt.

Vil du have med den makro der indtil nu "duer", eller uden makro.

ja, bare send det du har :)

Jeg skulle vist have et forslag til det nu ... jeg skal blot have på plads omkring hvad der skal skjules og hvad der ikke skal...

læs evt. post-besked :)

Dette var hvad det blev til. Nogle ting kan måske gøres anderledes, men skulle virke efter spørgers hensigt:

Sub gemKolonne()

Dim i As Integer
Dim tael As Integer
Dim ugetaeller As Integer
Dim uger As Integer

ugetaeller = 1
uger = 5

Range("D7").Select

While (ugetaeller <= uger)
    i = 0
    tael = 0
    While (tael < 7)
        tael = tael + 1
        i = i + ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        i = i + ActiveCell.Value
        ActiveCell.Offset(1, -1).Select
    Wend

    tael = 0
    ActiveCell.Offset(5, 0).Select

    While (tael < 7)
        tael = tael + 1
        i = i + ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        i = i + ActiveCell.Value
        ActiveCell.Offset(1, -1).Select
    Wend

    If i > 0 Then
        'hvis der er en værdi over 0
        Selection.EntireColumn.Select
        Selection.EntireColumn.Hidden = False

        Else
        'Hvis der ikke er en samlet værdi over 0
        Selection.EntireColumn.Select
        Selection.EntireColumn.Hidden = True
    End If

    ActiveCell.Offset(6, 3).Select
    ugetaeller = ugetaeller + 1
Wend

End Sub

Det var nøjagtig hvad jeg ledede efter, og den virker perfekt.

/Ole