Cellen verbergen

[danny147]

Beste snb

Bedankt, het werkt nu. :thumb:

En nu maar afwachten wat xbox360 hier van vind.
Het is al geleden vanaf post 3 dat hij nog iets van zich heeft laten horen.

Groetjes Danny. :thumb:

 

[snb]

@Danny

....maar snap je ook hoe/waarom de macro werkt ?

 

[Warme bakkertje]

Op maandag gaat het verkeerd aangezien de Offset dan 0 zou moeten zijn, wat mi met deze opzet niet mogelijk is.(correct me if i'm wrong). Daarom dacht ik aan deze oplossing met dien verstande dat het weekend ook niet meetelt

Sub ToonDag()
    Columns("C:AF").Hidden = True
    If Format(Date, "w", 3) > 5 Then Columns(3).Resize(, 6).Hidden = False: Exit Sub
    Columns(3).Offset(, 6 * Format(Date, "w", 3)).Resize(, 6).Hidden = False
End Sub

 

[snb]

@Rudi

Offset(,0) is prima mogelijk; die toevoeging is echt overbodig.

 

[Warme bakkertje]

@snb
Het probleem is dat hij nooit 0 gaat geven als je met Format werkt, aangezien je altijd minstens een 1 hebt als dag v/d week. Dus zal je mi altijd een omwegje moeten maken, niet ?
Hij gaat nu altijd dinsdag geven als laagste waarde in de tabel en niet maandag omdat je steeds 6 als laagste Offset gaat hebben

 

[snb]

Columns(3).Offset(, 6 * (Format(Date, "w", 3)-1).Resize(, 6).Hidden = False

 

[danny147]

Beste snb

@Danny

....maar snap je ook hoe/waarom de macro werkt ?

Om eerlijk te zijn, NEE

Zou je hem dan voor mij eens kunnen uitleggen aub.

Sub ToonDag()
  Columns("C:AZ").Hidden = True
  Columns(3).offset(,6*format(date,"w",3).resize(,6).Hidden = False   
End Sub

En waarom nu ineens -1 erachter ?

Ben vandaag bijna niet thuis geweest en dus de topic niet kunnen volgen.

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Eureka

Sub ToonDag()
    Columns("C:AF").Hidden = True
    Columns(3).Offset(, 6 * (Format(Date, "w", [COLOR="Red"]2[/COLOR]) - 1)).Resize(, 6).Hidden = False
End Sub