macro versimpelen?

[arjoderoon]

Hoe kan ik onderstaande versimpelen?

    ActiveSheet.Unprotect "da"
    Rows("1:52").Select
    Selection.EntireRow.Hidden = False
    Rows("9:35").Select
    Selection.EntireRow.Hidden = True
    Rows("46:52").Select
    Selection.EntireRow.Hidden = True
    ActiveSheet.Protect "da", Contents:=True

 

[snb]

Ook robuuster

    With Sheets("Blad1")
       .Unprotect "da"
       .Rows("1:52").Hidden = False
       .Range("9:35,46:52").EntireRow.Hidden = True
       .Protect "da"
    End With

 

[CB01]

Ik vind hem nu al redelijk simpel.

Je kunt evt. voor de te verbergen regels ipv 4 verschillende regels in je Macro 2 onderstaande gebruiken. Scheelt weer 2 regels

Range("9:35,46:52").Select
Selection.EntireRow.Hidden = True

 

[CB01]

snb heeft er al op gereageerd zie ik. Sorry people, af en toe ben ik niet zo snel met reageren

 

[arjoderoon]

thanks,

ik heb nu ingesteld dat bij het uitvoeren van de macro, op het laatst een cel bovenin het blad geselecteerd wordt. Alleen, is deze niet zichtbaar omdat er helemaal naar beneden 'gescrolled' is. Hoe kan ik ervoor zorgen dat de bovenste regels zichtbaar zijn?

 

[snb]

Als je geen select of activate gebruikt in je VBA-code is dat overbodig.

 

[arjoderoon]

en als je dat wel gebruikt?

zie onderstaande code:

    Application.ScreenUpdating = False
    Sheets("Invullen leverancier").Select
    ActiveSheet.Unprotect "da"
    Rows("1:92").Select
    Selection.EntireRow.Hidden = False
    Rows("11:17").Select
    Selection.EntireRow.Hidden = True
    Rows("31:44").Select
    Selection.EntireRow.Hidden = True
    Rows("49:92").Select
    Selection.EntireRow.Hidden = True
    ActiveSheet.Protect "da", Contents:=True

na afloop van de macro staat het scherm op regel 312 terwijl ik hem gewoon wil zien vanaf rij 1, kolom 1.

 

[snb]

Dan moet je geen vraag stellen om je macro te versimpelen, want dat wil je dan blijkbaar niet.