Wat gaat er fout ??

[caffie]

ik heb een sheet gemaakt waarin we eten bestellen

nu kijk ik op regel 4 of er iemand iets beteld heeft
Als dat zo is blijf deze kolom zichtbaar
Als er niet besteld is moet deze kolom verborgen worden

Tevens wil ik met de zelfde macro de verborgen kolomen weer zichtbaar maken

Dus dacht ik al ik nu een cel heb waar ik een 1 plaats
als er in de cel 1 staat kijken of er its besteld is en verbregen als er niet besteld is
als er geen 1 staat moeten alle kolomen weer zichtbaar worden gemaakt

Maar op de een of ander manier krijg ik een fout melding op de kolomen die ik wil verbergen


ik heb deze macro erin staan

Tebvens heb ik de sheet in zijn geheel toegevoegd
(misschien dat een andere er ook nog wat mee kan)
Tips en hulp is welkom





Sub verbergkolom()

Dim storting As Integer

ScreenUpdating = False

storting = 1

Cells(1, 1) = 1

For storting = 1 To 27

If Cells(1, 1) = 1 Then
'kijk of iets beteld is
If Cells(4, storting * 2 + 4).Value <> "" Then
Columns(4, storting * 2 + 4).EntireColumn.Hidden = True
End If
Else
Columns(3, storting * 2 + 4).EntireColumn.Hidden = False
End If
Next
ScreenUpdating = True
Range("B2").Select
End Sub

 

[Wigi]

Hoi

De sheet is niet doorgekomen.

Wigi

 

[Roncancio]

Je kan geen column instellen met een Cel-formaat. Het is dus Cells(4, 2) en Columns(5) en géén Columns(3, 5).
Met andere woorden.
Columns(4, storting * 2 + 4).EntireColumn.Hidden = True

Die rode 4 + komma moeten weg.
Evenals bij
Columns(3, storting * 2 + 4).EntireColumn.Hidden = False
(onder de Else)

Met vriendelijke groet,


Roncancio

 

[caffie]

Bedankt voor de tip

Je kan geen column instellen met een Cel-formaat. Het is dus Cells(4, 2) en Columns(5) en géén Columns(3, 5).
Met andere woorden.
Columns(4, storting * 2 + 4).EntireColumn.Hidden = True

Die rode 4 + komma moeten weg.
Evenals bij
Columns(3, storting * 2 + 4).EntireColumn.Hidden = False
(onder de Else)

Met vriendelijke groet,


Roncancio