Knippen plakken en waarden 0 verbergen

[Bennie122]

Goedemorgen,

Ik ben op zoek naar een oplossing voor het volgende:

Ik heb een "master blad" die gevuld word met data.
Blad 2 is een blad waaruit verkorte info in staat afkomstig uit het master blad.
Dit doe ik gewoon simpel met een verwijzing =masterblad!A1 etc

op het master blad word in een kolom een getal ingevuld handmatig als deze leeg blijft zou ik op blad2 willen dat deze regel verborgen word of zelfs verwijderd in dat blad.

Ik dacht te begrijpen dat vba niet met die formule om kon gaan maar een harde waarde moest zijn.
Ik dacht dus aan knippen en plakken.
Dus kwam ik tot deze code:

[B]Sub kopieerTest()

    Sheets(1).Range("k3:k999999").Copy
Sheets(2).Range("e3:e999999").PasteSpecial xlPasteValues
Application.CutCopyMode = False[/B]

Dit werkt verder prima

voor het verbergen van de waarde 0 heb ik dit:

[B]If Target.Column = 5 Then Target.EntireRow.Hidden = Target.Value = 0

[/B]Deze alleen werkt ook

Er zijn 2 afdeling die met dit blad gaan werken.
Blad 1 is voor afdeling 1.
Blad 2 voor afdeling 2.

Als afdeling 1 zijn gegevens heeft verwerkt is het de bedoeling wanneer afdeling 2 het blad openend zijg gegevens ingevuld opgeschoond zijn op blad2.

Alleen nu wil ik graag deze 2 combineren echter lukt me dat niet.
De codes hierboven heb ik niet zelf bedacht maar gezocht op internet.
Ik heb zelf totaal geen verstand van vba.

Kunnen jullie mij helpen met dit onderwerp wellicht kan het heel simpel alleen zie ik door de bomen het bos niet meer..
Ik hoop dat ik het goed heb kunnen omschrijven wat mijn wensen zijn.

Met vriendelijke groet,

Bennie

 

[Senso]

Welkom
Ik denk dat een representatief voorbeeldbestand wenselijk is.

 

[OctaFish]

Met een bestandje erbij wordt de animo om er in te duiken een stuk groter .

 

[VenA]

Gewoon filteren?

 

[Bennie122]

Gewoon filteren?

liever niet, vanwege kolommen die er nog bij gaan komen waar wel op gefilterd gaat worden.
Filter op filter wil ik eigenlijk voorkomen.

 

[VenA]

Echt handig is deze opzet niet. Door de directe verwijzing naar de tab 'magazijn' en de kolommen die je nog gaat toevoegen loop je het risico dat er bij een sortering alles door elkaar staat. Maar goed.

Sub VenA()
  Dim r As Range
  With Sheets("uitgifte")
    lr = .Cells(Rows.Count, 1).End(xlUp).Row
    .Cells(3, 5).Resize(lr - 2) = Sheets("magazijn").Cells(3, 11).Resize(lr - 2).Value
    For j = 3 To lr
      If .Cells(j, 5) = "" Then
        If r Is Nothing Then Set r = .Cells(j, 5) Else Set r = Union(r, .Cells(j, 5))
      End If
    Next j
    If Not r Is Nothing Then r.EntireRow.Hidden = True
  End With
End Sub