• 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.

Rij automitch openen en sluiten

Status
Niet open voor verdere reacties.

kruysklm

Gebruiker
Lid geworden
16 mrt 2009
Berichten
45
Is het mogelijk om als ik in blad 1 in de eerste kolom cel a7 iets plaats dit in blad 2 maar ook in blad 3 komt te staan in a7 en automatisch de rij wordt geopend. Om het overzichtelijk te houden wil ik namelijk rijen dicht schuiven. maar ook als ik een cel in de kolom in blad 1 leegmaak deze in blad 2 de rij verdwijnt.

Groeten,

Klaas

.Bekijk bijlage rij automatisch open.xlsx
 
Harry,

Dedankt voor je reactie, maar wat ik wil dat als ik blad 1 in a7 iets plaats alleen regel a7 in de andere bladen open gaat.

Groeten,

Klaas
 
Wat moet ik me voorstellen bij; 'rij 7 in de andere bladen open gaat'.
 
Harry,

Hier bedoel ik regel 7 mee deze moet in zijn geheel worden weergegeven in de van toepassing zijn de werkbladen.
Maar ook bij het verwijderen in blad 1 weer worden verborgen.

Groeten,

Klaas
 
Klaas,

Probeer onderstaande code eens in moduleBlad1.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Variant
     For Each c In Range("A1:A15")
       If c > 0 Then
     Sheets("Blad2").Cells(c.Row, 1).EntireRow.Hidden = False
     Else
     Sheets("Blad2").Cells(c.Row, 1).EntireRow.Hidden = True
    End If
   Next c
End Sub
 
Harry,

Het werkt nu inderdaad, als ik in blad 1 iets ingevuld en rijen gaan open en bij verwijderen weer dicht.
Het werkt niet in blad 3, maar als ik een willekeurig iets invul komt er regio"X" staan maar het moet het
exacte wordt uit blad 1 overnemen.

Groeten,

Klaas
 
Klaas,

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Variant, sh As Variant
  For sh = 2 To 3
     For Each c In Range("A2:A15")
         If c > 0 Then
       With Sheets(sh).Cells(c.Row, 1)
          .EntireRow.Hidden = False
          .Value = c.Value
         End With
  Else
     With Sheets(sh).Cells(c.Row, 1)
       .EntireRow.Hidden = True
       .Value = c.Value
     End With
    End If
   Next c
 Next sh
End Sub
 
Hary,

Mijn dank is groot, precie swat ik bedoelde.

Groeten,

Klaas
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan