kolom verbergen meerdere sheets

[don42]

Ik heb een kleine 80 sheets, nummer 1 t/m 77
waar ik kolom 9 van wil verbergen als de waarde in cel W15
nul is
dat is dus apart voor elk tabblad.

met onderstaande code lukt mij dat gewoon

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Columns(9).Hidden = Range("w15").Value = 0
      End Sub

heb deze code dus 77 keer geplakt
mijn vraag is dan ook is hier een beter oplossing voor
Of is dit de juiste manier van werken?
ben bang dat hierdoor mijn werkblad erg traag wordt of valt dat wel mee

Don

 

[HSV]

In Thisworkbook.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 sh.Columns(9).Hidden = sh.Range("w15").Value = 0 and sh.range("w15") <> vbnullstring
End Sub

 

[don42]

woh dat is even een verschil 77 codes of 1
dat is super ik ga dit zeker gebruiken
de codes die ik gebruik(te) liet wel de kolom zichtbaar/verbergen na een enter
nu moet ik eerste even een andere sheet openen en dan weer terug
weet niet of daar nog een handigheidje voor is?
dat zal nog mooier zijn maar ben ook nu tevreden top :thumb:

 

[HSV]

Verander de eerste regel in:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 

[don42]

HI hi Ik hoopte dat er ook nog een oplossing was
helemaal goed
Bedankt maar weer

 

[VenA]

Even los van de vraag. Maar 77 tabjes in één bestand. :shocked: Misschien eens nadenken over een andere opzet.

 

[don42]

Ja dat heb ik idd zo gemaakt het is voor een spaarkasvereniging
en heb voor elk spaarkaslid een apart tabje gemaakt
de hele file is 1,6 mb groot geworden
wil het je met alle plezier eens laten zien.

 

[VenA]

Kan je misschien even één tabje kopiëren naar een nieuw bestandje en dat hier plaatsen met natuurlijk fictieve gegevens?