bepaalde cellen inhoud wissen op basis van celwaarde

[Peer44]

Hallo,

ik probeer in excel data op te schonen, ik heb een export vanuit een database met heelveel standaardwaardes.
Echter deze waardes mogen alleen zichtbaar zijn als er een daadwerkelijke controle op plaats heeft gevonden.

zie voorbeeld bestand:

in de kolom aantal controles wordt berekend hoeveel controles plaats hebben gevonden.
zijn er 3 controles geweest mag alle data blijven staan,
bij 2 moet alles bij data 3 en tijd 3 uit de betreffende regel verwijderd worden
bij 1 controle alles bij data 2 en 3 tijd 2 en 3
bij 0 controles mag alle data en tijd weg uit de regel.

daarnaast is er nog een hercontrole mogelijk, daar geldt hetzelfde voor.
het kan er maar 1 zijn. indien niet gecontroleerd gegevens wissen uit datah en tijdh

is er een vba code met loop functie om dit op te lossen?Bekijk bijlage controle.xlsx

 

[wampier]

Moet dit automatisch lopen van boven naar beneden? blijft het formaat altijd hetzelfde?

 

[Peer44]

dit wordt gestart door op een button te drukken.
het aantal regels is variabel de kolommen zijn vast.

 

[wampier]

zoiets?

Sub wissen()
    For Each cel In Range([a2], [a100000].End(xlUp))
        For i = 1 To 4
            If cel.Offset(0, 8 + i).Value = "" Then
                cel.Offset(0, i).Value = ""
                cel.Offset(0, i + 4).Value = ""
            End If
            
        Next i
    Next cel
End Sub

 

[Peer44]

Ja perfect, moet ik wel de "option explicit" uitschakelen anders kent hij "Cel" niet.

 

[wampier]

cel is een variant als je met explicit wil werken Ik gebruik het zelf wel bij grotere stukken code, maar voor een paar regeltjes ben ik lui

 

[Peer44]

Hoe kan ik dan de variabele declareren? zo goed ben ik er namelijk niet van op de hoogte.....

dim cel as ??

 

[wampier]

dim cel as variant

cel is een variant

 

[Peer44]

Dank u, opgelost!