Rijen verbergen/tonen in ander tabblad

[Petertj81]

Ik zou heel graag een vba code maken die het volgende kan:
In tabblad 1 heb ik een 3x kolom (D,E,F) van 16 cellen hoog (4:19) waarin ik Y of N kan invoeren.
Als de invoer leeg is of N, dan wil ik dat er op tabblad 2(of 3 of 4, afhankelijk van kolom een rij verdwijnt.

Bijvoorbeeld:
Als de invoer op blad in in 1!D4 Y is, dan moet rij 4 op blad 2 blijven staan/tevoorschijn komen.
Bij wijzigging van Y naar N moet de rij verdwijnen en vice versa.

Dit wil ik dan dus uitbreiden naar elke kolom en bijbehorend tabblad en elke cel met bijbehorende rij.

Ik heb al flink zitten zoeken in dit forum maar kom er echt nog niet uit. Kunnen jullie helpen?

btw: ik gebruik excel 2011 op mac. Bekijk bijlage koppeling tussen tabblad 1 en 2 3 of 4.xlsm

 

[Elsendoorn2134]

Peter,

Op zich niet zo heel ingewikkeld, hierbij de VBA code die ik bedacht heb.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim SheetName As String
    
'Bepaal eerst of de veranderde cel wel door de macro moet worden verwerkt.
If Intersect(Target, Range("D4:F19")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
'Bepaal het tabblad, afhankelijk van de kolom die veranderd is.
SheetName = Choose(Target.Column - 3, "Impact kanaal-Businessmngr", "Impact kanaal-ICT Beheer", _
    "Impact kanaal-Gebruiker")
If Target.Value = "N" Then
    'Als "N" dan verbergen regel
    Sheets(SheetName).Range("A" & Target.Row).EntireRow.Hidden = True
Else
    'Als niet "N" dan tonen van de regel.
    Sheets(SheetName).Range("A" & Target.Row).EntireRow.Hidden = False
End If

End Sub

Deze is ook verwerkt in het bestand.
Bekijk bijlage HelpMijKoppelingTabbladen.xlsm

Veel Succes.

 

[Petertj81]

Werkt als een zonnetje. Geweldig bedankt