• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Wat gaat er fout ??

Status
Niet open voor verdere reacties.

caffie

Gebruiker
Lid geworden
2 jan 2008
Berichten
291
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
 
Laatst bewerkt:
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
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan