Rij onzichtbaar maken in werkmappen

[Partis]

Beste,

Ik heb een werkmap met een 50-tal werkbladen.
Als ik in werkblad 1 in bv. cel a1 een bepaalde lesteken (bv. ~) plaats, dan zou desbetreffende rij (1), die in de volgende bv. 40 werkbladen is gekopieerd, ook niet meer zichtbaar mogen zijn bij deze 40 werkbladen.

Wie kan mij helpen?

Met vriendelijke groet,

Vincent

 

[Warme bakkertje]

In de bladmodule van 1ste werkblad

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        For i = 2 To 3 'verhogen naar aantal werkbladen
            Sheets(i).Rows(Target.Row).Hidden = Target.Value = Chr(126)
        Next
    End If
End Sub

 

[Partis]

Dag Warm bakkertje,

Ik krijg het niet voor elkaar.
Voer ik de code verkeerd in? Zie bijlage!

Groeten, Vincent

 

[Warme bakkertje]

Dubbelklikken op Blad1 en daar de code invoegen.
Of rechtsklikken op de tab van Blad1 en dan Programmacode weergeven selecteren.

 

[Partis]

Beste warm bakkertje,

Ik heb het geprobeerd, maar het lukt me niet. Wat doe ik fout?
Ik stuur je een bijlage mee, wellicht wil je kijken waar de fout zit?.
Ter verduidelijking: Ik heb in kolom A het teken ~ staan om aan te geven dat die rijen in de volgende werkbladen niet zichtbaar mogen zijn.

Hartelijke groeten, Vincent


Bekijk bijlage test1.xlsx

 

[Warme bakkertje]

Je vraag stemt absoluut niet overeen met je voorbeeld.
Wat wil je nu eigenlijk bereiken ?
Welke rij(e)n moet(en) verborgen worden ?
De tilde is ook geen alleenstaand teken in je voorbeeld, maar maakt deel uit van een celwaarde.

 

[Partis]

Beste Warme bakkertje,

Als ik in een cel van kolom A een bepaald teken zet (in het voorbeeld een tilde), dan moet de rij waarin dat teken staat in de volgende 4 werkbladen (in dit geval week 1 t/m 4), niet meer zichtbaar zijn.
Dus, zoals in het voorbeeld, staan er tildes in de cellen a2, a5, a12 t/m a18. Dan zouden in de werkbladen van week 1 t/m 4 de rijen 2, 5 en 12 t/m 18 niet meer zichtbaar moeten zijn.

 

[Warme bakkertje]

Sub tst()
    For Each cl In Sheets("Jaaroverzicht").Range("A2:A77")
        For i = 2 To 5 'verhogen naar aantal werkbladen
            Sheets(i).Rows(cl.Row).Hidden = IIf(InStr(1, cl.Value, Chr(126)) <> 0, True, False)
        Next
    Next
End Sub

 

[Partis]

Dag warm bakkertje,

Bedankt voor je reactie. Ik heb het geprobeerd om in het werkblad 'jaaroverzicht' te plakken. De rijen blijven echter gewoon zichtbaar. Wat doe ik fout?
Ik heb het excel bestand als bijlage meegestuurd.

Alvast bedankt!

VincentBekijk bijlage test1.xlsx

 

[Haije]

Vincent,

probeer deze eens.....

LET OP!! ik heb de laatste drie bladen verwijderd

 

[Partis]

Dag Haije,

Bedankt voor je reactie!
Perfect! Nu werkt hij!!!!
Hartstikke bedankt!

Groeten, Vincent

 

[Haije]

en ik heb allen maar gedaan wat Rudi (warme bakkertje) je gezegd heeftm du sde dank is voor hem!

 

[Partis]

Uiteraard beiden bedankt!