regel verbergen

[W Bloemendal]

is het mogelijk om een regel automatisch niet zichtbaar temaken als een bepaalde cel van die regel geen inhoud heeft.

wim

 

[danny147]

Beste W Bloemendal

Dit kan

MAAR hoe ga je hem terug zichtbaar maken

Groetjes Danny. :thumb:

 

[W Bloemendal]

doordat in die cel een celverwijzing zit naar een cel van een ander blad

wim

 

[danny147]

Beste W Bloemendal

Gaat het om 1 cel van 1 rij of om meerder cellen en meerdere rijen.

Anders een voorbeeldbestandje.

Groetjes Danny. :thumb:

 

[danny147]

Beste W Bloemendal

Zie hier anders een bestandje.

Als je in cel A1 een 1 plaatst dan is rij10 zichtbaar.
Plaats je een 0 in cel A1 dan is de rij10 onzichtbaar.

Heb het zo gedaan, anders kan je de verborgen rij niet meer zichtbaar maken.

Groetjes Danny. :thumb:

 

[W Bloemendal]

Het gaat om 1 cel per regel om een regel te verbergen maar het gaat om meerdere regels,
die apart verborgen moeten worden.
b.v. een bestel lijst met alle artikelen, op het volgende blad dezelfde lijst, maar hier worden de regels verborgen waar geen aantal in gegeven is op het andere blad.

wim

 

[trucker10]

zonder meerdere gegevens is het voor de helpers een gokje

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    If Range("$A$1") = "" Then
        Range("$A$9").EntireRow.Hidden = True
    Else
        Range("$A$9").EntireRow.Hidden = False
    End If
     
End Sub

Hier kan je aanpassen Range("$A$9:$A$20") of een voorbeeldje zonder gevoelige info

 

[W Bloemendal]

Ik heb nu dit.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If [A10] = 0 Then Rows("10:10").EntireRow.Hidden = True
      If [A10] > 0 Then Rows("10:10").EntireRow.Hidden = False
      End Sub

In A10 staat =Blad2!A10
als ik nu blad 2 cel a10 verander en naar blad 1 ga is het nog niet verborgen als ik dan ergens een cel aanklik dan wordt het geactiveerd.
is het mogelijk dat het direct aangepast wordt.


met

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    If Range("$A$1") = 1 Then
        Range("$A$1").EntireRow.Hidden = True
    Else
        Range("$A$1").EntireRow.Hidden = False
    End If
     
End Sub

is het wel direct geactiveerd Dus Niet


Wim

 

[Roncancio]

Verwijder Selection

 Private Sub Worksheet_[COLOR="Red"][B]Selection[/B][/COLOR]Change(ByVal Target As Range)
      If [A10] = 0 Then Rows("10:10").EntireRow.Hidden = True
      If [A10] > 0 Then Rows("10:10").EntireRow.Hidden = False
      End Sub

Met vriendelijke groet,


Roncancio

 

[wieter]

Ik denk dat wat jij wil Wim, ooit lang geleden, een topic geweest is op het forum. (Ik geloof van BTA)

De beveiliging is van de tab-bladen gehaald.
Het wachtwoord van de macro's is - azerty -
Dit kan je vervangen door je eigen wachtwoord (in de macro's) vergeet niet in de eigenschappen ook het wachtwoord te wijzigen

De knop "Mailen naar ..........." moet je ook wijzigen en natuurlijk het mail-adres in de code ook
Kolom O maak je onzichtbaar
Mogelijk ben je hiermee geholpen
Groeten

 

[W Bloemendal]

Hoi Rocancio

Ik heb selection verwijderd in

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If [A10] = 0 Then Rows("10:10").EntireRow.Hidden = True
      If [A10] > 0 Then Rows("10:10").EntireRow.Hidden = False
      End Sub

maar dan wordt de regel niet verborgen

wim

 

[danny147]

Beste W Bloemendal

Heb gewacht op je reactie hier.
Ben tot hetzelfde resultaat gekomen.

Als je na uitvoeren van de code op blad1 ergens op een cel dubbelklikt dan gaat het, MAAR dat is de bedoeling niet hé.

Groetjes Danny. :thumb:

 

[trucker10]

en met deze ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If [A10] = 0 Then Rows("10:10").EntireRow.Hidden = True
    If [A10] > 0 Then Rows("10:10").EntireRow.Hidden = False
End Sub

of met deze ?

Private Sub Worksheet_Activate()
    If [A10] = 0 Then Rows("10:10").EntireRow.Hidden = True
    If [A10] > 0 Then Rows("10:10").EntireRow.Hidden = False
End Sub

 

[danny147]

Beste Trucker10

Dit geeft hetzelfde resultaat.

Groetjes Danny. :thumb:

 

[bandito bob]

Het gaat om 1 cel per regel om een regel te verbergen maar het gaat om meerdere regels,
die apart verborgen moeten worden.
b.v. een bestel lijst met alle artikelen, op het volgende blad dezelfde lijst, maar hier worden de regels verborgen waar geen aantal in gegeven is op het andere blad.

wim

dan is dat ook mogelijk met een formule, alleen verberg je dan geen regels, maar maak je automatisch een nieuwe tabel met hierin alleen de artikelen waarbij een aantal is ingevuld.

 

[trucker10]

Beste Trucker10

Dit geeft hetzelfde resultaat.

Groetjes Danny. :thumb:

Beste Danny , ik heb zonet een testje gedaan , op blad 2 vul ik 10 in daarna klik ik op de tab van blad 1 en de rij 10 is weg , klik ik terug op blad 2 , zet daar een 0 en keer ik terug naar blad 1 dan zie ik rij 10 terug staan , zonder dat ik op blad 1 ergens moet klikken . eventueel kan je de laatste Worksheet _Activate gebruiken

 

[trucker10]

Via deze lukt het altijd , de change blijft hangen indien je de macro aanpast van selectionchange naar change ( blijft in het geheugen hangen ) deze dus niet

Private Sub Worksheet_Activate()
    If [A10] = 0 Then Rows("10:10").EntireRow.Hidden = True
    If [A10] > 0 Then Rows("10:10").EntireRow.Hidden = False
End Sub

je kan ook via de calculate gaan indien deze op automaat staat

Private Sub Worksheet_Calculate()
    If Sheets("Blad2").Range("$A$10") = 0 Then
        Range("$A$10").EntireRow.Hidden = True
    Else
        Range("$A$10").EntireRow.Hidden = False
    End If
End Sub

 

[Warme bakkertje]

Ik heb 'm iets verder uitgebreid. Wijzig je op Blad2 een waarde in het bereik A1:A10 in 0 dan wordt op Blad1 de overeenkomstige rij verborgen.