Excel - VBA kód alkalmazása több lapra

Probléma

Fizetésem Excel-fájlom van. Ez a fájl 200 lapot tartalmaz, amelyek minden alkalmazottra vonatkoznak.

A következő VBA kódom van.

 Privát Sub Worksheet_Change (ByVal Target As Range) Ha Target.Address "$ C $ 9", akkor kilép az Sub Ha Target = "seconded", majd Range ("a12"). EntireRow.Hidden = True Range ("a14"). = True Else Range ("a12"). EntireRow.Hidden = Hamis tartomány ("a14"). EntireRow.Hidden = Hamis vég, ha vége 

Ezt a kódot csak egyszer kell beírnom / írnom, hogy mind a 200 lapra dolgozhassak, különben 200 lapra kell másolni és beilleszteni.

Megoldás

Úgy tűnik számomra, hogy nem akarja a kódot egyetlen lapra, hanem a teljes munkafüzetre alkalmazni.

Ezért kattintson duplán erre a munkafüzetre a VB lapok alatt, és illessze be a kódját:

 Privát Sub Workbook_SheetChange (ByVal Sh As Object, ByVal Target As Range) Ha Target.Address "$ C $ 9", majd Kilépés Sub Ha Target = "seconded" Ezután tartomány ("a12"). EntireRow.Hidden = True Range ("a14" ) .EntireRow.Hidden = True Else Range ("a12") EntireRow.Hidden = Hamis tartomány ("a14") EntireRow.Hidden = Hamis vég, ha vége 

Köszönjük TrowaD- nak ezt a tippet.