Skjul kolonne hvis celle =

Anyone?

Sættes ind i arkets kodevindue:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim CellOne As Range
    Dim CellTwo As Range
    Set CellOne = Range("L7")
    Set CellTwo = Range("X7")

    Columns("L").EntireColumn.Hidden = False
    If (Not IsEmpty(CellOne)) And (Not IsEmpty(CellTwo)) And (CellOne.Value = CellTwo.Value) Then
        Columns("L").EntireColumn.Hidden = True
    End If
End Sub

Eller hvis det blot er koden for denne test du ønsker:

If Range("X7") = Range("L7") Then
Range("L7").EntireColumn.Hidden = True
Else
Range("L7").EntireColumn.Hidden = False
End If

hmm, det fungerer, men det samme skal jeg have gjort for flere kolonner efterfølgende. Hvad skal der så stå?

Pt. skjules L7 hvis X7 = L7.
Det samme skal kunne ske, hvis X7 = M7, og hvis X7 = N7 osv.....

Kolonner skal igen vises, hvis kolonnen ikke = X7

Jeg går ud fra at sidste kolonne, som skal testes er W:

Sub skjul()
For x = 12 To 23 'kolonnenumre, som skal testes
If Cells(7, x) = Range("X7") Then
Cells(7, x).EntireColumn.Hidden = True
Else
Cells(7, x).EntireColumn.Hidden = False
End If
Next
End Sub

hmmm, der er sket lidt i mellemtiden, (nu skal jeg heller ikke ændre mere i opsætningen af arket)

Men, celle L12, skal skjules hvis AW12 = L12
Igen, skal kolonnerne skjules helt hen til AV. Og naturligvis kunne vises igen, når AW ikke = den pågældende celle

Kan du hjælpe med en kode for dette?

Jeg tror jeg har luret din kode, så ændrede i nogle af bogstaverne og tallene, men kunne ikke få det til at du.

Så kan du hjælpe mig en gang til?

Den kunne se sådan ud:

Sub skjul()
For x = 12 To 48 'kolonnenumre, som skal testes
If Cells(12, x) = Range("AW12") Then
Cells(7, x).EntireColumn.Hidden = True
Else
Cells(7, x).EntireColumn.Hidden = False
End If
Next
End Sub

Om der står 7 eller 12 i linie 4 og 6 er ligegyldigt, da den skjuler/viser hele kolonnen

Koden virker ikke helt.
Kolonne 12 skjules, men de andre kan jeg ikke skjule.
Derudover vises kolonne 12 heller ikke igen, den bliver bare "presset sammen" og udvider sig ikke til normal kolonnebredde igen

Har du kopieret makroen i sin helhed? Det virker OK her

Ja, det var da underligt. Kan jeg sende dig filen, så du kan sætte den ind for mig?

Kan nemlig ikke få det til at du

Ja, send den til kober_soerensen[snabela).hotmail.com

så er filen sendt ;)
du havde skrevet et punktum efter (snabela). Jeg har slettet det, da jeg går ud fra, at det var en fejl

Jeg har sendt den til kober_soerensen@hotmail.com

Tror du jeg kan få den retur i morgen tidlig. Har nemlig en kort deadline...

Er nu sendt retur

Super, fantastisk. Tusind tak for hjælpen ;)
Sender du et svar, så du kan få point?

Du får et svar