Blad beveiligen maar wel kunnen filteren

[hoogteijling]

Hallo allemaal,

Met onderstaande code wordt mijn blad beveiligd.
Als gevolg hiervan kan ik kolommen niet meer filteren.
Wat moet ik aanpassen in mijn blad of code om toch te kunnen filteren ?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column & Target.Offset(, 1) = "3" Then
    Unprotect
    Target.Offset(, 1) = IIf(Target = "Nee", Target.Offset(, -1), "")
    Protect
  End If
End Sub

Groeten Marcel

 

[Niels28]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column & Target.Offset(, 1) = "3" Then
Unprotect
    Target.Offset(, 1) = IIf(Target = "Nee", Target.Offset(, -1), "")
    Protect , AllowFiltering:=True
  End If
End Sub

Niels

 

[hoogteijling]

Bedankt voor je antwoord maar ik kan nog steeds niet filteren.
Bekijk bijlage Opschoon formulier.zip

Groeten Marcel

 

[Niels28]

Ik kan gewoon in je bestand filteren, als je bedoelt dat je de filterrange wilt aanpassen dat gaat niet.
Maar waarom maak je er geen tabel van, dan wordt een nieuwe regel automatisch toegevoegd als je iets invult


Bekijk bijlage Kopie van Opschoon formulier.xlsm

Niels

 

[hoogteijling]

Hmmm, ik heb geen ervaring met het gebruik van tabellen.
Ik zal het eens uitzoeken of dat handiger is voor ons.

Bedankt zover

Groeten Marcel

 

[hoogteijling]

Het ziet er goed uit, erg handig, maar heb je een oplossing voor kolom I, J en K.
Hier zitten samengevoegde cellen in, ik weet dat het afgeraden wordt maar ik weet niet hoe ik dat anders voor elkaar moet krijgen.
En er zit een [ALT]+[ENTER] in om de 2e regel te krijgen waar E | W | S staat.

Met Centreren over selectie krijg ik ook niet het gewenste resultaat.

Groeten Marcel

 

[Niels28]

Ik heb de kopregel zwart gemaakt omdat ik de rand tussen rij 1 en 2 niet weg krijg.

Bekijk bijlage Kopie van Opschoon formulier.xlsm

PS die VW-opmaak heb je bij een tabel niet nodig dus die kun je verwijderen, de kleur kun jij bij de tabelstijlen aanpassen

Niels

 

[hoogteijling]

Bedankt weer Niels,

Ik vind het prachtig hoor
Ik ga hier binnenkort weer verder mee stoeien.

Groeten Marcel

 

[hoogteijling]

Niels,
wat ik niet begrijp is dat wanneer ik in jouw sheet in een lege regel wat invul dan kleurt ie hem automatisch.
Zit hem dat in de voorwaardelijke opmaak of zit dat in de tabelfunctie ?

Groeten Marcel

 

[Niels28]

Dat zit in de tabelfunctie, ik heb jouw voorwaardelijk opmaak er nog wel instaan maar die is niet nodig.

Niels

 

[hoogteijling]

Ik krijg het in de mijne niet voor elkaar.

Groeten Marcel
Bekijk bijlage Opschoon formulier.xlsm

 

[Niels28]

Ik ga even zoeken maar het heeft iets te maken met de optie automatische tabelgrootte aanpassen.

Niels

 

[Niels28]

Je hebt data validatie in lege regels staan, verwijder regel 39 t/m het einde dan werkt het weer.
ook de validatie wordt automatisch aangevult.

Oke een tabel wordt ook niet aangevuld als het blad beveiligd is.
Is die beveiliging echt nodig? Ik zie niet direct de logica van de cellen die beveiligd zijn.

Niels

 

[hoogteijling]

Ik krijg het niet voor elkaar.
Wat die ik fout ?
bedoel je met data validatie in lege regels de Ja/Nee keuze ?
Hoe haal ik die weg ?
Het lijkt wel of ie tot regelnummer oneindig doorgaat.

Als ik die weghaal vult ie nog steeds mijn tabel niet automatisch aan.
Hoe komen die zwarte stippellijnen in mijn sheet ?

Groeten Marcel

 

[Niels28]

Die stippellijnen zijn je afdrukbereik, weet niet waarom die soms zichtbaar worden.
ga op rijnummer 39 staan, houdt ctrl+shift en in druk pijltje naar beneden.
rechter muisknop , verwijderen.

Je hebt de aanvulling in mijn vorige post gemist?

Niels

 

[hoogteijling]

Ok,

Regels 39 en verder verwijderd maar ik kan vervolgens geen Ja/Nee meer kiezen in een nieuwe regel.

Groeten Marcel

 

[Niels28]

Daar begin je toch ook niet mee met het invullen, vul de datum in A1 in en je tabel wordt aangevult (als je beveiliging uit staat zie opmerking #13) en dan kun je weer ja of nee kiezen.

Niels

 

[hoogteijling]

Wanneer ik de datum invul in A40 en B40 dan zie ik wel een driehoekje in C40 maar hij reageerd niet als ik erop druk.
Beveiliging staat uit.

Of moet ik echt in A2 beginnen en dus mijn tabel geheel opnieuw invullen ?

Groeten Marcel

 

[Niels28]

Als je in A40 de datum invult dan staat er in cel c40 toch de validatie?
zie voor beeld.

Ik heb de koppelingen eruit gegooit want daar werd ik gek van.
gelieve in het vervolg bestanden zonder koppeling plaatsen.


Bekijk bijlage Opschoon formulier zonder macro.xlsx

Niels

 

[hoogteijling]

Ik zie wel wat handigheidjes met de tabel maar ik heb besloten om met het oude oorspronkelijke bestand verder te gaan.
Er zitten voor mijn situatie te veel haken en ogen aan.

Wel heel erg bedankt voor de moeite en tijd Niels

Groeten Marcel