Verfijning adhv macro's : kolommen verbergen afhankelijk van noodzaak

[hafidakzin]

Beste ,
Bekijk bijlage WERKDOCUMENT FACTURATIE 15u25.rar
VRAAG 1 :

ik zou graag in het bestand in bijlage bovenaan 2 knoppen krijgen (gelijkaardig aan 'wachtwoord' nu )
met facturatie & administratie erin.
Administratie links & facturatie rechts van de knop "wachtwoord" die er nu staat.

Bij het klikken op de knop "administratie" moeten kolommen E-F en G verdwijnen / gegroepeerd worden .
Bij het klikkken op de knop "facturatie " moeten de kolommen A-B-C verdwijnen/ gegroepeerd worden .

VRAAG 2 :

Alle opmaak verwijderen op het hele werkblad buiten de range A1:Z90000.
Als ik nu een selectie maak op bijvoorbeeld week (bv. week 10) zie ik ineens rij 9272 met kleuren en dat is niet de bedoeling.
Kan dit volledig verwijderd worden ,dat het blad effectief maar bestaat uit de range A1 tot Z9000 ?
Daarom is het bestand ook 311 kb groot terwijl het anders slecht 111 kb zou zijn .

Alvast bedankt voor de hulp !!

Mvg
Hafid

 

[Cobbe]

Zou het zo uw goedkeuring krijgen?

 

[hafidakzin]

Zou het zo uw goedkeuring krijgen?

't Is alleszins weeral een serieuze stap in de goede richting.
Enkele dingen die me opvallen :
1) bij het openen van het bestand kan je alles doen wat je wilt. Kan je instellen dat je eerst wachtwoord moet aanklikken en dan kiezen wat je doet ?
2) opmaak van de formules gaat maar tot lijn 30- daar begint ook terug gekleurde lijnen.
3) soms kan ik niet meer aan rij 1-2-3?

Alvast dikke merci voor hetgeen je reeds gedaan hebt !!

 

[Cobbe]

Ik kan daar geen touw aan vastknopen.

Bij ThisWorkbook dien je nog de ScrollArea opnieuw in te stellen, deze stond nog op "" ipv G1
Voor de rest snap ik niet wat er wanneer moet gebeuren.

 

[hafidakzin]

Ik kan daar geen touw aan vastknopen.

Bij ThisWorkbook dien je nog de ScrollArea opnieuw in te stellen, deze stond nog op "" ipv G1
Voor de rest snap ik niet wat er wanneer moet gebeuren.

Wat ik zou willen is dat het bestand enkel bestaat uit de cellen van A1 tot Z7000.
Moet deze dan aangepast worden ?

Private Sub Workbook_Open()
Sheets("blad1").ScrollArea = "" '("G1")
End Sub


Bedankt voor de moeite !!

 

[hafidakzin]

Wat ik zou willen is dat het bestand enkel bestaat uit de cellen van A1 tot Z7000.
Moet deze dan aangepast worden ?

Private Sub Workbook_Open()
Sheets("blad1").ScrollArea = "" '("G1")
End Sub


Bedankt voor de moeite !!

zoals dit bestand eigenlijk, dat ik gedownload heb maar ik weet niet meer waar.Bekijk bijlage RANGE.xlsm