automatisch filteren

[edwinkonings]

goede morgen ben al een tijdje bezig om de automatische filtering goed te krijgen maar het lukt bij 1 tabblad niet
als je bij straatwerk iets invult (bij het groene) dan komt er bij offerte klant normaal een regel en dat is ook bij factuur klant zo allen bij offerte klant wil het niet werken en ik kom er niet aan uit wie kan mij helpen zal proberen het bestand erbij te doen

Bekijk bijlage offerte test1.xlsm

 

[ExcelAmateur]

In de code staat 2x Tabel1 en moet voor Blad7 13 zijn.

 

[edwinkonings]

ok bedankt het werkt maar hoe weet ik het voor de volgende keer hoe kom je aan het getal 13 dan

 

[ExcelAmateur]

Als je Links boven in het naam vak op het pijltje klikt, zie je wat er gebruikt word.
Zo kwam ik er achter.
Vergeet ook niet de vraag als opgelost te zetten als je tevreden ben.

 

[edwinkonings]

ok opgelost

 

[ExcelAmateur]

Je kunt de vraag opgelost zetten, daar waar je de vraag ben begonnen, bij onderwerpopties

 

[VenA]

Zorg ervoor dat de lay-out van de 3 tabellen hetzelfde is dan is dit voldoende

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.CodeName <> "Blad1" Then Sh.ListObjects(1).Range.AutoFilter 4, ">0"
End Sub